Excel VBA質問箱 IV

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

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


8531 / 13646 ツリー ←次へ | 前へ→

【32710】メニューボタンについて おーとまっちっく 05/12/21(水) 9:22 質問[未読]
【32711】Re:メニューボタンについて だるま 05/12/21(水) 9:34 発言[未読]
【32713】Re:メニューボタンについて おーとまっちっく 05/12/21(水) 10:29 質問[未読]
【32746】Re:メニューボタンについて おーとまっちっく 05/12/21(水) 16:00 質問[未読]
【32755】Re:メニューボタンについて だるま 05/12/21(水) 16:45 回答[未読]
【32758】Re:メニューボタンについて だるま 05/12/21(水) 16:51 発言[未読]
【32763】Re:メニューボタンについて おーとまっちっく 05/12/21(水) 18:16 お礼[未読]

【32710】メニューボタンについて
質問  おーとまっちっく  - 05/12/21(水) 9:22 -

引用なし
パスワード
    おはようございます。
ご無沙汰しております。
ひとつ質問があります。
実は、メニューボタンについてなんですが、前回ひとつのメニューボタンから
複数のメニューボタンを作るということでお聞きしたと思うのですが、
今度は、その複数のメニューボタンのひとつからさらに、複数のメニューボタン
を作りたいのですが、どうすればいいのでしょうか?
お忙しい中すみませんが、お願いします。

【32711】Re:メニューボタンについて
発言  だるま WEB  - 05/12/21(水) 9:34 -

引用なし
パスワード
   こんにちは

前回のスレッドにリンクを貼るか、あらためて質問内容の詳細を書きましょう。^d^

【32713】Re:メニューボタンについて
質問  おーとまっちっく  - 05/12/21(水) 10:29 -

引用なし
パスワード
   だるまさん、はじめまして。
調べたところ、違う方が、その質問
をしておりました。
自分では、ありませんでした。
すみません。
で、その方の質問と回答内容を以下のリンク
に貼り付けておきました。
よろしくお願いします。


http://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=23655;id=excel

【32746】Re:メニューボタンについて
質問  おーとまっちっく  - 05/12/21(水) 16:00 -

引用なし
パスワード
   ちょっと足りないところがありましたね。
先のサイトには、質問の内容が入っていませんでした。
すみません。
このサイトには、質問の内容と回答があります。
まことにすみませんでした。
お忙しいところすみませんが、回答の方よろしくお願いします。

>http://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;page=8899;id=excel

【32755】Re:メニューボタンについて
回答  だるま WEB  - 05/12/21(水) 16:45 -

引用なし
パスワード
   >調べたところ、違う方が、その質問
>をしておりました。
>自分では、ありませんでした。

なんか変ですが、まあいいです。^d^

でも、はじめのリンク先とあとのリンク先では内容がぜんぜん違うと思いますが。
何をお聞きになりたいのかがいまいち分かりません。

とりあえず最初の質問、ネストしたメニューの作り方と解釈して一例です。
(但し、通常私はこういう書き方(Withで書いてしまう)はせず、オブジェクト
変数を使うのですが、長くなるのでこんな書き方にしました。)

Sub test()
  Dim myBar As CommandBar
  Dim myPop As CommandBarPopup
  Dim myButton As CommandBarButton
  
  Set myBar = Application.CommandBars("Worksheet Menu Bar")
  
  With myBar
    With .Controls.Add(Type:=msoControlPopup, temporary:=True)
      .Caption = "一段目-1"
      With .Controls.Add(Type:=msoControlPopup, temporary:=True)
        .Caption = "二段目-1"
        
        With .Controls.Add(Type:=msoControlPopup, temporary:=True)
          .Caption = "三段目-1"
          With .Controls.Add(Type:=msoControlButton, temporary:=True)
            .Caption = "1-1-1-1"
            .OnAction = "aaa"
          End With
          With .Controls.Add(Type:=msoControlButton, temporary:=True)
            .Caption = "1-1-1-2"
            .OnAction = "bbb"
          End With
        End With
        With .Controls.Add(Type:=msoControlPopup, temporary:=True)
          .Caption = "三段目-2"
          With .Controls.Add(Type:=msoControlButton, temporary:=True)
            .Caption = "1-1-2-1"
            .OnAction = "ccc"
          End With
          With .Controls.Add(Type:=msoControlButton, temporary:=True)
            .Caption = "1-1-2-2"
            .OnAction = "ddd"
          End With
        End With
        
      End With
    End With
  End With
  
End Sub

【32758】Re:メニューボタンについて
発言  だるま WEB  - 05/12/21(水) 16:51 -

引用なし
パスワード
   >  Dim myPop As CommandBarPopup
>  Dim myButton As CommandBarButton
これは不要でした、消し忘れです。^d^

【32763】Re:メニューボタンについて
お礼  おーとまっちっく  - 05/12/21(水) 18:16 -

引用なし
パスワード
   だるまさんのとおりにやってみたら、そのとおりうまくいきました。
お忙しい中、本当にどうもありがとうございます。
また、先ほど、質問の内容を確認しましたら、質問の内容とまったく違う
リンクを貼り付けいて、質問の内容がわからないものになっていました。
質問をした私自身、深く反省しております。
本当にどうもすみませんでした。
こんな不完全な質問に対して、親切にお答えいただき、まことに
ありがとうございます。
また、何かあったら、よろしくお願いします。

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