- ベストアンサー
エクセルVBAでOptionButtonのオンオフ取得
ワークシート上に貼り付けてあるオプションボタンの状態の取得ですが、フォームのオプションボタンなら 例えば、 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 を指示すればいいのでしょうか？
- merlionXX
- お礼率93% (1499/1605)
- オフィス系ソフト
- 回答数2
- ありがとう数2
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
同一ワークシート内にオプションボタン１つ、コマンドボタン一つを配置して、コマンドボタンに、現在のオプションボタンの値をＭＳＧＢＯＸで表示させ、その後OFF（False)にするようなサンプルを作って、Excel2000で試してみました。 Private Sub CommandButton1_Click() MsgBox OptionButton1.Value OptionButton1.Value= False End Sub というコードです。 とりわけ問題なく動作しました。 ＬｉｎｋＣｅｌｌを指定するかどうか、複数配置かどうかで微妙に動作が異なるようです。 参考までに。
その他の回答 (1)
- imogasi
- ベストアンサー率27% (4737/17068)
Private Sub OptionButton1_Click() MsgBox "aaa" MsgBox OptionButton1.Value OptionButton1.Value = False End Sub これをコード内にポイントして、そのままF5で実行します。 FALSEかTRUEと表示されます。 シートのボタンをクリックすると、FALSEかTRUEと表示されます。 これで判ります。 （１）xlOn,xlOff （２）０、－１，１ （３）TRUE,FALSE などやってみるのが要領か？
お礼
有難うございます。 よくわかりました。
関連するQ&A
- Excel VBA OptionButton
Excel VBAのOptionButtonについてお伺いします。 現在、Excel2007にてユーザーフォームを作成しております。 シート上の文字によって、ユーザーフォーム上のオプションボタンの ON/OFFを切り替えたいのですがうまく動作しません。 具体的には・・・・ ユーザフォーム上のCommandButton1を押下すると、 sheet2のE22セルの文字がTRUEの場合、ユーザーフォーム上の OptionButton1がON・OptionButton2がOFF sheet2のE22セルの文字がFALSEの場合、ユーザーフォーム上の OptionButton1がOFF・OptionButton2がON 以下のように考えていたのですが、動作しません。 ------------------------------ Private Sub CommandButton1_Click() If sheet2.Range("E22").Value = "TRUE" Then OptionButton1.Value = True ElseIf sheet2.Range("E22").Value = "FALSE" Then OptionButton2.Value = True End If ------------------------------ お知恵お借りしたく存じます。 宜しくお願い致します。
- ベストアンサー
- Visual Basic
- Excelの「OptionButton」について
Excelで新しいｼｰﾄを開き、VBE画面でﾕｰｻﾞｰﾌｫｰﾑを挿入し、そのﾌｫｰﾑにOptionButton1とOptionButton2を配置しました。OptionButton1，2のControlSourceをそれぞれA1、A2にしOptionButton1のValueをTrueにします。 この状態でﾌｫｰﾑを表示し最初にOptionButton2をｸﾘｯｸすると両方のｵﾌﾟｼｮﾝﾎﾞﾀﾝがOffになってしまいます。ﾌｫｰﾑを表示したまま２回目からのｸﾘｯｸではOn、Offがうまく切り替わります。ControlSourceをｾｯﾄしなければ1回目のｸﾘｯｸでもうまく切り替わるみたいです。作り方がおかしいのでしょうか？
- 締切済み
- オフィス系ソフト
- エクセル VBA OptionButtonからTextBox
すいません！ OptionButtonなら 下記の記述でエラー表示を 簡単にできるのですが これがOptionButtonではなく TextBoxならどのように変化したら 良いのでしょうか？ すいません、教えて下さい！ Private Sub 記録_Click() Dim i As Integer Dim Cnt As Integer Cnt = 0 For i = 1 To 6 Step 1 If Me.Controls("OptionButton" & i).Value Then Cnt = i Exit For End If Next i If Cnt = 0 Then MsgBox "選択されていません" Exit Sub End If If Me.Controls("Combobox" & Cnt).Value = "" Then MsgBox Me.Controls("OptionButton" & Cnt).Caption & " の内容が選択されていません" Exit Sub End If With 記入フォーム .TextBox5.Value = Me.Controls("OptionButton" & Cnt).Caption .TextBox6.Value = Me.Controls("Combobox" & Cnt).Value End With Unload Me End Sub
- ベストアンサー
- オフィス系ソフト
- excel VBA 作成したUserFormにoptionButton
excel VBA 作成したUserFormにoptionButtonを多数配置しています。このUserFormをワークシート上に再表示すとる、チェック項目に入力したチェックが消えてしまいます。消えない方法が解りません。 private sub OptionButton1_Click() Activesheet.Shapes("図形1").Visible=False '図形1表示 End sub private sub OptionButton1_Click() Activesheet.Shapes("図形1").Visible=True '図形1非表示 End sub 同様な書式で数項目あります。 又、保存したワークシートを読み込んだ場合も同様に出来ないでしょうか。optionButtonのチェック項目が多数あります。チェック項目は図形を表示と非表示です。何方か良い方法がありましたら教えて頂けないでしょうか。宜しくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルVBAで2種類のCheckboxについて
ワークシート上に配置したチェックボックスですが、 フォームから挿入したものなら Sub TEST01() ActiveSheet.CheckBoxes.Value = xlOn End Sub で、全てのチェックボックスがオンになります。 コントロールツールボックスから貼り付けたチェックボックスの場合はどのように記述するのでしょうか？
- ベストアンサー
- オフィス系ソフト
- エクセルVBA/フォームのオプションボタンを元に戻す
ワークシート上に、フォームのオプションボタンが7個貼ってあります。 名前はOP1～OP7とします。 ある一定の条件に合致した場合、押されたオプションボタンがxlonになるのをキャンセルし、前にオンになっていたオプションを再度xlonにしたいのですが、Appication.Undoではエラーになってしまいました。 どうやったら前の状態に戻せるのでしょうか？
- ベストアンサー
- オフィス系ソフト
- エクセルVBA Dialogsheetについて
何をいまさらダイアログシートなどとおっしゃらないで下さいませ。 今現在表示されているダイアログシートの名前を取得したいのです。 たとえばワークシート上にフォームのボタンを配置し、ボタンに以下のマクロを登録しておけば正しくシート名を返します。 Sub test01() MsgBox ActiveSheet.Name '1 MsgBox ActiveSheet.Shapes(Application.Caller).Parent.Name '2 End Sub ところが同じボタンをDialogsheetに配置し、そのダイアログを DialogSheets("Dialog1").Show で、ワークシート上に表示した段階でボタンをクリックすると、1.ではワークシート名が帰り、2ではシート名が違うのでエラーになってしまいます。 （ワークシートをアクティブにしないで、ダイアログシート上で右クリックして「ダイアログの実行」でダイアログを表示させれば１，２ともにDialog1とDialogSheet名を返しますが） もちろん以下のようにDialogsheet名を明記すれば正しく返りますが、Application.Callerからダイアログシートの名前を取得したいのにDialogsheet名を明記するのでは無意味です。 Sub test02() MsgBox ActiveSheet.Name '1 MsgBox DialogSheets("Dialog1").Shapes(Application.Caller).Parent.Name '2 End Sub 何か良い方法はないでしょうか？ 現在はやむをえずダイアログを表示させる際、以下のように変数に格納していますが、これもApplication.Callerからダイアログシートの名前を取得するにはあまり意味がないように思います。 Dim DS Sub D1_Start() DS = "Dialog1" DialogSheets("Dialog1").Show End Sub Sub test03() MsgBox ActiveSheet.Name '1 MsgBox DialogSheets(DS).Shapes(Application.Caller).Parent.Name '2 End Sub エクセル2000です。 宜しくお願いします。
- ベストアンサー
- その他MS Office製品
- excelのVBAについてです。
ユーザーフォームの中に10個以上のオプションボタンがあります。どのボタンが選択されているかを判定するのに if optionbutton1.value=true then ... else ... if optionbutton2.value=true then ... else ... ... ... のように、すべてのボタンに対してif then ステートメント記述しています。 この部分をもう少し簡単にできないかなというのが今回の質問です。教えてください。よろしくお願いします。
- 締切済み
- オフィス系ソフト
- エクセルでユーザーフォーム
エクセルでユーザーフォームやActiveXコントロールを使ったことがないので悩んでいます。ユーザーフォームを呼び出したとき、表示されるオプションボタンの状態をワークシート上の値で設定したいのです。一応以下のようなコードでも大丈夫なようです。 質問は、以下のようにすべてのオプションボタンを列挙しなくとももっと簡単に記述する方法を教えていただきたいのです。また書き方が変だというご指摘があればそれもよろしくお願いします。 Private Sub UserForm_Initialize() Select Case Sheets("Sheet1").Range("L3").Value Case 1: Me.OptionButton1.Value = True Case 2: Me.OptionButton2.Value = True Case 3: Me.OptionButton3.Value = True Case 4: Me.OptionButton4.Value = True Case 5: Me.OptionButton5.Value = True Case 6: Me.OptionButton6.Value = True Case Else Me.OptionButton1.Value = False Me.OptionButton2.Value = False Me.OptionButton3.Value = False Me.OptionButton4.Value = False Me.OptionButton5.Value = False Me.OptionButton6.Value = False End Select End Sub
- ベストアンサー
- Excel（エクセル）
- VBA EXCEL optionbuttonの選択
現在オプションボタンにて設定下記のようにしています。 オプションボタンをいくつか設置しており、どれか選択すると下記のコードへ飛んできます。 どれか選択すると、enabledをtrueにし、OKボタンをクリックできる。そしてどのオプション ボタンを選択したのか他のモジュールから確認する為tagにその痕跡を残すように設定しています。 Public Sub OptionButton1_Click() 'オプションボタン選択動作。OKボタンを有効へ Cmd_ok.Enabled = True OptionButton1.Tag = True End Sub Public Sub OptionButton2_Click() 'オプションボタン選択動作。OKボタンを有効へ Cmd_ok.Enabled = True OptionButton2.Tag = True End Sub Public Sub OptionButton3_Click() 'オプションボタン選択動作。OKボタンを有効へ Cmd_ok.Enabled = True OptionButton3.Tag = True End Sub *＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊ そして下記のコードでどのオプションボタンが選択されたのか確認しています。 For i = 1 To 3 If UserForm1.Controls("OptionButton" & i).Tag = True Then ｘｘｘ = i End If Next i *****＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊ 一番上にある『OptionButton1.Tag = True』と設定しているものを選択されたオプションボタン からみて相対的な表現に変更できないでしょうか？ 意味としては『現在選択されているオプションボタンのtag = true』といった表現です。 現状でも目的は果たせますが、これからボタンが複数になった場合、オプションボタンのオブジェクト名を変更しなくなった時に手間がしないようにする事が目的です。 もしくはもっとスマートなコードがあれば歓迎です。 ご指導お願いします。
- 締切済み
- その他MS Office製品
お礼
さっそく有難うございます。 助かりました。