ワークシート上に貼り付けてあるオプションボタンの状態の取得ですが、フォームのオプションボタンなら
例えば、
MsgBox ActiveSheet.OptionButtons("Option Button 44").Value で、オンなら1、オフなら-4146が返ります。
またActiveSheet.OptionButtons("Option Button 44").Value=xlOnで オンに出来ます。
ところがフォームじゃないコントロールツールボックスのオプションボタンは
MsgBox ActiveSheet.Shapes("OptionButton30").Valueでも
MsgBox ActiveSheet.Controls("OptionButton30").Valueでもエラーになります。
どうやって取得すればいいのでしょうか?
どうやてOn Off を指示すればいいのでしょうか?
No.1ベストアンサー
- 回答日時:
同一ワークシート内にオプションボタン1つ、コマンドボタン一つを配置して、コマンドボタンに、現在のオプションボタンの値をMSGBOXで表示させ、その後OFF(False)にするようなサンプルを作って、Excel2000で試してみました。
Private Sub CommandButton1_Click()
MsgBox OptionButton1.Value
OptionButton1.Value= False
End Sub
というコードです。
とりわけ問題なく動作しました。
LinkCellを指定するかどうか、複数配置かどうかで微妙に動作が異なるようです。
参考までに。
No.2
- 回答日時:
Private Sub OptionButton1_Click()
MsgBox "aaa"
MsgBox OptionButton1.Value
OptionButton1.Value = False
End Sub
これをコード内にポイントして、そのままF5で実行します。
FALSEかTRUEと表示されます。
シートのボタンをクリックすると、FALSEかTRUEと表示されます。
これで判ります。
(1)xlOn,xlOff
(2)0、-1,1
(3)TRUE,FALSE
などやってみるのが要領か?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- JavaScript コードレビューをお願いします。 1 2022/07/16 05:38
- JavaScript console.logがどうしても2つ機能しないのでアドバイスをくださいお願いします 2 2022/07/07 22:13
- JavaScript 入力フォームの javascript で メールアドレスの正規チェックをを行い、ボタンをクリックして 2 2022/04/27 16:06
- Visual Basic(VBA) 複数シート一括作成後に、特定範囲の数式は値で貼り付けしたい 3 2022/10/07 11:18
- Visual Basic(VBA) Accessフォームで全レコードを指定のExcelのセルへ転送し印刷する方法について 2 2022/09/08 18:23
- JavaScript ①入力フォーム→②確認表示画面→③送信完了画面のコードを書いているのです、 入力フォームから受け取っ 2 2022/05/10 16:45
- HTML・CSS ボタンをクリックした時に、入力フォームのすぐ下部に、「入力欄が空白です」というテキストメッセージが表 1 2022/04/27 16:25
- JavaScript javascriptのちょっとした動作不良(原因は突き止めたのですが) 1 2023/06/15 19:58
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) エクセル VBAについて教えてください 2 2023/04/26 13:25
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
エクセルVBA オプションボタンのチェックを外したい
Excel(エクセル)
-
Excel ラジオボタンのリセットを作りたい
Excel(エクセル)
-
エクセルVBAでオプションボタンを無効にする方法
Excel(エクセル)
-
-
4
Excelシート上のオプションボタンを監視
Excel(エクセル)
-
5
ラジオボタンのオンとオフ
Excel(エクセル)
-
6
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
7
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
8
Excel-VBA>コントロールをグレイアウトするには?
Excel(エクセル)
-
9
VBAのコマンドボタンの文字列の改行方法は?
Visual Basic(VBA)
-
10
オプションボタンの背景を透明にしたい
その他(Microsoft Office)
-
11
オプションボタンを別シートに連動
Excel(エクセル)
-
12
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
13
EXCEL2013 VBA ListBox 未選択
Excel(エクセル)
-
14
UserForm1.Showでエラーになります。
工学
-
15
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
16
VBA シートのボタン名を変更したい
Visual Basic(VBA)
-
17
エクセルVBA テキストボックスに3桁ごとにコンマ
Visual Basic(VBA)
-
18
エクセル・VBA CheckBoxのオブジェクト名に変数を使うことは可能でしょうか?
Excel(エクセル)
-
19
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
-
20
Excelマクロでオプションボタンの名前の変更をしたい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
コマンドボタンを押すたびに大...
-
押したボタンの位置取得(共通の...
-
Accessユーザーフォームでコマ...
-
エクセルVBA
-
エクセルでコマンドボタンを押...
-
ShowAllDataのエラーを回避したい
-
エクセルのコマンドボタンの位...
-
Accessのコマンドボタンの立体...
-
スクロールしてもボタンを常に...
-
チェックボックスで「いずれか1...
-
EXCELでNo.を変えて印刷したい
-
Excel VBA --- コマンドボタ...
-
コマンドボタンがあるかどうか...
-
実行中の作業を中止させるコマンド
-
エクセルVBA シート上にあるコ...
-
MS_AccessからPDFファイルを開...
-
Wordでドラッグした文字列を括...
-
エクセルVBAでOptionButtonのオ...
-
コマンドボタンがきかなくなる
-
コントロールツールボックス
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel:コマンドボタンの移動
-
コマンドボタンを押すたびに大...
-
押したボタンの位置取得(共通の...
-
スクロールしてもボタンを常に...
-
エクセルVBAでOptionButtonのオ...
-
ShowAllDataのエラーを回避したい
-
PPTのコマンドボタンがクリック...
-
エクセルVBA
-
Excel VBA --- コマンドボタ...
-
エクセルVBA シート上にあるコ...
-
Accessのコマンドボタンの立体...
-
コマンドボタンで「終了ボタン...
-
エクセルのコマンドボタンの位...
-
チェックボックスで「いずれか1...
-
コマンドボタンがあるかどうか...
-
EXCELでNo.を変えて印刷したい
-
Wordでドラッグした文字列を括...
-
MS_AccessからPDFファイルを開...
-
Accessユーザーフォームでコマ...
-
InDesignには「1段階戻る」の...
おすすめ情報