A 回答 (3件)
- 最新から表示
- 回答順に表示
No.3
- 回答日時:
#1です。
ということで、
Sub test()
Dim a(1000, 1000) As Variant, b As Variant
'ここは配列にデータを入れるコード
b = a
ReDim Preserve b(1000, 0) '1次元にする
datanum = WorksheetFunction.CountA(a) '全データ数
dim1 = WorksheetFunction.CountA(b) '第1添え字のデータ数=第1添え字の最大値+1
dim2 = datanum / dim1 - 1 第2添え字の最大値
Debug.Print dim1 - 1, dim2
End Sub
というのではどうでしょう。
No.2
- 回答日時:
>forを使わない方法があれば教えてください、
そんなモノは存在しません。
配列にデータを入れる時に「何処に入れるか判っている筈」なので、データを入れる際にxとyの最大値を更新するしかありません。
まあ、yだけなら、以下のように「可変長配列」で、どうにかできますが。
' aryを最小で宣言
Dim ary(1000,1) As Variant ,xMax As Integer
xMax = 0
(略)
' ary(x,y)にdataを入れる
n = Ubound(ary,2)
If y > n Then
Redim Preserve ary(1000,y)
Endif
If x > xMax Then
xMax = x
Endif
ary(x,y) = data
(略)
'x,yの最大を求める
x = xMax
y = Ubound(ary,2) 'yは要素が入っている最大になる
まさか「データを入れる際に、どこに入れるか判らない」なんて事はありませんよね?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- C言語・C++・C# このプログラミングの問題を教えてほしいです。 キーボードからデータ数nとn個のデータを入力し、平均値 3 2022/12/19 22:51
- C言語・C++・C# c言語の問題です 課題1 (二分探索木とセット) 大きさ size の配列 array を考える。す 2 2023/01/10 21:08
- Java javaでのプログラム(配列)について質問です. 2 2022/10/14 22:27
- Visual Basic(VBA) VBAで大量データの処理 3 2022/11/15 21:53
- Excel(エクセル) エクセルのグラフに上下限値の横棒を表示させたい 5 2022/12/12 11:09
- JavaScript 最小二乗法 2 2023/01/01 20:57
- Excel(エクセル) VBAのoffsetの動き方について教えてください 3 2022/11/25 23:36
- Ruby 初心者プログラミング 3 2022/10/12 11:31
- C言語・C++・C# C言語初心者 ポインタについて、お助けください、、 2 2023/03/15 23:50
- C言語・C++・C# このプログラミング誰か教えてくれませんか 1 2022/06/02 15:27
このQ&Aを見た人はこんなQ&Aも見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
配列で、値の入っている要素数を返すには?
Java
-
VBAでループ内で使う変数名を可変にできないか。
Visual Basic(VBA)
-
VBA 変数名に変数を使用したい。
Visual Basic(VBA)
-
-
4
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
-
5
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
6
配列の値を置換するにはどうすればいいでしょう?
Excel(エクセル)
-
7
エクセルVBA 配列からセルに「関数式」を一気代入したい
Visual Basic(VBA)
-
8
VBA シートのボタン名を変更したい
Visual Basic(VBA)
-
9
VBA 1次元配列を2次元に追加する
Visual Basic(VBA)
-
10
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
11
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
12
Filter関数を用いた結果、何も検索されなかった場合
Visual Basic(VBA)
-
13
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
14
複数の条件に合う行番号を取得するには
その他(Microsoft Office)
-
15
エクセルでエラーが出て困っています。
Excel(エクセル)
-
16
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
17
VBAコード記述に際して、コード全体を自動的にインデント付ける方法
Access(アクセス)
-
18
エクセルVBAのIf,Then 構文でOr条件とAnd条件の結合方法?
Excel(エクセル)
-
19
VBA:日付を配列に入れ別セルに転記するとデータ型が変わる
Visual Basic(VBA)
-
20
Excelのセルの色指定をVBAから配列を用いて効率的に行う方法はあり
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
教えて下さい
-
VBA 空白セルを削除ではない方...
-
合計3TBのデータのハッシュ値を...
-
【エクセル】測定時間がバラバ...
-
多量のSUMIF式を軽くしたい
-
シーケンサにパソコンからアク...
-
メモ帳(テキストデータ)をExc...
-
VBAを使ってOutlookメール本文...
-
VBA & easycomm で長時間測定の...
-
エクセルで2つの時系列のデー...
-
Excelのマクロでワードのテキス...
-
<VB>String→Object
-
ユーザーフォームのテキストボ...
-
ACCESSからEXCELに出力する際、...
-
モーションキャプチャのプログ...
-
配列でデータが入っている要素...
-
パースとはなんですか?
-
この行は既に別のテーブルに属...
-
VB6でCSVの取込をする
-
ウィンドウ枠の固定を行の2箇所...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
教えて下さい
-
配列でデータが入っている要素...
-
【エクセル】測定時間がバラバ...
-
メモ帳(テキストデータ)をExc...
-
VBA 空白セルを削除ではない方...
-
多量のSUMIF式を軽くしたい
-
Excelのマクロでワードのテキス...
-
エクセルで2つの時系列のデー...
-
この行は既に別のテーブルに属...
-
VBAを使ってOutlookメール本文...
-
シーケンサにパソコンからアク...
-
EXCELVBAでSQLserverからデータ...
-
ブレーカー落ちで壊れたりしな...
-
[C言語] コメント文字列を無視...
-
オープンチヤットでデータ削除...
-
モジュラス103の算出方法について
-
javaでDBからデータを取ってき...
-
カンマからスラッシュに
-
VBA 毎日取得するデータを順番...
-
Android携帯をUSBメモリ代わりに
おすすめ情報