Excel VBA でリストボックスへ行追加について

質問

お世話になります。

ExcelVBAで、ユーザフォーム表示のときに、リストボックスにデータを追加します。
その際、追加したいアイテムが項目数３の配列なのです。
配列もユーザ定義した配列(2次元配列)を使っています。
配列を作って、.List=Array でセットしようと思ったのですが、コンパイルエラーが出ます。
どうしたらよいでしょうか。

説明がわかりにくいかもしれませんが、よろしくお願い致します。

回答No.2

nishi6 · ベストアンサー

質問を100％理解しているとは思いませんが質問内容をコード化？してみました。

最後に書いている、『リストボックスに渡すVariant型の配列を作る』ことが必要ではないでしょうか。
質問がこういう意味かよく分かりませんが・・・。ご参考に。

'///　標準モジュール　Module1　< Excel97

Type ListData　　　　　'ユーザー定義型変数
　　strA As String
　　strB As String
　　strC As String
End Type

'/// UserForm1
Dim myData() As ListData　　　　　　'ユーザー定義型変数
Dim num As Integer　　　　　　　　　'リスト行数-1
Dim myArray() As Variant　　　　　　'リストデータ

Private Sub CommandButton2_Click()
'/// 例として、CommandButton2を押すと下の事柄を実行します。

　　'２つのユーザー定義型変数に値をセット
　　num = 1
　　ReDim Preserve myData(num) As ListData
　　　　myData(0).strA = "AAA1": myData(0).strB = "BBB1": myData(0).strC = "CCC1"
　　　　myData(1).strA = "AAA2": myData(1).strB = "BBB2": myData(1).strC = "CCC2"

　　'ユーザー定義型変数を１つ増やし、値をセット
　　'ユーザー定義型変数の個数が変動するようなので書いただけです。
　　num = 2
　　ReDim Preserve myData(num) As ListData
　　　　myData(2).strA = "AAA3": myData(2).strB = "BBB3": myData(2).strC = "CCC3"

　　'リストボックスに渡す配列の再宣言
　　ReDim myArray(num, 2)　　　 '列は３列なので→0,1,2
　　Dim c As Integer　　　　　　'カウンタ

　　'*****　リストボックスに渡すVariant型の配列を作る　*****
　　For c = 0 To num
　　　　With myData(c)
　　　　　　myArray(c, 0) = .strA
　　　　　　myArray(c, 1) = .strB
　　　　　　myArray(c, 2) = .strC
　　　　End With
　　Next

　　'リストボックスに登録
　　ListBox1.Clear
　　ListBox1.List = myArray
End Sub

お礼

回答ありがとうございます。

ちゃんとやりたいようにできました。
本当に助かりました。
ありがとうございました。

回答No.1

imogasi

下記３・４あたり補足していただいたほうが
答えやすい人が多いのでは。
（１）ＥｘｃｅｌＶＢＡとありますので、ＶＢではなく、エクセルなんですよね。この部分はＶＢＡでなくても、（フォームじゃなく）ツールバーのコントロールツールボックスのリストボックスを貼り付け、プロパティウィンドウをだし、ＣｏｌｕｍｎＣｏｕｎｔを３とかにして、
ＢｏｕｎｄＣｏｌｕｍｎを決め、ＬｉｎｋｅｄＣｅｌｌを
きめ、ＬｉｓｔＦｉｌｌＲａｎｇｅにシート上のＡ１：Ｃ４とかを設定すれば済むように思います。これを
ＶＢＡで設定することも出来ます。（マクロの記録では出ませんが）
本式フォームでなくても、罫線等消せばシートもフォーム
らしくなります。
（２）リストボックスにデータを追加します－－＞一旦出来た
リストボックスに実行時に追加（ＡｄｄＩｔｅｍ）したいのか、実行当初に設定したいと言うことを追加といったのかどちらでしょうか。
（３）項目数３の配列－－－＞ＣｏｌｕｍｎＣｏｕｎｔ列数が３と言うことでしょうか、行数・要素数が３でしょうか。
（４）配列を作って、.List=Array でセットしようと－－＞ＡｄｄＩｔｅｍを繰り回したくないと言うことですか。
ここのコーディング部分を掲示されては。すれば識者は
答えてくれるでしょう。
（５）コンパイルエラーが出ます－－－＞ＶＢＡでコンパイルは行われるのですか。実行時エラーのことでは。

補足

回答ありがとうございます。

補足できる部分を補足していきます。
１．RowSorceプロパティでは設定できないリストです。
(データを判定してからセットしています。)
２．毎回データを判定してセットするので、Clearしてから新たにデータをセットします。
AddItemでは配列をセットできないようです(やりかたが悪い？)
３．ColumnCountが３という意味です。
４．ユーザ定義型で、標準モジュールに
Type ListData
strA As String
strB As String
strC As String
End Type
このように定義し、ReDim　Preserve　で配列追加をしてから、一気にセットしています。
５．コンパイルエラーのメッセージは
「パブリック　オブジェクト　モジュールで定義されたユ
ーザ定義型に限り、変数に割り当てることができ、実行時バインディングの変数に渡すことができます。」と出ます。

よろしくお願い致します。