| |
はじめまして。
当方、エクセルで見積ツールを作成しているものですが以下の様に、
コンボボックスにある値を選んだ時、例えば、comboboxの値はワークシート上にあるテーブルからRowSorceで呼び出しています。
RowSorceの一行目(ListIndex=0 Then)にそのRowSorceの参照元のワークシートのセルを選択することは可能でしょうか？
できれば、参照元のセルを選択してoffcetでその範囲のセルの内容を取得して、
見積フォーム上にコピーしたいのですが。
繰り返し処理に関しては65535ある為、セルの値、ListIndex1値が違ってきますが似たような処理が65535まであります。
ご教授ください。
以下の内容を繰り返し65535分記述するのはめんどくさく、ありえないんじゃないかなと思いまして....。
'品名ボックスの1番目を選択時の処理
If hinmei_box1.ListIndex = 0 Then
If s1.Value = IsNumeric(123) Then
'品名書き込み
Range("A14:C14").Value = hinmei_box1.Value
'仕様・規格書き込み(テーブルから参照）
Sheet2.Select
Range("L3").Select
Selection.Copy
Sheet1.Select
Range("D14:H14").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
|
|
コヅカ
- 11/8/4(木) 12:45 -
