Ｐａｇｅ 486 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼コード入力で商品名を表示させるには EBA 02/12/25(水) 14:17 ┗Re:コード入力で商品名を表示させるには ポンタ 02/12/25(水) 14:42 ┗Re:コード入力で商品名を表示させるには Nakamura 02/12/26(木) 9:00 ┗Re:コード入力で商品名を表示させるには ポンタ 02/12/26(木) 9:17 ┗Re:コード入力で商品名を表示させるには Nakamura 02/12/26(木) 12:45 ─────────────────────────────────────── ■題名 ： コード入力で商品名を表示させるには ■名前 ： EBA ■日付 ： 02/12/25(水) 14:17 -------------------------------------------------------------------------
| ポンタさん！！ありがとうございます！ 動きました！コードを入力して商品名が表示されました。 そして、アクティブでないシートに書かれた一覧から商品名を 表示させるにはどのようにしたらよろしいのでしょうか？ お願いします。 |
| 表示させたいシートのCodeNameがSheet2だとしたら、 3行目を以下のように書き換えてください。 これで、シートがアクティブでなくても、 シートや列が非表示でも問題なく動くと思います。 Set MyRange = Sheet2.Range(Sheet2.Range("A1"), Sheet2.Range("A65536").End(xlUp)).Find(TextBox1.Value) 念のため、CodeNameっていうのは、プロジェクトって言うウィンドウに ├Sheet1 (Sheet1) ├Sheet2 (Sheet2) └Sheet3 (Sheet3) とか表示されてると思うのですが、 その括弧がついていない方です。 |
| ▼ポンタ さん： >表示させたいシートのCodeNameがSheet2だとしたら、 >3行目を以下のように書き換えてください。 > >これで、シートがアクティブでなくても、 >シートや列が非表示でも問題なく動くと思います。 > >Set MyRange = Sheet2.Range(Sheet2.Range("A1"), Sheet2.Range("A65536").End(xlUp)).Find(TextBox1.Value) > > >念のため、CodeNameっていうのは、プロジェクトって言うウィンドウに > >├Sheet1 (Sheet1) >├Sheet2 (Sheet2) >└Sheet3 (Sheet3) > >とか表示されてると思うのですが、 >その括弧がついていない方です。 お早うございます。 ポンタさんへ コードの Sheet2 は Sheets("Sheet2") ではないですか？ それでは |
| Sheet2はCodeNameですから、 UserForm1とかModule1とかClass1と同様に ダイレクトに指定できるはずですが・・・？ この書き方でエラーが発生してしまったのですか？ 詳しい情報をいただければ、調べてみますが・・・。 |
| ポンタさん すいません。m(__)m 勘違いをしておりました。 |