VBAの勉強を始めてみた

タイトルの通りVBAの勉強を始めました。効率化と暇つぶしを兼ねています。VBA以外の話題もあるよ(笑)

コマンドバーコントロール(Cell)のリスト表示

右クリック時のショートカットメニューにマクロを登録する際、上から何番目にメニューを配置するか指定できますが、EXCELの標準で隠されたメニューなどがあるため、正しい順番が分からないことがあります。
その際には下記のマクロで右クリック(Cell用)ショートカットメニューのすべてをリスト表示することができます。これはマイクロソフトのヘルプページにあるコマンドバーのリスト化のマクロをCell用に改良したものです。実行すると、A1~C1列にリストが表示されるので、何もない空白のSheetなどで実行してください。


***************************************
  Sub Cell用コマンドバーコントロールの情報を取得()
      Dim i As Integer
     
      For i = 1 To Application.CommandBars("Cell").Controls.Count
          'インデックス番号の取得
          Cells(i, 1) = Application.CommandBars("Cell").Controls(i).Index
          'Cell用コマンドバーコントロールの名前の取得
          Cells(i, 2) = Application.CommandBars("Cell").Controls(i).Caption
          'Cell用コマンドバーコントロールの種類の取得
          Select Case Application.CommandBars("Cell").Controls(i).Type
          Case 1
              Cells(i, 3) = "msoControlButton"
          Case 10
              Cells(i, 3) = "msoControlPopup"
          End Select
      Next
  End Sub
***************************************

 ※SubからEnd Subまでをコピペしてマクロを使用できます。使用の際は自己責任でお願いいたします。

 

以下の記事にオリジナルのコードを紹介しています。

 

kouten0430.hatenablog.com