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も見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
配列で、値の入っている要素数を返すには?
Java
-
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
-
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
-
4
VBA 変数名に変数を使用したい。
Visual Basic(VBA)
-
5
VBAでループ内で使う変数名を可変にできないか。
Visual Basic(VBA)
-
6
配列の値を置換するにはどうすればいいでしょう?
Excel(エクセル)
-
7
エクセルVBAのIf,Then 構文でOr条件とAnd条件の結合方法?
Excel(エクセル)
-
8
VBA シートのボタン名を変更したい
Visual Basic(VBA)
-
9
エクセルVBA 配列からセルに「関数式」を一気代入したい
Visual Basic(VBA)
-
10
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
11
VBAでの Replace関数で、ワイルドカードは使えないのでしょうか?
Visual Basic(VBA)
-
12
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
13
Excelのセルの色指定をVBAから配列を用いて効率的に行う方法はあり
Visual Basic(VBA)
-
14
VBAでユーザーフォームの表示を確認
Visual Basic(VBA)
-
15
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
16
配列で格納したものをmsgboxで表示する方法について
Access(アクセス)
-
17
VBAで別モジュールへの変数の受け渡し方法
Visual Basic(VBA)
-
18
【Excel VBA】指定行以降をクリアするには?
Visual Basic(VBA)
-
19
エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
-
20
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
教えて下さい
-
この行は既に別のテーブルに属...
-
VBA 空白セルを削除ではない方...
-
【エクセル】測定時間がバラバ...
-
ブレーカー落ちで壊れたりしな...
-
C言語プログラム変更
-
Winsockで1460Byte以降のデータ...
-
オープンチヤットでデータ削除...
-
大学のゼミのレポートがムカつ...
-
配列でデータが入っている要素...
-
曲線グラフからピーク値を求め...
-
C#でヒストグラムの作り方
-
パースとはなんですか?
-
メモ帳(テキストデータ)をExc...
-
逆離散フーリエ変換
-
TBWに達するまで後5GBの時に100...
-
DataGridViewのデータの引渡し...
-
VBAで「"」[']をエスケープする...
-
[VBA] CountIfに変数を使いたい
-
モジュラス103の算出方法について
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
教えて下さい
-
配列でデータが入っている要素...
-
【エクセル】測定時間がバラバ...
-
メモ帳(テキストデータ)をExc...
-
エクセルで2つの時系列のデー...
-
二分探索の平均探索回数
-
VBA 空白セルを削除ではない方...
-
多量のSUMIF式を軽くしたい
-
ブレーカー落ちで壊れたりしな...
-
この行は既に別のテーブルに属...
-
ACCESSからEXCELに出力する際、...
-
ユーザーフォームのテキストボ...
-
シーケンサにパソコンからアク...
-
EXCELVBAでSQLserverからデータ...
-
VBAを使ってOutlookメール本文...
-
S9タイプからXタイプにデータ...
-
ウィンドウ枠の固定を行の2箇所...
-
プログラミング python pandas ...
-
Accessで該当データにフラグを...
-
カンマからスラッシュに
おすすめ情報