Excel VBA質問箱 IV

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

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


52005 / 76732 ←次へ | 前へ→

【29575】Re:フォームのテキストボックス
発言  ichinose  - 05/10/8(土) 7:48 -

引用なし
パスワード
   ▼若葉 さん:
おはようございます。


>  textbox1 に商品コードを入力すると、
>  
>  textbox2 に商品名が自動的に表示
>  textbox3 に型番が自動的に表示
>  textbox4 にカラーが自動的に表示
>
>されるようにしたいのですが。

このテキストボックスは、どこに貼り付けたのですか?
ユーザーフォームにですか?
それともシートにせすか?

こういうプログラムの仕様にあたる記述は
正確且つ、詳細に記述しなければこの投稿をみている方には
わかりませんよね??
それによって、コード記述も当然違ってきます。

また、少しでも出来ているのなら、コードの記述も必要です。
これは、「自分でも努力はしています」というアピールのためでも
ありますが、コードの記述が質問の記述漏れを補うことがあるからです。


>
>基になる別ファイルは、c: にテキストファイルにて別ファイル名で存在します。
>
>  商品コード 商品名   型番  カラー
>   123   aaaa     dddd  gggg
>   456   bbbb     eeee  hhhh
>   789   cccc     ffff  iiii
>
>何卒、よろしくお願いいたします。


これに関しては、まず、以下のコードでテキストファイルが
正常にオープン出来るか否かの確認です。

新規ブックの標準モジュールに

'=========================================================
Sub test()
  Dim bk As Workbook
  Set bk = open_text("c:\My Documents\testarea\sm.txt")
'              ↑ここに実際のファイル名を記述してください
  MsgBox bk.Name & ":::" & bk.ActiveSheet.Name
End Sub
'========================================================
Function open_text(flnm As String) As Workbook
  On Error Resume Next
  Dim bk As Workbook
  Workbooks.OpenText Filename:=flnm, StartRow:=1 _
       , DataType:=xlDelimited, TextQualifier:=xlDoubleQuote _
       , ConsecutiveDelimiter:=True, Tab:=True _
       , Semicolon:=False, Comma:=False _
       , Space:=True, Other:=False _
       , FieldInfo:=Array(Array(1, 1), Array(2, 1) _
             , Array(3, 1), Array(4, 1))
  If Err.Number <> 0 Then
    MsgBox Err.Number & " : " & Err.Description
    Set open_text = Nothing
  Else
    Set open_text = ActiveWorkbook
    End If
End Function

上記のtestを実行して正常にテキストファイルが読み込まれていますか?


以上の2点について
記述して下さい。
0 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 回答

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