Excel VBA質問箱 IV

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

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


61240 / 76732 ←次へ | 前へ→

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

引用なし
パスワード
   >エクセルの標準機能としても使用
ということなら、アドインにする方法もありますが、配布を目的とせず
>ファイル毎に記述しなくても、エクセルを立ち上げると常に機能
ということをするだけなら、Personal.xls を使います。Personal.xls の作り方
などは↓の「マクロの使い方 5 」を参考にして下さい。
http://park11.wakwak.com/~miko/Excel_Note/14-01_macro.htm#14-01-01
で、Personal.xls が出来たら、その標準モジュールに以下のマクロを入れて下さい。

Sub Auto_Open()
  Dim CB As CommandBar
  Dim WS As Worksheet
 
  On Error Resume Next
  With Application.CommandBars
   Set CB = .Item("SheetSelect")
   If Err.Number <> 0 Then
     Set CB = .Add("SheetSelect", msoBarFloating, False, True)
     With CB.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
     Err.Clear
   End If
   On Error GoTo 0
   With .Item("Standard")
     CB.left = .Width + 1: CB.top = .top
   End With
  End With
  CB.Visible = True: Set CB = Nothing
End Sub

Sub Auto_Close()
  With CommandBars("SheetSelect")
   If .Visible = True Then .Visible = False
  End With
  ThisWorkbook.Save
End Sub

Sub Ac_Sheet()
  Dim Cmb As CommandBarControl
  Dim MyS As String
 
  Set Cmb = CommandBars("SheetSelect").Controls(1)
  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 お礼

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