ＶＢＡで別シートに複数のデーターを参照

質問

こんばんは。マクロ初心者です。
ＶＢＡの構文を教えてください。

■シート(1)には項目が５０ある５年分（60ヶ月）の市場統計データーがあります。５０個ある項目名はＢ列にありＤセル2008年1月からＢＫセル2012年12月まで横に60ヶ月分のデーターを入力しています。
■シート(2)には５０の項目名のデータがあります。項目名はＢ列にあります。
■シート(3)にはコンボボックスを作成し、コンボボックスの下に表を作成しました。

シート(3)のコンボボックスから▼ボタンで項目を選びコマンドボタンを押すと
シート(3)の下記のセル範囲でシート(1)のデーターを参照させたいのです。
Ｂ８セルからＭ８セルまで（2008年度12か月分のデータ）
Ｂ11セルからＭ11セルまで（2009年度12か月分のデータ）
Ｂ14セルからＭ14セルまで（2010年度12か月分のデータ）
Ｂ17セルからＭ17セルまで（2011年度12か月分のデータ）
Ｂ20セルからＭ20セルまで（2012年度12か月分のデータ）

コンボボックスは設定できたのですが、構文がうまくできないため参照できていません。
エクセルに詳しい方、どうぞご教授ください。よろしくお願い致します。

回答No.1

KURUMITO · ベストアンサー

コンボボックスには項目名を並べることが必要になりますが、そのためにはコンボボックスを選択して右クリックしコードの表示を選択します。
表示の画面で次のマクロを入力します。

Sub リスト設定()
With ComboBox1
For i = 2 To 50
.AddItem Worksheets("Sheet2").Range("B" & i)
Next
End With
End Sub

また、コンボボックスで項目を選択した後でそれぞれの粘度のデータを表示させるために次のコードを入力します。

Private Sub ComboBox1_Change()
Dim n, i As Integer
Set WS1 = Worksheets("Sheet1")
Set WS3 = Worksheets("Sheet3")
With WS1.Range("B:B")
For n = 1 To 50
If .Cells(n, 2).Value = ComboBox1.Value Then Exit For
Next
For i = 1 To 12
WS3.Cells(8, 1 + i) = .Cells(n, 3 + i).Value
WS3.Cells(11, 1 + i) = .Cells(n, 15 + i).Value
WS3.Cells(14, 1 + i) = .Cells(n, 27 + i).Value
WS3.Cells(17, 1 + i) = .Cells(n, 39 + i).Value
WS3.Cells(20, 1 + i) = .Cells(n, 51 + i).Value
Next
End With
End Sub

この操作ではコマンドボタンを設ける必要はありません。コンボボックスで項目を選択すれば自動的に表示されます。
作業を始めるに当たってはコンボボックスに必要な項目を入力することが必要ですがそのためには「開発」タブの「マクロ」をクリックしてリスト設定を選択して「実行」をクリックすればよいでしょう。これですべての作業は終了です。

お礼

具体的な回答をありがとうございました。

補足

早速のご回答ありがとうございます。わたし自身の知識が不足しているせいか、思うようにデーターを参照できませんでした。コンボボックスは機能しており全てのリストは選択できている状態です。次のステップでの長い構文ですが、データー元であるシート(1)のＢ３からＢＫ５２の範囲データーはどこに書かれておりますでしょうか。
また、もう一つ質問ですが、短い構文はＶＢＡシート(1)にあります。長い構文もＶＢＡシート(1)の短い構文の下に入れるという理解でよろしいでしょうか？ご回答くださいますようお願い致します。