2次元配列を作成し、コレクションにAddし、
ループで処理をしたいと考えています。
Addしたものの、取り出す方法がわかりません。
ローカルウインドウで確認すると、値が表示されているので、 test に 2次元配列は追加されているようです。
Dim test As Collection
Set test = New Collection
Dim tmp(0, 9) As String
tmp(0, 0) = "test"
tmp(0, 1) = "56"
test.Add tmp
tmp(0, 0) = "test2"
tmp(0, 1) = "tttt"
test.Add tmp
この後 test の中の2次元配列の値をループで取り出したいです。
取り出して、セルに代入する予定です。
どうかアドバイスをお願いいたします。
No.2ベストアンサー
- 回答日時:
こんな感じですかね。
Sub Sample()
Dim test As Collection
Dim tmp(0, 9) As String
Dim ary As Variant
Dim i As Integer
Set test = New Collection
tmp(0, 0) = "test"
tmp(0, 1) = "56"
test.Add tmp
tmp(0, 0) = "test2"
tmp(0, 1) = "tttt"
test.Add tmp
tmp(0, 0) = "test3"
tmp(0, 1) = "zzz"
test.Add tmp
Debug.Print "データ数 : " & test.Count
For Each ary In test
Debug.Print ary(0, 0)
Debug.Print ary(0, 1)
Next
Worksheets.Add Before:=Worksheets(1)
For i = 1 To test.Count
Range(Cells(i, 1), Cells(i, 10)) = test(i)
Next
Worksheets.Add Before:=Worksheets(1)
For i = 1 To test.Count
ary = test(i)
Range(Cells(1, i * 2), Cells(10, i * 2)) = WorksheetFunction.Transpose(ary)
Next
End Sub
No.1
- 回答日時:
こんなかんじで如何ですか?
値の無い要素もありますので、if文で選別して表示させています。
Sub foo()
Dim test As Collection
Set test = New Collection
Dim tmp(1, 9) As String ' tmp(0,9)を書き換えmした
Dim i As Long, j As Long
tmp(0, 0) = "test"
tmp(0, 1) = "56"
test.Add tmp
tmp(1, 0) = "test2" ' 最初の要素番号を書き換えました
tmp(1, 1) = "tttt" ' 同上
test.Add tmp
For i = 0 To UBound(tmp, 1)
For j = 0 To UBound(tmp, 2)
If tmp(i, j) <> "" Then ' 文字列が代入されている要素のみ表示させる。
MsgBox tmp(i, j) ' メッセージとして表示
End If
Next
Next
End Sub
アドバイスありがとうございます。
UBound(tmp,1)のような使い方はしらなかったので助かりました。
今回は2次元配列のtmp(1,9) の 1の部分を動的に変えたかったのですが、
調べてみたら無理とのこと。
tmp(0,9)を作成し、データ入力→collection に add し、
ループでとれたらいいなと思い質問しました。
siffon9 さん ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBA シート上にドロップダウンリストを作り、予め指定値をセットしたいのですが 1 2023/03/25 15:15
- Excel(エクセル) エクセルのマクロが途中の行から適用されない 2 2022/07/09 20:25
- Excel(エクセル) エクセルのマクロが上手く動きません 4 2022/07/14 13:25
- Visual Basic(VBA) vba 重複データ合算 5 2023/07/05 18:55
- C言語・C++・C# 質問です 下記のコードを分かりやすく解説お願いします 初心者です #include ‹stdio.h 3 2022/05/26 22:03
- Visual Basic(VBA) VBA GetAttrについて教えてください 2 2022/12/22 15:25
- Visual Basic(VBA) Excle VBA Findメソッドについて 3 2022/07/15 13:56
- Excel(エクセル) エクセルVBAでオブジェクトが必要です 2 2022/09/10 16:37
- Visual Basic(VBA) 貼り付けた値が消えていく 以下はソースファイルの2番目のシートのB6から最終行を取得 ターゲットファ 2 2023/07/27 12:23
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/06 13:01
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
構造体をコレクションに入れて扱いたいのですが…
コレクション
-
配列をループでたくさん宣言したいのですが、配列名や変数名を変数で宣言することはできませんか?
Visual Basic(VBA)
-
collection型を引数にしたファンクションでコンパイルエラー
Visual Basic(VBA)
-
-
4
VBAでループ内で使う変数名を可変にできないか。
Visual Basic(VBA)
-
5
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
6
VBA 変数名に変数を使用したい。
Visual Basic(VBA)
-
7
Excel VBA Collection.add で Range型を格納したい
Visual Basic(VBA)
-
8
[VBA] Classから他のClassを呼び出す場合
Visual Basic(VBA)
-
9
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
10
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
11
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
12
array関数で格納した配列の型を変更する
Visual Basic(VBA)
-
13
VBAでfunctionを利用しようとしたときに「引数は省略できません」というエラーが出ます
Visual Basic(VBA)
-
14
文字列の後ろから必要分だけ削除したい。
Visual Basic(VBA)
-
15
ExcelVBAで最終行を誤認する問題の回避方法
Visual Basic(VBA)
-
16
VBA ユーザーフォームのChangeイベントを停止したい
Access(アクセス)
-
17
IF関数で空欄(")の時、Nullにしたい
その他(Microsoft Office)
-
18
Application.ScreenUpdating = Falseが効きません
Visual Basic(VBA)
-
19
実行時エラー 438になった時の対処法を教えて下さい。
Visual Basic(VBA)
-
20
VBAでワークシートを引数としてサンプル関数に渡したい
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBA コレクションに2次元配列...
-
classの再定義エラーについて
-
可変変数にアロー演算子を使いたい
-
PHPの変数値をリンクさせたい
-
関数の動きと記述方法の意味を...
-
PHPで、相対的な変数名の場合の...
-
サブネットマスクを用いたIP制...
-
Fatal error: Cannot use []
-
VB.NETからVBAマクロ(引数)を呼...
-
デフォルトの定義済みクラスに...
-
共用体のサイズをsizeofで
-
【Objective-c】rubyの__send__...
-
既存関数の上書き
-
VB6のコンボボックスのテキスト...
-
PHPプログラム上で「URLを直接...
-
PHP Catchable fatal error の...
-
PHP、ヒアドキュメント内でのIF...
-
メール本文の構成 行頭空白
-
Dosブロンプトでtabを出力したい
-
wordの差し込み印刷で文字...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBA コレクションに2次元配列...
-
エラーの理由が分りません。Pri...
-
可変変数にアロー演算子を使いたい
-
VB.NETからVBAマクロ(引数)を呼...
-
PHP、ヒアドキュメント内でのIF...
-
VB.NETSystem.Xml 要素数を得る...
-
どういうプログラムを関数化を...
-
vb作成したらでbeep音が鳴りま...
-
次のhtml・cssでspan内の文字を...
-
classの再定義エラーについて
-
既存関数の上書き
-
protectedなのにアクセスできな...
-
配列の操作時にLNK2001外部シン...
-
UNIX CP "で上書きしません"
-
PHPでの画像の形式の変換
-
PHPプログラム上で「URLを直接...
-
Let's Encryptで自動更新がされ...
-
ExcelVBAで部分一致(*)をしたい
-
VB6のコンボボックスのテキスト...
-
ASPのResponse.WriteをPHPでは...
おすすめ情報