Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

52006 / 76737

←次へ　｜　前へ→


	【29579】Re:フォームのテキストボックス

だるま

- 05/10/8(土) 14:04 -


	引用なし

	パスワード

こんにちは

テキストファイルは「テーブル.txt」という名前でマクロブックと同じフォルダ。
項目間の区切りはタブ。
表示のタイミングはCommandButton1をクリックした時。

として作ってみました。^d^

===== UserForm1モジュール =====
Option Explicit

Private Dic As Object

Private Sub UserForm_Initialize()
　　Dim myPath As String
　　Dim N As Integer
　　Dim D As String
　　Dim Itm As Variant
　　
　　Set Dic = CreateObject("Scripting.Dictionary")
　　
　　myPath = ThisWorkbook.Path & "\テーブル.txt"
　　N = FreeFile
　　Open myPath For Input As #N
　　Do Until EOF(N)
　　　　Line Input #N, D
　　　　Itm = Split(D, vbTab)
　　　　Dic.Item(CStr(Itm(0))) = Itm
　　Loop
　　Close #N
End Sub

Private Sub CommandButton1_Click()
　　Dim V As Variant
　　With Me
　　　　If Dic.Exists(.TextBox1.Value) Then
　　　　　　V = Dic.Item(.TextBox1.Value)
　　　　　　.TextBox2.Value = V(1)
　　　　　　.TextBox3.Value = V(2)
　　　　　　.TextBox4.Value = V(3)
　　　　Else
　　　　　　.TextBox2.Value = ""
　　　　　　.TextBox3.Value = ""
　　　　　　.TextBox4.Value = ""
　　　　End If
　　End With
End Sub

Private Sub UserForm_Terminate()
　　Set Dic = Nothing
End Sub

0 hits

▼

【29571】フォームのテキストボックス 若葉 05/10/7(金) 23:41