|
▼初心者です。 さん:
こんばんは。
サンプルですが、こんな感じでしょうか?
ThisWorkbookモジュールに
Private Sub Workbook_Open()
Sheets("sheet1").ComboBox1.List = _
Array("テスト1", "テスト2", "テスト3", "テスト4", "テスト5")
End Sub
シートモジュールに
Private Sub ComboBox1_Change()
Select Case ComboBox1.ListIndex
Case 0
Range("A1").Value = "あ"
Case 1
Range("A2").Value = "い"
Case 2
Range("A3").Value = "う"
Case 3
Range("A4").Value = "え"
Case 4
Range("A5").Value = "お"
End Select
End Sub
↓これだとシートの指定がありませんよ。
>Private Sub Workbook_Open()
>With ComboBox1
> .AddItem "テスト1"
> .AddItem "テスト2"
> .AddItem "テスト3"
> .AddItem "テスト4"
> .AddItem "テスト5"
>
> End With
>
>
>End Sub
>
|
|