Excel VBA質問箱 IV

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

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


61253 / 76738 ←次へ | 前へ→

【20108】Re:コンボコックスでシートを切り替える...
回答  Kein  - 04/11/28(日) 15:40 -

引用なし
パスワード
   ではブックを開いたときに、標準ツールバーにコンボボックスを挿入するように
したらどうでしょーか ? 以下のマクロを全て標準モジュールに入れ、いったん
ブックを閉じて再度開いてみて下さい。

Sub Auto_Open()
  Dim WS As Worksheet
 
  With Application.CommandBars("Standard") _
  .Controls.Add(Type:=msoControlComboBox, Temporary:=True)
   .AddItem "[シート選択]"
   For Each WS In Worksheets
     .AddItem WS.Name
   Next
   .Tag = "GetS"
   .Priority = 1
   .OnAction = "Ac_Sheet"
   .DropDownLines = 10
   .ListIndex = 1
  End With
End Sub

Sub Auto_Close()
  Dim Cmb As CommandBarControl
 
  For Each Cmb In CommandBars("Standard").Controls
   If Cmb.Tag = "GetS" Then Cmb.Delete: Exit For
  Next
  ThisWorkbook.Save
End Sub

Sub Ac_Sheet()
  Dim Cmb As CommandBarControl
  Dim MyS As String
 
  For Each Cmb In CommandBars("Standard").Controls
   If Cmb.Tag = "GetS" Then Exit For
  Next
  If Cmb Is Nothing Then Exit Sub
  With Cmb
   If .ListIndex < 2 Then GoTo ELine
   MyS = .List(.ListIndex)
  End With
  With Worksheets(MyS)
   If .Visible = False Then .Visible = True
   .Activate
  End With
  Cmb.ListIndex = 1
ELine:
  Set Cmb = Nothing
End Sub
0 hits

【20090】コンボコックスでシートを切り替えるには... もぐすたー 04/11/27(土) 22:40 質問
【20091】Re:コンボコックスでシートを切り替えるに... Kein 04/11/27(土) 23:44 回答
【20105】Re:コンボコックスでシートを切り替える... もぐすたー 04/11/28(日) 14:39 質問
【20107】Re:コンボコックスでシートを切り替える... Hirofumi 04/11/28(日) 15:38 回答
【20110】Re:コンボコックスでシートを切り替える... もぐすたー 04/11/28(日) 17:47 お礼
【20108】Re:コンボコックスでシートを切り替える... Kein 04/11/28(日) 15:40 回答
【20111】Re:コンボコックスでシートを切り替える... もぐすたー 04/11/28(日) 18:02 質問
【20115】Re:コンボコックスでシートを切り替える... Kein 04/11/28(日) 20:26 回答
【20121】Re:コンボコックスでシートを切り替える... もぐすたー 04/11/28(日) 22:33 質問
【20122】Re:コンボコックスでシートを切り替える... Kein 04/11/29(月) 0:21 回答
【20154】Re:コンボコックスでシートを切り替える... もぐすたー 04/11/29(月) 21:04 お礼

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