|
シートの数が多いためフォームを利用し
ボタンをクリックすることで目的のシートを開くように設定したいです。
実際に作成し、実行するとエラーとなり
"WorksheetクラスのActivateメゾットが失敗しました。"
表示されます。
アドバイスお願いいたします。
Private Sub CommandButton1_Click()
Worksheets("sheet13").Activate
End Sub
Private Sub CommandButton10_Click()
Worksheets("sheet10").Activate
End Sub
Private Sub CommandButton11_Click()
Worksheets("sheet11").Activate
End Sub
Private Sub CommandButton12_Click()
Worksheets("sheet12").Activate
End Sub
Private Sub CommandButton13_Click()
Worksheets("sheet1").Activate
End Sub
Private Sub CommandButton2_Click()
Worksheets("sheet2").Activate
End Sub
Private Sub CommandButton3_Click()
Worksheets("sheet3").Activate
End Sub
Private Sub CommandButton4_Click()
Worksheets("sheet4").Activate
End Sub
Private Sub CommandButton5_Click()
Worksheets("sheet5").Activate
End Sub
Private Sub CommandButton6_Click()
Worksheets("sheet6").Activate
End Sub
Private Sub CommandButton7_Click()
Worksheets("sheet7").Activate
End Sub
Private Sub CommandButton8_Click()
Worksheets("sheet8").Activate
End Sub
Private Sub CommandButton9_Click()
Worksheets("sheet9").Activate
End Sub
|
|