質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.35%
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Q&A

解決済

2回答

14732閲覧

EXCELのオプションボタンの値を取得したい が選択出来ない

ma2hiro

総合スコア159

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

0グッド

0クリップ

投稿2021/01/07 09:31

編集2021/01/08 04:37

お世話になっております。

今【menu】シートで選択されているオプションボタンの値を取得したいのですが
どうやってその値を取得するのかが分かりかねるので質問失礼します。

前回の
エクセルで表示範囲が狭まっているシートでその設定を解除したい
の画像で ぼかしツールを使用してしましましたが

処理年月(yyyymm) ◯給与 ◯賞与

と 給与か賞与 を選択出来るようにしております。

その値を

=menu!ほげほげ

と取得したいのですが どういう値かを調べる方法はございませんでしょうか?

【検索と選択】>【オブジェクトの選択】でその 給与 賞与 あたりを選択すると
「グループ化2」と出ているのですが
そのグループ化を解除して 給与 賞与などをクリックしても上部のインフォメーションが出てくる所には
何も表示されないのです……

新規で【開発】>【挿入】>オプションボタン(フォームコントロール)で作成した
オプションボタンに関しては情報が取れるのですが
何故か ◯給与 ◯賞与 はグループ化を解除しても情報が取れないのです……

OfficeStd2010を使用しております。

何か情報をお持ちな方はコメント頂ければ幸いです。

以上お問い合わせいたします。

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

radames1000

2021/01/08 03:56

VBAのタグも付けておいた方がいいと思います。
ma2hiro

2021/01/08 04:37

コメントありがとうございます。 修正しました…… VBAよりEXCELっぽかったのでタイトルもEXCELよりに修正しました。
guest

回答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
radames1000

総合スコア1925

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

ma2hiro

2021/01/08 02:45

radames1000さん ありがとうございます。 仰るとおり 【開発】>【デザインモード】で  OptionButton1 = EMBED("Forms.OptionButton.1","") と表示されました。 本当にありがとうございます。 こちらの値を取得する方法を調査中です。
ma2hiro

2021/01/08 04:35

追記の debug.print ActiveSheet.OptionButton1.Value もありがとうございます。 ですが【Menu】シートの グループ化されているOptionButton1 か OptionButton2 の【項目別】の【表示】の【Caption】の値が欲しいと思っております。 違うシートで ``` =Menu.Forms.OptionButton.1.Value ``` としても#NAME? でしたので↑で項目>表示>Caption の指定方法をご教授頂けますと嬉しく思います。 =Menu.Forms.OptionButton.1.Caption でもなかったので……
ma2hiro

2021/01/08 07:30 編集

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

2021/01/09 11:37

質問をコメントで小出しにしないでください。
ma2hiro

2021/01/12 09:45

radames1000さん 大変失礼いたしました。 本スレッドに新規で現状をまとめました。 ご助力頂ければ幸いです。 この度は誠に失礼いたしました。
ma2hiro

2021/01/22 07:44 編集

```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 にオプションボタンの値が入るようになりました。 本当に助かりました。ありがとうございます!
guest

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

ma2hiro

総合スコア159

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

radames1000

2021/01/12 11:35

CaptionではなくValueを見ればチェックが入っていればTrueですし、 入っていなければFalseです。それで確認してください。 TrueならCaptionをMail_EditのD2に入れればいいです。
ma2hiro

2021/01/13 01:28

本当にありがとうございます。 ``` '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

2021/01/13 01:53

自己解決扱いにされたんですね。 最初の質問は私の回答で解決したと思ったので、コメントや自己回答で質問するのではなく、 せめて質問に追記していただきたかったです。
ma2hiro

2021/01/13 02:04

radames1000さん 大変失礼いたしました。 radames1000さんの回答に追記してそちらで解決したとしました。 不慣れで申し訳ございませんでした。 本当にありがとうございます。
guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.35%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問