- ベストアンサー
オプションボタン
宜しくお願いします オプションボタンの分別は TRUE or FALSE になっていますが、例えば 有 or 無 みたいに自由に変更できる方法があるのでしょうか？ お願いします。
- tomtom0628
- お礼率47% (90/191)
- Windows XP
- 回答数3
- ありがとう数0
- みんなの回答 （3）
- 専門家の回答
関連するQ&A
- オプションボタンについて
※XPにも質問を載せてしまいました。 宜しくお願いします オプションボタンの分別は TRUE or FALSE になっていますが、例えば 有 or 無 みたいに自由に変更できる方法があるのでしょうか？ 又、同一シートでは別の選択として使用は出来ないのでしょうか？別セルで作成しても、全部のオプションボタンに反映してしまいます。 お願いします。
- ベストアンサー
- オフィス系ソフト
- トグルボタンをオプションボタンのように使いたい
エクセルでマクロを作成しています。 見栄えを良くしようと手を入れているところです。 そこで今までオプションボタンで選択していた項目を トグルボタンでできないものかと考えています。 ボタンに画像が貼れる点が気に入っています。 1つのボタンを押してTrueにしたら他のボタンがFalse になるようにしたいのですが上手く行きません。 各ボタンのコードに他のボタンをFalseにするように書くと私にはわからない理由で全てのボタンがFalseになってしまいます。 良い方法をお教えください。
- ベストアンサー
- オフィス系ソフト
- ActiveXコントロールのオプションボタン
エクセルでユーザーフォームにActiveXコントロールのオプションボタンを設置してあります。このすべてのオプションボタンをいっぺんにオフにするにはVBAをどのように書いたらよいでしょうか？ For～Nextでひとつづつ.Value = Falseにする方法はわかりますが、全部を一度にFalseにする虫のいい方法をご教示いただければ幸いです。 よろしくお願いします。
- ベストアンサー
- Excel（エクセル）
- オプションボタン
昨日も質問させていただいたものです。 オプションボタンの使い方について質問があります。 コマンドボタン１つ、テキストボックスを１つ、ラベルを一つ、 フレームを二つ用意し、それぞれのフレームに３つずつオプションボタンを配置します（●フレームＡ、Ｂ●オプションＡ１、Ａ２、Ａ３、オプションＢ１、Ｂ２、Ｂ３とする）。 オプションＡ１～３には１～３年生というキャプションを、 オプションＢ１～３には１～３組というキャプションを設定します。 テキストに名前を打ちこんでコマンドボタンを押すと、 ラベルに（テキストが太郎の場合）"太郎は３年１組です" と表示されるようなものを作ろうと考えています。 コマンドボタンを使用せずに、オプションボタンのみで作ると Privat Sub OptionA1_Click() If OptionB2.Valrue=True Then Label1.Caption="" と言うような感じで何個も書けば良いと思うのですが、 これにをコマンドボタンで実行させようとすると方法がわかりません。 アドバイスお願いします。
- ベストアンサー
- Visual Basic
- オプションボタンによっての表示/非表示
連続の質問で申し訳ございません。。。 オプションボタンが4つあります。 それによって、隣のframe113を表示/非表示にしたいです。 考え出したのが、↓なのですが、a4というオプションボタンをクリックすると表示されるようになったのですが、一度表示されたら最後、その他a1～a3をクリックしても(a4がFALSEの状態になっても)消えません。 Private Sub a4_Click() Frame113.Visible = True End Sub 基本的事ばかりで申し訳ございませんが宜しくお願いします。
- ベストアンサー
- Visual Basic
- Excel VBA オプションボタンについて
こんばんは オプションボタンが５つあり、 登録ボタンが１つあるユーザーフォームを作りました。 このオプションにチェックを入れずに登録ボタンを押したときに 「必ず選択してください。」とメッセージを表示し、再度入力させるようにしたいのですが、どうしたらよいのでしょうか。 Excelのバージョンは2003です。 調べたところ (1)で動きそうだ。ということが判ったのですがチェックを入れ値がtrueになるとエラーが発生して止まってしまいます。（理由がわかりません） Private Sub commandbutton2_click() Dim opt As ControlFormat, flg As Boolean flg = False For Each opt In frame1.Controls If opt.Value = True Then '←ここの行でtrueだった場合のエラーが発生してしまう。 flg = True Selection.Value = opt.Caption End If Next Unload userform1 End Sub (2)この方法で何とか動いたのですが、初めの方に書いたとおり、オプションボタンが選択されずに登録ボタンが押された場合、チェックするように促すメッセージを表示する方法がわかりません。また、できればユーザーホームの×ボタンを押せなくする方法もしくは、閉じられた場合にマクロを抜けるようにするにはどうしたらよいのでしょうか。宜しくお願い致します。 Private Sub commandbutton1_click() Dim i As Integer For i = 1 To 5 If Me.Controls("optionbutton" & i).Value = True Then Selection.Value = Me.Controls("optionbutton" & i).Caption End If Next i Unload userform1 End Sub
- ベストアンサー
- その他（プログラミング・開発）
- オプションボタンを使って抽出
Yes/No型のデータを抽出したいのですが、 オプションボタンの１つにチェックを入れて おいて、検索ボタンを作ってあるのですが、 それをクリックするとtrueのデータだけ表示され、 もうひとつのオプションボタンにチェックを入れて 検索をかけると、fulseのデータだけ表示されるように したいのですが。 ACCESS97、windowsXPです
- ベストアンサー
- オフィス系ソフト
- エクセルVBAオプションボタンの不具合
複数あるオプションボタンを選択時、一つだけでは無く二つ選択された状態になる（見た目のみ） 二つ目以降を選択すると、前回に選択したボタンの部分に残像が残ってる状態です。 ・ユーザーフォームではなく、ワークシート上に直接オプションボタンを配置 ・選択したボタンにより、リストからデータを引っ張ってきて、指定したセルに格納する式を組み込み済 ・選択したオブジェクトのみValueプロパティが'True'になっている（残像が残っている部分は'False'） ・同じグループに入っている 以上です。 要はValue値にはTrueは一つしか入らないので、動作上は問題は無いのですが見た目だけが残像が残り気になる、といった所です。 ボタン選択時に値を引っ張る式が無ければ残像も出なくなるのですが、式が入っていると現象が起こる様です・・・。 何か解決策はありますでしょうか？よろしくお願い致します。
- 締切済み
- オフィス系ソフト
- 入力されたかどうか、オプションボタンが選択されたかどうかをチェックしたい
入力されたかどうか、オプションボタンが選択されたかどうかをチェックして、ＯＫなら次の入力にすすむとゆうプログラムを作りたいのですが、今回の場合、optAとoptBとoptCとがあり選択されたらcmbAとcmbBの入力（選択）を許可するとゆうプログラムを作りたいのです。簡単に If optA.Value = False And optB.Value = False And・・・ とゆうやり方はあると思うのですが、数が増えたときのためにもっと効率よくしたいのです。ネットには、 ユーザフォーム上に配置された各コントロールの入力チェックを行う段階でオプションボタンの値を効率的にチェックするには、フレームコントロール配下のControlsプロパティーから取得されるコレクションから各オプションボタンを取得し、Valueプロパティーを評価します。 '==================================================================== （For Each ループのネストによる手法） ※他のコントロールの評価も同時に行うことを想定しています 'フレーム数とTrueであったオプションボタンの個数とを比較 'OKが表示されない場合は未選択のオプショングループあり。 '===================================================================== また、フレームの数分だけのループを指定して入力チェックを行う場合は・・・ ====================================================================== （Controlsコレクションのインデックスからフレーム内のコントロールにアクセスする手法） と書いてあったのですが、初心者なものでよくわかりませんでした。この方法を詳しく解説もしくわ、他によい方法があればよろしくお願いします。
- ベストアンサー
- Visual Basic
- マクロのVBAでオプションボタンの一括False
いつもお世話になっております。 エクセルマクロのVBAでオプションボタンの、Enabledを一括してFalseにしたいのですが、 可能でしょか。 ひとつづつ３１個設定でもできるとは、思いますが、for文でまわして設定や、簡単に一括してFalseにする方法がありましたら、お教え頂きたいです。 オプションボタンは、日にち分、１日から３１日分あり、フォームに貼り付けた状態です。 以上、よろしくお願いいたします。
- ベストアンサー
- その他（プログラミング・開発）
補足
失礼致しました。 XPを使用していて、エクセルです。