|
こんにちは
下記のコードを「ThisWorkbook」のモジュールに記載
(ファイルOp時にコンボボックスに値を設定します)
該当シート名は「Sheet1」としています。
Private Sub Workbook_Open()
Dim frm(6) As String, i As Long
frm(0) = "December2005"
frm(1) = "February2006"
frm(2) = "January2006"
frm(3) = "March2006"
frm(4) = "November2005"
frm(5) = "October2005"
frm(6) = "September2005"
For i = 0 To 6
Worksheets("Sheet1").ComboBox1.AddItem (frm(i))
Next i
End Sub
下記のコードをSheet1(コンボボックスとコマンドボタンがあるシート)の
シートモジュールに記載
Private Sub CommandButton1_Click()
On Error GoTo End_Len
UserForms.Add(Me.ComboBox1.Value).Show
On Error GoTo 0
End_Len:
End Sub
|
|