Excel VBA質問箱 IV

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

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


14897 / 76734 ←次へ | 前へ→

【67324】Re:メニューバーに設置したコンボボックスの値を取得したい
質問  やまたか  - 10/11/24(水) 15:07 -

引用なし
パスワード
   sasa さん

>MsgBox Application.CommandBars.ActionControl.Text
で、
コンボボックス選択アクション直後の値取得が可能となるとの事了解致しました。

ついては、もう一つ質問なのですが、
コンポボックスをコード3の様に複数配置し、
各々の値を同時に取得する為には、どの様な対処が可能でしょうか?

"ユーザメニューボタン"がどこにも表れていない事が本質的な原因と思いますが、
メニューバーに配置した"ユーザメニューボタン"の指定の仕方などあるでしょうか?

○コード3
Sub OnCommandButtonAdd()
  Call OnCommandButtonDel
  Set mymbar = Application.CommandBars("Worksheet Menu Bar")
  Set mymbar1 = mymbar.Controls.Add(Type:=msoControlPopup)
  With mymbar1
    .TooltipText = ThisWorkbook.Name
    .Caption = "ユーザメニューボタン"
  End With
  Set mymbar2 = mymbar1.Controls.Add(Type:=msoControlButton)
  With mymbar2
    .Style = msoButtonIconAndCaption
    .Caption = "XX"
    .OnAction = "OnCbarChg"
  End With
  Set mymbar2 = mymbar1.Controls.Add(Type:=msoControlComboBox)
  With mymbar2
    .Caption = "ComboBox"
    .OnAction = "コンボボックス値表示"
    .AddItem "表示A"
    .AddItem "表示B"
    .ListIndex = 1
  End With
  Set mymbar2 = mymbar1.Controls.Add(Type:=msoControlComboBox)
  With mymbar2
    .Caption = "ComboBox2"
    .OnAction = "コンボボックス値表示"
    .AddItem "表示C"
    .AddItem "表示D"
    .ListIndex = 1
  End With
End Sub
Sub コンボボックス値表示()
   MsgBox Application.CommandBars("Worksheet Menu Bar").Controls("ComboBox").Text ←ダメ例※お恥ずかしい...
   MsgBox Application.CommandBars.ActionControl.Text               ←アクション直後の値
   コンボボックス値表示の値表示  ←やりたい事
   コンボボックス値表示2の値表示 ←やりたい事
End Sub

1 hits

【67321】メニューバーに設置したコンボボックスの値を取得したい やまたか 10/11/24(水) 11:50 質問
【67322】Re:メニューバーに設置したコンボボックス... sasa 10/11/24(水) 12:30 回答
【67323】Re:メニューバーに設置したコンボボックス... やまたか 10/11/24(水) 14:52 お礼
【67324】Re:メニューバーに設置したコンボボックス... やまたか 10/11/24(水) 15:07 質問
【67325】Re:メニューバーに設置したコンボボックス... sasa 10/11/24(水) 15:29 回答
【67326】Re:メニューバーに設置したコンボボックス... やまたか 10/11/24(水) 19:16 お礼
【67327】Re:メニューバーに設置したコンボボックス... sasa 10/11/25(木) 0:56 回答
【67376】Re:メニューバーに設置したコンボボックス... やまたか 10/11/29(月) 11:46 お礼

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