Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9137 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 お礼[未読]
【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
【29147】Re:フォームを利用したシートリンクにつ...
回答  Foreach  - 05/9/26(月) 17:36 -
引用なし
パスワード
   ▼sabu さん：
違っているかもしれませんが、、
１，フォームをモードレス表示にしてはいかが？
UserForm1.Show vbModeless
２，ActiveをSelectにかえてみては？
【29150】Re:フォームを利用したシートリンクにつ...
発言  LION  - 05/9/26(月) 18:46 -
引用なし
パスワード
   こんばんは

おせっかいかもしれませんが
ComboBoxにシート名を登録したらいかがでしょうか？
CommandButtonも１つで済みますから。

UserFormにCommandButton１つと
ComboBox１つを配置して下さい。
ComboBoxのリストを選んでCommandButtonをクリック

Private Sub CommandButton1_Click()
Dim myShi As String

myShi = ComboBox1.Value

If myShi = "" Then
　　Exit Sub
End If

Worksheets(myShi).Activate

End Sub

Private Sub UserForm_Initialize()

With ComboBox1
　　.AddItem "Sheet1"
　　.AddItem "Sheet2"
　　.AddItem "Sheet3"
End With

End Sub
【29166】Re:フォームを利用したシートリンクにつ...
お礼  sabu  - 05/9/27(火) 8:19 -
引用なし
パスワード
   ありがとうございます。

エクセルを再起動したら動作しました。
最初はエラーで何度もリセットしたのですが駄目でした。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9137 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free