ExcelのVBAにてキーになるものを入力してデータを振分けたい

質問

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

　　（列）　　１　　　２　　　３　
（行）　
　１　　　　　Ａ　　　Ｂ　　　Ｃ
　２　　　　　○　 　△　 　×
　３　　　　　ア　　 イ　　 　ウ

(1)sheet1にコンボボックスにてＡを入力する。Ａ、Ｂ、Ｃは、それぞれ決められたセルにコピーされる。

(2)sheet1にコンボボックスにて○を入力する。○、△、×は、それぞれ決められたセルにコピーされる。

(1)と(2)のコピーされる場所は、同じ場所です。

というようなものをExcelのＶＢＡにて作成したいのですが、ＶＢＡは、あまりよくわかりません。

宜しくお願い致します。

回答No.1

papayuka · ベストアンサー

こんにちは。

ComboBox1.ListFillRange が Sheet2!A1:A3　だとして、

Private Sub ComboBox1_Change()
Dim i As Integer
　i = ComboBox1.ListIndex + 1
　ActiveCell.Activate
　Sheet2.Range("A" & i).Resize(1, 3).Copy _
　　　　　　Destination:=Sheet1.Range("D1")
End Sub

これで、Sheet1の D1:F1 にコピーします。

この例がご希望動作なら、入力規則とVLOOKUP関数 だけで出来るような気がしますが。

お礼

早速のご回答をありがとうございました。勉強不足でした。