VBA コンボボックスの値による条件分岐

質問

１２カ月分のブックがあり、
コンボボックスで指定した月のブックを開くマクロはどう記述すれば良いでしょうか？
BOOK（"1月"）のSheet1にコンボボックス１と
コマンドボタン１があります。

コンボボックスには下記をリストにしています。
Private Sub Workbook_Open()
With Worksheets("Seet1").ComboBox1
.AddItem (" ２月")
.AddItem (" ３月")
.AddItem (" ４月")
.AddItem (" ５月")
.AddItem (" ６月")
.AddItem ("７月")
.AddItem ("８月")
.AddItem ("９月")
.AddItem ("１０月")
.AddItem ("１１月")
.AddItem ("１２月")
End With
End Sub

Private Sub CommandButton1_Click()
If ComboBox1.Value = "２月" Then
Workbooks.Open Filename:="C:\testBook\２月.xlsm"
ElseIf ComboBox1.Value = "2011年度 ３月売上" Then
Workbooks.Open Filename:="C:\testBook\３月.xlsm"

　　　　中略

End If
End Sub

上記ではエラーとなります。
基本もままならない素人で申し訳ありませんが、
ご教授願います。

回答No.2

imogasi · ベストアンサー

前半は
１２個もなれば
Thisworkbookに
Private Sub Workbook_Open()
With Worksheets("Sheet1").ComboBox1
For i = 1 To 12
m = StrConv(i, vbWide)
.AddItem (m & "月")
Next i
End With
End Sub
などどうですか。
ーー
後半は　Sheet1のクリックイベントに
（２００７以後ならｘｌｓｍに変えてください。バージョンを質問に書いておいたほうが良い）
Private Sub ComboBox1_Click()
b = ComboBox1.Value
MsgBox b
Workbooks.Open Filename:="C:\Documents and Settings\XXXX\My Documents\" & b & ".xls"
End Sub
コマンドボタンを儲け、そのクリックイベントにしなくても出来る。
＝＝＝
With Worksheets("Seet1").ComboBox1
はSheet1のミスタイプ？注意。
＝＝＝
イベントというのは、思考ではIF（もしも・・なら）の要素が入るが、それが必要ないようにしてくれるのが、この仕組み。ここがよくわかってないようだ。

お礼

ありがとうございました。
無事できました。
詳しく解説していただいた上、
このように参考になるサンプルをいただき、
大変勉強になりました。

回答No.1

keithin

private sub CommandButton1_Click()
if me.combobox1 = "" then exit sub
workbooks.open filename:="C:\testBook\" & me.combobox1 & ".xlsm"
end sub
のように。