Excel VBA質問箱 IV

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

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


42888 / 76732 ←次へ | 前へ→

【38905】Re:同じ環境下に有るマクロが動きません。
質問    - 06/6/14(水) 7:46 -

引用なし
パスワード
   ▼漂流民 さん:

おはようございます。
下記のコードで正常に『Test』メニューが表示され、又、リセットも
正常に出来ました。

>Sub test2()
>  Dim i As Long
>  
>  With Application
>   For i = 1 To .CommandBars.Count
>    With .CommandBars(i)
>     If .Name = "Cell" Then
>      With .Controls.Add
>        .Caption = "Test(&T)"
>      End With
>     End If
>    End With
>   Next i
>  End With
>End Sub
>
>Sub test2r()
>  Dim i As Long
>  
>  With Application
>   For i = 1 To .CommandBars.Count
>    With .CommandBars(i)
>     If .Name = "Cell" Then
>      .Reset
>     End If
>    End With
>   Next i
>  End With
>End Sub

上記をどのように、Worksheet_BeforeRightClickイベントへ組み込めば、
良いのでしょうか?
For〜Nextステートメントで、CommandBars.Count(コマンドバーの数?)
If .Name = "Cell" Then(コマンドバーの数の名前がCellであれば・・・ですよね?)
初心者なためコードの意味がいまいち呑み込めません。
宜しければ、ご教授をよろしくお願いします。
2 hits

【38837】同じ環境下に有るマクロが動きません。 06/6/12(月) 7:25 質問
【38857】Re:同じ環境下に有るマクロが動きません。 漂流民 06/6/12(月) 21:23 発言
【38869】Re:同じ環境下に有るマクロが動きません。 06/6/13(火) 7:42 質問
【38898】Re:同じ環境下に有るマクロが動きません。 漂流民 06/6/13(火) 22:53 発言
【38905】Re:同じ環境下に有るマクロが動きません。 06/6/14(水) 7:46 質問
【38942】Re:同じ環境下に有るマクロが動きません。 漂流民 06/6/14(水) 23:22 発言
【39006】Re:同じ環境下に有るマクロが動きません。 06/6/15(木) 19:35 お礼

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