Q&A
VBAのタグも付けておいた方がいいと思います。
お世話になっております。
今【menu】シートで選択されているオプションボタンの値を取得したいのですが
どうやってその値を取得するのかが分かりかねるので質問失礼します。
前回の
エクセルで表示範囲が狭まっているシートでその設定を解除したい
の画像で ぼかしツールを使用してしましましたが
処理年月(yyyymm) ◯給与 ◯賞与
と 給与か賞与 を選択出来るようにしております。
その値を
=menu!ほげほげ
と取得したいのですが どういう値かを調べる方法はございませんでしょうか？
【検索と選択】＞【オブジェクトの選択】でその 給与 賞与 あたりを選択すると
「グループ化2」と出ているのですが
そのグループ化を解除して 給与 賞与などをクリックしても上部のインフォメーションが出てくる所には
何も表示されないのです……
新規で【開発】＞【挿入】＞オプションボタン（フォームコントロール）で作成した
オプションボタンに関しては情報が取れるのですが
何故か ◯給与 ◯賞与 はグループ化を解除しても情報が取れないのです……
OfficeStd2010を使用しております。
何か情報をお持ちな方はコメント頂ければ幸いです。
以上お問い合わせいたします。
回答2件
0
ベストアンサー
【開発】＞【デザインモード】
でクリックしてみてはいかがでしょう
Valueでとれると思います。
vba
1debug.print ActiveSheet.OptionButton1.Value
Forms.OptionButton.1にしないでください。
vba
1Worksheets("Menu").OptionButton1.Caption 2Worksheets("Menu").OptionButton2.Caption
投稿2021/01/08 00:19
編集2021/01/08 04:46総合スコア1925
radames1000さん
ありがとうございます。
仰るとおり 【開発】＞【デザインモード】で
OptionButton1 ＝ EMBED("Forms.OptionButton.1","")
と表示されました。
本当にありがとうございます。
こちらの値を取得する方法を調査中です。
追記の
debug.print ActiveSheet.OptionButton1.Value
もありがとうございます。
ですが【Menu】シートの グループ化されているOptionButton1 か OptionButton2
の【項目別】の【表示】の【Caption】の値が欲しいと思っております。
違うシートで
```
=Menu.Forms.OptionButton.1.Value
```
としても＃NAME? でしたので↑で項目＞表示＞Caption の指定方法をご教授頂けますと嬉しく思います。
=Menu.Forms.OptionButton.1.Caption
でもなかったので……
radames1000さん
度々本当にありがとうございます。
仰るとおり
```
Sub GetAtai()
Dim hoge1 As String
hoge1 = Worksheets("Menu").OptionButton1.Caption
Debug.Print hoge1
End Sub
```
とやればその値は取れました。
今現在 グループ化されている 【グループ化2（？）】で
どちらのオプションボタンにチェックが入っているかのチェック
ついている方の値の取得方法を調べ中です。
本当にありがとうございました。
[https://kosapi.com/post-4002/](https://kosapi.com/post-4002/)らへんが怪しいので見中……
質問をコメントで小出しにしないでください。
radames1000さん
大変失礼いたしました。
本スレッドに新規で現状をまとめました。
ご助力頂ければ幸いです。
この度は誠に失礼いたしました。
```VBA
'OptionButton1が選択されている場合
If Worksheets("Menu").OptionButton1.Value Then
With Worksheets("Mail_Edit")
.Range("D2").Value = "「" & Worksheets("Menu").OptionButton1.Caption & "」"
End With
Else
'OptionButton2が選択されている場合
With Worksheets("Mail_Edit")
.Range("D2").Value = "「" & Worksheets("Menu").OptionButton2.Caption & "」"
End With
End If
```
として
https://brain.cc.kogakuin.ac.jp/~kanamaru/lecture/vba2013/01-intro03.html
の 開発＞挿入＞ボタンで動作するようにすると
Mail_Edit シートの D2 にオプションボタンの値が入るようになりました。
本当に助かりました。ありがとうございます！
0
radames1000さん大変失礼いたしました。
まとめると
Sub GetAtai() Dim hoge1 As String hoge1 = Worksheets("Menu").OptionButton1.Caption Debug.Print hoge1 End Sub
で取れる値か
hoge2 = Worksheets("Menu").OptionButton2.Caption
の値か
どちらかにチェックが点いているのでその値を
Mail_Edit シートの D2 に入れるとしたいのです……
投稿2021/01/12 09:43
総合スコア159
CaptionではなくValueを見ればチェックが入っていればTrueですし、
入っていなければFalseです。それで確認してください。
TrueならCaptionをMail_EditのD2に入れればいいです。
本当にありがとうございます。
```
'OptionButton1が選択されている場合
If Worksheets("Menu").OptionButton1.Value Then
With Worksheets("Mail_Edit")
.Range("D2").Value = "「" & Worksheets("Menu").OptionButton1.Caption & "」"
End With
Else
'OptionButton2が選択されている場合
With Worksheets("Mail_Edit")
.Range("D2").Value = "「" & Worksheets("Menu").OptionButton2.Caption & "」"
End With
End If
```
と実装すると Mail_EditシートのD2に値が入るようになりました。
この度はご迷惑をおかけして申し訳ございませんでした。
助かりました。ありがとうございました。
自己解決扱いにされたんですね。
最初の質問は私の回答で解決したと思ったので、コメントや自己回答で質問するのではなく、
せめて質問に追記していただきたかったです。
radames1000さん
大変失礼いたしました。
radames1000さんの回答に追記してそちらで解決したとしました。
不慣れで申し訳ございませんでした。
本当にありがとうございます。
あなたの回答
tips
プレビュー
