前提・実現したいこと
CommandBarsコレクションで、メニューのIndexを調べようとしています。
発生している問題・エラーメッセージ
メニューが下記コードで一覧表示させても、文字化けしています。
VBA
1Sub sample5() 2 Dim obj 3 For Each obj In CommandBars("Cell").Controls 4 Debug.Print obj.Caption 5 Next 6End Sub
該当のソースコード
VBA
1Sub test() 2 MsgBox CommandBars("cell").Controls("コピー??(&C)").Index 3End Sub
controls()内の文字がメニューと異なるため、エラーが発生します。
どうして、コンテキストメニューが文字化けしてしまうのでしょうか。
verのせいなのか分からないので、どなたか教えていただけますと幸いです。
試したこと
ここに問題に対して試したことを記載してください。
補足情報(FW/ツールのバージョンなど)
Excel 2016
バージョンアップ前にVBAのStandard資格を受験予定です。(なので、Excelは少し古いVerをもとに作成されています。Excel 2007とかかな?)
Debug.Pringの結果はどうなっていたのでしょうか?
アンダーバーとかであれば、アクセスキー設定のためである可能性があると思いますが。。
はい、下記の通りになります。
切り取り??(&T)
コピー??(&C)
貼り付け??(&P)
形式を選択して貼り付け(&S)...
複合表として??貼り付け(&P)
ス?マ?ー?ト??検索(&L)
データの種類(&Y)
翻訳
セルの??挿入(&E)...
セルの挿入(&E)...
削除(&D)...
数式と値のクリア(&N)
クイック分析(&Q)
スパークライン(&A)
フィルター(&E)
並べ替え(&O)
コメントの挿入(&M)
新しいコメント(&M)
コメントの削除(&M)
コメントの??表示/非表示(&O)
セルの書式設定(&F)...
ドロップダウン リストから選択(&K)...
ふりがなの表示(&S)
名前の??定義(&A)...
ハイパーリンク(&H)...
ハイパーリンク??の編集(&H)...
ハイパーリンク??を開く(&O)
ハイパーリンクの削除(&R)
詳細を展開(&X)
追加アクション(&I)
全画面??表示(&U)
追加操作??(&A)
回答3件
あなたの回答
tips
プレビュー