ＶＢＡにてデータを振り分けたい。

質問

２つのシート（sheet1、sheet2）があり、sheet2に振分けるデータ（下表）を作成しておきます。

　　（列）　　Ａ　　　Ｂ　　　Ｃ　　　Ｄ
（行）　
　１　　　　　山　　　川　　　地　　　空
　２　　　　　○　　　△　　　×　　　□
　３　　　　　ア　　　イ　　 　ウ　　　エ

(1)ユーザーフォームを作成し、その中にコンボボックスを作成して山を入力する。
山は、セルＡ１へ、川は、セルＢ２へ、地は、セルＣ３へ、空は、セルＤ１、それぞれ
決められたセルにコピーされる（すべてsheet1へコピー）。

(2)にコンボボックスにて○を入力する。○はセルＡ１へ、△は、セルＢ２へ、×は、
セルＣ３へ、□は、セルＤ１へ、それぞれ決められたセルにコピーされる（すべて
sheet1へコピー）。

ちなみに(1)と(2)のコピーされるセルの位置は同じ場所です。

というようなものをExcelのＶＢＡにて作成したいのですが、ＶＢＡは、まだよくわかりません。
出来れば、sheet1のセルに数式などを入力したくはないのですが．．．。

どうか皆様のご指導を宜しくお願い致します。

回答No.1

nishi6 · ベストアンサー

質問にある表がSheet2にあるとします。出力はSheet1になります。

ユーザーフォーム(UserForm1)を挿入し、コンボボックス(ComboBox1)を貼り付けます。

ComboBox1のプロパティの『RowSource』を『Sheet2!A1:A3』とします。
これは、Sheet2の表の一番左を指定しています。

UserForm1のコードウインドウに下をコピーして貼り付けます。
↓
Private Sub ComboBox1_Click()
　　Dim selIndex As Integer　　'コンボボックスで選んだインデックス

　　selIndex = ComboBox1.ListIndex

　　'シート1に書き込む
　　With Worksheets("Sheet1")
　　　　.Cells(1, 1) = Worksheets("Sheet2").Cells(selIndex + 1, 1)　　'A1にセット
　　　　.Cells(2, 2) = Worksheets("Sheet2").Cells(selIndex + 1, 2)　　'B2にセット
　　　　.Cells(3, 3) = Worksheets("Sheet2").Cells(selIndex + 1, 3)　　'C3にセット
　　　　.Cells(1, 4) = Worksheets("Sheet2").Cells(selIndex + 1, 4)　　'D1にセット
　　End With
End Sub

お礼

返事が大変遅れてしまいまして申し訳ありませんでした。nishi6さんの書かれている通りにしましたら出来ました。本当にありがとうございました。これからは、もっと勉強します。また宜しくお願い致します。