Excel VBA質問箱 IV

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

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


52003 / 76732 ←次へ | 前へ→

【29577】Re:フォームのテキストボックス
回答  awu  - 05/10/8(土) 12:21 -

引用なし
パスワード
   質問内容に曖昧な部分がありますが、ユーザーフォームに配置した
テキストボックスのことだとして、テキストファイルの区切り文字が、
スペースか、または、TABの場合は、こんな感じで如何でしょうか。

この内容からは、多分、テキストファイルから直接読込みたいのでは・・・?

条件が違う場合は、適当にイジッテくださいね。

Private Sub TextBox1_AfterUpdate()
Dim Fnum As Integer
Const Fname = "C:\Data\ファイル名.txt"
Dim LineData As String
Dim Ary
Fnum = FreeFile
Open Fname For Input As Fnum
Do Until EOF(Fnum)
  Input #Fnum, LineData
  Ary = Split(LineData, " ") ' TAB区切りの場合は、 vbTab
  If Ary(0) = Me.TextBox1.Value Then
    Me.TextBox2.Value = Ary(1)
    Me.TextBox3.Value = Ary(2)
    Me.TextBox4.Value = Ary(3)
    Exit Do
  End If
  Me.TextBox2.Value = ""
  Me.TextBox3.Value = ""
  Me.TextBox4.Value = ""
Loop
Close #Fnum
End Sub
2 hits

【29571】フォームのテキストボックス 若葉 05/10/7(金) 23:41 質問
【29575】Re:フォームのテキストボックス ichinose 05/10/8(土) 7:48 発言
【29581】Re:フォームのテキストボックス ichinose 05/10/8(土) 15:21 発言
【29577】Re:フォームのテキストボックス awu 05/10/8(土) 12:21 回答
【29579】Re:フォームのテキストボックス だるま 05/10/8(土) 14:04 回答

52003 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free