Excel コンボボックスについて

質問

初めまして。ＶＢＡ初心者です。

コンボボックスを使った計算書を作成しているのですがうまくいきません。
例えばコンボボックスのリストに甲、乙、丙と３つのリストがあり、
甲を選ぶとA1:A10のセルにB1:B10のセルの中身が上書きされ、乙を選ぶとA1:A10にC1:C10が上書きされる・・・というようなものを作りたいのですが・・・。
VBAの本やいろんなサイトを参考にしたのですがうまくいきません。
ChangingCellやReplaceを使ってみたのですがエラーになります。

どなたかよきアドバイスをお願いいたします。

回答No.2

WWolf · ベストアンサー

こんにちは

仮にシート２のA1からC10までに基準となるデータがあるとし、コンボボックスで選んだ項目にてシート１のA1からA10に上書きするという場合。
下記のコードをユーザーフォームのコードに貼り付けてください。
そしてシート２のA1からC10までを埋めてください。
Private Sub ComboBox1_Change()
Dim S(2) As Range
With Worksheets(2)
Set S(0) = .Range("A1:A10")
Set S(1) = .Range("B1:B10")
Set S(2) = .Range("C1:C10")
End With
Worksheets(1).Range("A1:A10").Value = S(ComboBox1.ListIndex).Value
End Sub

Private Sub UserForm_Initialize()
ComboBox1.Clear
ComboBox1.AddItem "甲"
ComboBox1.AddItem "乙"
ComboBox1.AddItem "丙"
End Sub

多分こんな感じを言ってるのだと思いますが、違えばすいません。
頑張って下さい。

お礼

解決しました、ありがとうございます。

回答No.1

marbin

どこかに対応表を作っておくしかないと思います。
シートでもいいですし、VBAコード内でもいいです。

今回は三つだけですのでVBAコード内でもＯＫですね。

Select Case Me.ComboBox1.Value
Case "甲"
"甲"の場合の処理
Case "乙"
"乙"の場合の処理
Case "丙"
"丙"の場合の処理
End Select

お礼

解決しました、ありがとうございます