シートの条件選択

質問

EXCEL2003で下記のようにユーザーフォーム上のオプションボタンと
チェックボックスの選択状況に応じてシートを選択するようにしていました
が、EXCEL2007で実行したら、「sel_sw」のところで
「コンパイルエラー：プロジェクトおよびライブラリが見つかりません」
とエラーが出てしまいました。

EXCEL2007ではどのように記述すればよいか、教えていただけますでしょうか。
よろしくお願いします。

---------------------------------------------------------------

Private Sub 印刷する_Click()

UserForm9.Hide
With UserForm9
If .OptionButton1 = False And .OptionButton2 = False Then

MsgBox ("オプションボタン選択")
GoTo error
End If
If .CheckBox2 = False And .CheckBox3 = False And .CheckBox4 = False And .CheckBox5 = False Then
MsgBox ("チェックボックスを選択")
GoTo error
Else
sel_sw = True
If .CheckBox2 = True And .OptionButton1 = True Then
Sheets("Ａ").Select sel_sw
sel_sw = False
End If
If .CheckBox2 = True And .OptionButton2 = True Then
Sheets("Ｂ").Select sel_sw
sel_sw = False
End If
If .CheckBox3 = True And .OptionButton1 = True Then
Sheets("Ｃ").Select sel_sw
sel_sw = False
End If
If .CheckBox3 = True And .OptionButton2 = True Then
Sheets("Ｄ").Select sel_sw
sel_sw = False
End If
If .CheckBox4 = True Then
Sheets("Ｅ").Select sel_sw
sel_sw = False
End If
If .CheckBox5 = True Then
Sheets("Ｆ").Select sel_sw
sel_sw = False
End If
End If

End With

Exit Sub
error:
UserForm9.Show
End Sub

回答No.1

satoron666 · ベストアンサー

http://pasofaq.jp/office/access/compileerror.htm
こういうことでしょうか？

えーと、良くわからないのですが、
sel_swの宣言はどこにされているのですか？

Dim sel_sw As Boolean
のような宣言が見当たりません…

それでも大丈夫なやつですかね？

お礼

ご指摘ありがとうございます！

sel_swの宣言がありませんでした。

Dim sel_sw As Boolean
で、解決しました。

ありがとうございました！