ユーザーフォームのテキストボックスに配列の値を読み込む方法を教えて下さい

質問

お世話になります
ユーザーフォームのリストボックスにAddItemで記述したデータを表示するような形で、ユーザーフォームのテキストボックスに配列にとりこんであるデータの値を順番に読み込むようにしたいのですが、このようなことができるのでしょうか？
どなたか教えて頂けないでしょうか

回答No.3

maruru01

こんにちは。maruru01です。

まず、コレクションを使ってフォーム上のテキストボックスをインデックスで操作出来るようにします。
コレクションについては以下を参照して下さい。

http://oshiete1.goo.ne.jp/kotaeru.php3?q=172927

この時、AddItemメソッドで追加するテキストボックスの順番をデータ一覧表の項目の順と一致させることが必要です。
例えば配列kokyakudat(i,j)の0列目がIDなら、他のデータは1列目からになりますが、Collectionオブジェクトのインデックス値は1から始まるので、順番（と項目数）が同じならちょうどいいわけです。

で、とりあえず、iが列でjが行で、0列がIDとすると、

For j = (行の最初) To (行の最後)
　　If kokyakudat(0, j) = tx1.Text Then
　　　　'見つけた行のデータを入力する
　　　　For i = 1 to (列番号の最後)
　　　　　　myCollect(i).Text = kokyakudat(i, j)
　　　　Next i
　　　　Exit For
　　End If
Next j

If j > (行の最後) Then
　　MsgBox "データが見つかりません。"
End If

こんな感じです。
ところで、このようなデータは配列より、ユーザー定義型（構造体）にした方がいいのではないでしょうか。
構造体なら、各項目に適当な変数名を付けることが出来るので、コードの見た目で分かり易いです。
配列だと、何番目が何のデータかコード見ただけでは分からないですよね。
まあ、構造体にすると上記のコレクションは使えません（使っても意味がない）が、項目数がそれ程多くない（20以下ぐらい）なら、1つずつ入力してもいいでしょう。
テキストボックスにも分かりやすい名前を付けておけば、何のデータをどこにいれたかが、確認し易いですし。
ちなみに、この手のデータ検索は、Accessを使用した方がいいと思いますが。

参考URL：

http://oshiete1.goo.ne.jp/kotaeru.php3?q=172927

補足

maruru01様
いつもお手数おかけして申し訳ありません
相変わらず丁寧なご指導に感謝します
私の不勉強のため、せっかく丁寧にご指導頂いたにもかかわらず、内容が理解できないところが多数あります。
本来ならば、勉強し直してから再度お尋ねするのが筋だと思いますが、今回のユーザーフォームの件はどうしても解決してみたいので、あつかましいかぎりですが、現在作っているマクロの概要を以下に記載し、どこをどのようになおすべきか再度おたずねする次第です。
とりあえず、IDを入力し、氏名が表示できれば、後は自分で何とかしたいと思います。
　お時間とお気持ちの許す範囲で結構ですので見ていただければ幸いです

　エクセルのsheet1のb10～f10にID,氏名,部署のフィールドがあり、その下に500件程のデータが入力済みです。

マクロの記述の概要は以下のとおりです

Dim data1(1000,10)
Dim i As Integer
Dim j As INteger

Sub input1()

Sheets("Sheet1").Select
Range("b11").Select

'データを配列に格納
For i = 11 To 1000
If Cells(i,0) = "" Then Exit For
For j = 1 To 7
data1(i, j) = Cells(i, j)
Next i
Next j

UserForm1.Show

End Sub

ユーザーフォームの概要とマクロ

UserForm1

TextBox1・・・ID入力欄
TextBox2・・・氏名をここに表示させたい
TextBox3・・・部署をここに表示させたい

　CommandBUtton1・・・・次のIDへ移動させたい
CommandButton2・・・・前のIDへ移動させたい

ユーザーフォームのマクロ
*をつけたところが、maruru01さんのご指導を私なりに理解して加えた部分です（たぶん理解ができていないと思いますが）

*Private myCollect As New Collection・・・変数の宣言部分？
Private Sub UserForm_Click()

*With myCollect・・・・コレクションの作成?
* .Add Item:=text1
* .Add Item:=text2
　 *.Add Item:=text3
*End With

*For i = 11 to 1000
* If data1(i,1) = tx1.Text Then
* For j = 1 to 7
* myCollect(j).Text = data1(i,j)
* Next j
* Exit For
* End If
*Next i
* If i>1000 Then
* MsgBox = "データなし"
* End If

End Sub
Privare Sub CommandButton1_Click()
未作成
End Sub