Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

14897 / 76734

←次へ　｜　前へ→


	【67324】Re:メニューバーに設置したコンボボックスの値を取得したい

やまたか - 10/11/24(水) 15:07 -


	引用なし

	パスワード

sasa さん

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

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

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

○コード３
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