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

質問

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

回答No.6

kazuhiko5681 · ベストアンサー

こんにちは。先程のコードでは、コマンドボタンの動作がかかれていませんでしたので、修正マクロをお知らせします。
下記のコードを同じ方法でコピー・ペーストしてみて下さい。
あなた様の思い通りの動作になると思います。

私は、趣味でＶＢＡやＶｂでプログラミングをやっている仲間が集まっているサークルに所属しております。ここでコードの説明をするのは非常に難しいので、事務局のほうへお電話をいただけないでしょうか。お金は要りません。お電話で詳しく教えさせていただきます。
事務局には、午後１時から午前０時迄常時つめておりますので、この時間内であればお電話で話すことができると思います。
０４３(２７８)２５４８

お手数をおかけいたしますが、よろしくお願いいたします。

Private Sub CommandButton1_Click()

If Me.Tx1.Text = Workbooks("顧客台帳.xls").Worksheets(1).Range("A1").Value Then
MsgBox "登録された顧客はおりません。", vbOKOnly + vbCritical, "処　理　エ　ラ　ー"
Else
Me.Tx1.Text = Me.Tx1.Text - 1
Me.Tx2.Text = Workbooks("顧客台帳.xls").Worksheets(1).Range("A1:" & Cells(Rows.Count, 1).End(xlUp).Address).Find(Me.Tx1.Text, lookat:=xlWhole).Offset(0, 1).Value
End If

End Sub

Private Sub CommandButton2_Click()

Dim myCnt1 As Integer
Dim myCnt2 As Integer

If Me.Tx1.Value = Workbooks("顧客台帳.xls").Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Value Then
MsgBox "登録された顧客はおりません。", vbOKOnly + vbCritical, "処　理　エ　ラ　ー"
Else
Me.Tx1.Text = Me.Tx1.Text + 1
Me.Tx2.Text = Workbooks("顧客台帳.xls").Worksheets(1).Range("A1:" & Cells(Rows.Count, 1).End(xlUp).Address).Find(Me.Tx1.Text, lookat:=xlWhole).Offset(0, 1).Value

End If

End Sub

Private Sub Tx1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

Dim myRange As Range

Set myRange = Workbooks("顧客台帳.xls").Worksheets(1).Range("A1:" & Cells(Rows.Count, 1).End(xlUp).Address).Find(Me.Tx1.Text, lookat:=xlWhole)
If myRange Is Nothing Then
MsgBox "登録された顧客がおりません。", vbOKOnly + vbCritical, "入　力　エ　ラ　ー"
Cancel = True: Exit Sub
Else
Me.Tx2.Text = myRange.Offset(0, 1).Value
End If

End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

End

End Sub

お礼

kazuhiko5681様
本当にあつかましいお願いにもかかわらず、またまたこのような丁寧なご指導いただき感謝の言葉もございません。本当にありがとうございます。

今回はkazuhiko5681様はじめお二人の方にご指導いただき、得難い勉強をさせていただきました。
まだ始めたばかりで、先がみえませんが今後とも一生懸命勉強していつかは、私も皆様のように人様にアドバイスできるようにがんばりたいと思いますので、今後ともよろしくお願いします。
心より感謝します。
tomosato