Excel VBA質問箱 IV

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

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


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

14899 / 76738

←次へ　｜　前へ→


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

やまたか - 10/11/24(水) 19:16 -


	引用なし

	パスワード

sasa さん

ご教授有難う御座いました。

メニューバーやコマンドバーでコンボボックスの値を取得出来るようになりました。
”変数set”、”順番通りに指定すればよい”、Captionが、理解するポイントでした。
なるほどです。本当に有難う御座いました。

（出来上がったコードの例）
・・・・
　　Set mymbar2 = mymbar1.Controls.Add(Type:=msoControlComboBox)
　　With mymbar2
　　　　.Caption = "コマンドバーフォーム表示条件"
　　　　.OnAction = "OnCbarFormAdd"
　　　　.BeginGroup = True
　　　　.AddItem "Cbar優先"
　　　　.AddItem "Form優先"
　　　　.AddItem "CbarForm交互"
　　　　.AddItem "CbarForm同時"
　　　　.ListIndex = 1
　　End With
　　Set mymbarCBox1 = Application.CommandBars("Worksheet Menu Bar").Controls(cn_mbaricon).Controls(mymbar2.Caption)　　←これですね！
・・・・
　　msgbox mymbarCBox1.Text
・・・・

3 hits

▼

【67321】メニューバーに設置したコンボボックスの値を取得したい やまたか 10/11/24(水) 11:50