Ｐａｇｅ 479 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼コード入力で商品名を表示させるには EBA 02/12/25(水) 11:12 ┗Re:コード入力で商品名を表示させるには ポンタ 02/12/25(水) 13:08 ─────────────────────────────────────── ■題名 ： コード入力で商品名を表示させるには ■名前 ： EBA ■日付 ： 02/12/25(水) 11:12 -------------------------------------------------------------------------
| ＥＸＣＥＬ ＶＢＡを最近はじめました。 コード入力で商品名を表示させるには、どうすればよいのでしょう。 例えば、ユーザーフォームを作り、テキストボックス１、テキストボックス２を作ります。 テキストボックス１に数値を入力して、テキストボックス２に商品名を表示させる。 ということをやりたいのですが初心者のためわかりません。 どなたかご教授お願い致します。 |
| よく検証していませんが、 アクティブシートのA列に商品コード、B列に商品名を入力してください。 ユーザーフォームのモジュールには以下のコードを貼り付けて、 テストしてみてください。 問題なく動いたら、アクティブでないシートに書かれた 一覧から商品名を表示させるように書き換えますので、 返信してください。 Private Sub TextBox1_Change() Dim MyRange As Range Set MyRange = Range(Range("A1"), Range("A65536").End(xlUp)).Find(TextBox1.Value) If MyRange Is Nothing Then TextBox2.Value = "" Else TextBox2.Value = MyRange.Offset(0, 1).Value End If End Sub |