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

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

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

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

Q&A

解決済

1回答

406閲覧

VBA オプションボタンを選択した時の処理

退会済みユーザー

退会済みユーザー

総合スコア0

VBA

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

0グッド

0クリップ

投稿2018/07/26 08:31

編集2018/07/26 11:48

C5〜J5セルを結合した箇所にプルダウンを設定しています。
プルダウンの中身は5項目あります。(NO.1〜NO.5)
このプルダウンをオプションボタンに変更しました。(エクセルの開発タブ挿入より。フォームコントロール。)
プルダウンは解除して、C5〜J5セル辺りに配置しています。
オプションボタンはプルダウンと同様にNO.1〜NO.5としています。

現在のコードでは、

VBA

1 2If Range("C5")="NO.1" then 3 4 Range("E8")= "" 5 6End If 7

のようにセルの値を見て処理を行っています。

このような処理をオプションボタンを選択した状態でも、同様に行えるようにするには、どのように記述したら良いでしょうか。

また、オプションボタンの選択をリセットして、全て選択していない状態にするにはどのように記述したら良いでしょうか。

オプションボタンに記載している文字の書式設定方法についても教えていただけますと助かります。

よろしくお願いいたします。

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

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

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

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

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

imihito

2018/07/26 10:52

「エクセルの開発タブ挿入」から追加出来るオプションボタンには2種類ありますがどちらのことでしょうか?(フォームコントロール・ActiveXコントロール)
退会済みユーザー

退会済みユーザー

2018/07/26 11:39

大変失礼いたしました。フォームコントロールの方です。
guest

回答1

0

ベストアンサー

横から失礼します。

オプションボタンとのことですので、プロパティにリンクするセル
というのがあると思います。

そこにアドレスを設定してみてください。
オプションボタンを変更すると値が変わると思います。

あと、オプションボタンをすべてクリアするのはボタンかコマンドボタンを
使って処理する必要があると思います。
処理としてはリンクするセルの値を変更してみてください。
お望みの状態になる値があると思います。

投稿2018/07/27 03:23

s_george

総合スコア35

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

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

退会済みユーザー

退会済みユーザー

2018/07/28 17:13

ありがとうございます。 無事出来ました。
guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

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

ただいまの回答率
85.48%

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

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

質問する

関連した質問