Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


52425 / 76732 ←次へ | 前へ→

【29145】フォームを利用したシートリンクについて
質問  sabu  - 05/9/26(月) 17:26 -

引用なし
パスワード
   シートの数が多いためフォームを利用し
ボタンをクリックすることで目的のシートを開くように設定したいです。
実際に作成し、実行するとエラーとなり
"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
2 hits

【29145】フォームを利用したシートリンクについて sabu 05/9/26(月) 17:26 質問
【29147】Re:フォームを利用したシートリンクについて Foreach 05/9/26(月) 17:36 回答
【29150】Re:フォームを利用したシートリンクについて LION 05/9/26(月) 18:46 発言
【29166】Re:フォームを利用したシートリンクについて sabu 05/9/27(火) 8:19 お礼

52425 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free