| |
▼INA さん：
>worksheets("北海道")
>とか
>Worksheets(combobox1.value)
>とか
>dim mysheet as string
>mysheet=combobox1.value
>Worksheets(mysheet)
>とか？
シート名はオプションボタンのキャプションで変わります。
例えば
オプションボタンで"北海道"を選択すると、"北海道"シートにある、市町村名Rowのデータをコンボボックスのアイテムにしていくようになっています。
そのコンボボックスから市町村名を選択すると、その市町村に対応するレコードを引っ張るようにしたいんです。
現在はオプションボタンのクリックイベントで、各オプションボタンを選択すると、そのキャプションがstrSheetNameに格納されるようになっています。
以下はSheet1のコンボボックスのチェンジイベントプロシージャのソースです。
コンボで選択した市町村名をシート１のセルA32に入れ、それをもとにVlookupを使って
B32,C32…とその市町村に対応するデータを入れたいのですが、 「Set RS = Range(strSheetName & "!B5:G58")」
でいつもRangeメソッドエラーになり、実行できません。
どうしたらいいでしょう？
Private Sub ComboBox1_Change()
Dim RS As Range
Sheets(strSheetName).Activate
Set RS = Range(strSheetName & "!B5:G58")
Range("A32").Value = ComboBox2.Text
Range("B32").Value = WorksheetFunction.VLookup(Range("A32"), RS, 2)
Range("C32").Value = WorksheetFunction.VLookup(Range("A32"), RS, 3)
Range("D32").Value = WorksheetFunction.VLookup(Range("A32"), RS, 4)
Range("E32").Value = WorksheetFunction.VLookup(Range("A32"), RS, 5)
Range("F32").Value = WorksheetFunction.VLookup(Range("A32"), RS, 6)
End Sub
長々とすみませんが、よろしくお願いします。
|
|
