| |
▼若葉 さん：
おはようございます。
> 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点について
記述して下さい。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
- 05/10/8(土) 14:04 -
