QAコラム第01弾配信中!

http://www3.plala.or.jp/hkyoji/javascript/javano …
上記サイトのようなラジオボタンをEXCELで作りましたが、
リセットするボタンの作り方がわかりません。
調べてもWebでのことしかでてきません。
ご教授よろしくお願いします。

このQ&Aに関連する最新のQ&A

A 回答 (2件)

こんばんは。



通常では、ラジオボタン(Excelでは、オプションボタン)のリセットはしません。それは、必ず、ひとつが必ず「オン」 になるようになっているからです。あえて作るなら以下のようになります。


Private Sub CommandButton1_Click()
 For Each cnt In ActiveSheet.OLEObjects
  If TypeOf cnt.Object Is MSForms.OptionButton Then
    cnt.Object.Value = False
  End If
 Next
End Sub
    • good
    • 0
この回答へのお礼

回答ありがとうございました。
コードの記入ありがとうございます。
必ず「オン」になるようになっているということでしたので、
結局リセットのボタンを作りました。

お礼日時:2007/04/24 21:11

一例ですが



リセットボタンは、コマンドボタンで作成し、そこに

 OptionButton1.Value = False

という、コードを記述します

「OptionButton1」の部分は、実際設置したボタンの名前をプロパティーで調べて記述してください
    • good
    • 0
この回答へのお礼

回答ありがとうございました。

お礼日時:2007/04/24 21:09

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

QエクセルVBA オプションボタンのチェックを外したい

いつもお世話になります。

エクセルで、ユーザーフォームでオプションボタンを使っているのですが、オプションボタンを選択し、ユーザーフォームを消して、もう一度表示させた時に、前に選択したオプションボタンの黒丸が残っている時があるのです。

ユーザーフォームを表示させた時に前に選択した黒丸を消す方法はありますでしょうか?

Aベストアンサー

こんにちは。

userformを消すとき、Me.Hideを使用してるとそうなります。
Unload Me ならなりません。

が、単純にUserformのActivateイベントを利用してもいいですね。

-----------------------------------------
Private Sub UserForm_Activate()
 OptionButton1.Value = 0
 OptionButton2.Value = 0
 OptionButton3.Value = 0
End Sub
-------------------------------------------

以上です。

QExcelのラジオボタンにチェックが入らないようにするには?

 Excel上にラジオボタンが何個かついているsheetがあります。
sheetをクリックするとラジオボタンにチェックが入ってしまうのですが、
チェックを入れない状態で印刷をしたいのです。

=EMBED("Forms.OptionButton.1","")

上のように、ラジオボタンの上にカーソルを持っていくと表示されます。
また、ラジオボタンの上でダブルクリックすると以下のように表示されます。
----------------------------------
Private Sub OptionButton9_Click()

End Sub
------------------------------------

 マクロは全く分からない初心者です。
どのようにマクロのラジオボタンにチェックを入れずに印刷したらいいでしょうか?
よろしくお願いします。

Aベストアンサー

コントロールツールのボタンを表示してデザインモードにします。

ON(黒丸)になっているラジオボタンを選択して、プロパティのValueをTrueからFalseに変更して下さい。

全てのラジオボタンが非選択の状態になりますので、デザインモードを終了して下さい

Q【Excel】ラジオボタンやチェックボックスの使い方

こんにちは
Excelのフォームを使って、セルにラジオボタンやチェックボックス、
ボタンなどを配置することができますが、形だけが配置されて、機能させることができません。

これらの使い方を教えてください。

ラジオボタンで選んだセルの内容を、別のセルに表示するといったことがやってみたいのですが、これでできますか。

Aベストアンサー

ラジオボタンの場合、
まず、グループを置いて
その上に複数のラジオボタンを置きます。
そして、その内の一つのラジオボタンの
コントロールの書式設定でリンクするセルを選ぶと
選んだラジオボタンによって数値がリンクしたセルに入ります。
その数値によって選ばれたラジオボタンが判るので、
そのセルの数値によって動作を変えるようにします。
例えば
3つのラジオボタンをセットして、それをR1にリンクさせたとします。
ラジオボタンの表示文字列は
A1,B1,C1
だとして、ラジオボタンをクリックするとD1にその選ばれたセルの内容を表示したいとします。
その場合
D1のセルに
=CHOOSE(R1,A1,B1,C1)
とすればいいです。
R1が1の時A1,2の時B1,3の時C1を選ぶという意味です。

Qエクセル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 を指示すればいいのでしょうか?

Aベストアンサー

同一ワークシート内にオプションボタン1つ、コマンドボタン一つを配置して、コマンドボタンに、現在のオプションボタンの値をMSGBOXで表示させ、その後OFF(False)にするようなサンプルを作って、Excel2000で試してみました。

Private Sub CommandButton1_Click()
MsgBox OptionButton1.Value
OptionButton1.Value= False
End Sub

というコードです。
とりわけ問題なく動作しました。
LinkCellを指定するかどうか、複数配置かどうかで微妙に動作が異なるようです。

参考までに。

Qエクセルのチェックボックスで3つあるうち1つチェック入れたら自動的に残りにチェック出来ないようにするには

エクセルのチェックボックスで3つあるうち1つチェック入れたら自動的に残りにチェック出来ないようにするにはどうすればよいですか?今日始めてチェックボックスを触りました…

Aベストアンサー

チェックボックスにする必要あるのかな?
そうした、単一のものしか洗濯できないのであれば
ユーザインターフェースとしてはラジオボタン(オプションボタン)
の方が適切に思えるけれど・・・。

さて、質問の件ですが、チェックボックスのクリックイベントで
EnabledプロパティをFalseに設定するとチェックが出来なくなり
Trueにするとチェックが出来るようになります。

Qチェックボックスの箱のサイズとフォントサイズは変更できるの?

こんにちわ。

エクセル2000でチェックボックスを作成したのですが、
やや、小さいのでサイズを大きくしたいのです。
ボックスサイズ、ボックスの横に入れる文字の
フォントサイズは大きくできるのでしょうか?
もし、できるのなら方法を教えてください。

よろしくおねがいします。

Aベストアンサー

コントロールツールボックスのチェックボックスならプロパティにFontがあるので変更できます。

フォームのチェックボックスやオプションボタンのフォントサイズは変更できなかったと思いますが、変更したように見せかけはできます。使用上、特に問題はないと思います。(だからダイアログにフォントがない?)

チェックボックスの位置によって、
(1)チェックボックス(四角)がセルの中央にある場合
 チェックボックスのテキストを必要な長さの空白にしてしまいます。
 チェックボックス(四角)の右横のセルにチェックボックスの説明のテキストを入れます。
 セルの書式設定でフォントが変更できます。
(2)チェックボックス(四角)をセルの境目などにセットする場合
 チェックボックスのテキストを必要な長さの空白にしてしまいます。
 図形描写からテキストボックスを選択し、チェックボックスの説明のテキストを入れます。
 テキストボックスは『線なし』にしておきます。2行で表示したりもできます。
 チェックボックスとテキストボックスを重ねて、見た目を調節します。
 テキストボックスを選択し、右クリック→順序→最背面へ移動 とします。

ご参考に。

コントロールツールボックスのチェックボックスならプロパティにFontがあるので変更できます。

フォームのチェックボックスやオプションボタンのフォントサイズは変更できなかったと思いますが、変更したように見せかけはできます。使用上、特に問題はないと思います。(だからダイアログにフォントがない?)

チェックボックスの位置によって、
(1)チェックボックス(四角)がセルの中央にある場合
 チェックボックスのテキストを必要な長さの空白にしてしまいます。
 チェックボックス(四角)の右横のセ...続きを読む

Qエクセルにて:チェックボックスのチェックを一括消去・リセットする方法はありませんか?

エクセル2003です。

チェックボックスを使用したデータ入力シートを使用しています。
Aの方のデータ入力→登録が終ったら、次にBの方を入力したいのですが
その際に、Aの方のデータ入力の際に入れたチェックマークを
一括で消去・リセットしたいのですが、良い方法はありませんか?

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

Aベストアンサー

フォームのチェックボックスの場合です。

ActiveSheet.CheckBoxes.Value = False

QエクセルVBAマクロのオプションボタンについて

オプションボタンのマクロに関して教えて下さい。
マクロのスキルレベルは、新しいマクロの記録を多用して、マクロを組むレベルです。

「表示-ツールバー-フォーム」から選ぶオプションボタンを使って、オプションボタンAが押されている場合とBが押されている場合で、処理を変えたいのですが、そのオプションボタンの値をどうやっても拾えません。

色々検索した結果、以下のマクロでできる気がしたのですが、駄目でした。

Private Sub OptionButton1_Click()
オプション1 = True
End Sub
Private Sub OptionButton2_Click()
オプション2 = True
End Sub
Sub オプションボタン()
If オプション1 = True Then
Range("a1") = 1
ElseIf オプション2 = True Then
Range("a1") = 2
Else
Range("a1") = 0
End If
End Sub

作ったオプションボタンを右クリックしてマクロ登録を選ぶと、「オプション1_Click」となっているので、「OptionButton1_Click」を「オプション1_Click」に変えてみたのですが、やっぱり駄目でした。

ネットではユーザフォームを使ったマクロ例はあるのですが、そのまま使用するオプションボタンの例がありません。できればユーザフォームは使いたくありません。
ご存知の方がいらっしゃいましたら、教えて下さい。よろしくお願いします。

オプションボタンのマクロに関して教えて下さい。
マクロのスキルレベルは、新しいマクロの記録を多用して、マクロを組むレベルです。

「表示-ツールバー-フォーム」から選ぶオプションボタンを使って、オプションボタンAが押されている場合とBが押されている場合で、処理を変えたいのですが、そのオプションボタンの値をどうやっても拾えません。

色々検索した結果、以下のマクロでできる気がしたのですが、駄目でした。

Private Sub OptionButton1_Click()
オプション1 = True
End Sub
Pri...続きを読む

Aベストアンサー

こんばんは。

出来れば、そろそろコントロールツール側のコントロールをお使いになってください。

今から、フォーム(ダイアログシートを含む)を勉強しようとしても、資料も手に入らないでしょうし、今は、隠しオブジェクトになってしまいましたので、インテリセンスが利きません。フォームのコントロールは、コントロール配列の真似事が出来ますので便利ですが、少し、その分、深く勉強しないと難しいのです。(Ver.5のマニュアルには詳しく出ています)

それと、オプション1_Click 等は、右クリックで自動記録で出来ますので、それは手をつけませんが、一応、「Sub オプションボタン()」の2バイト文字の名称は、ユーザーが作成するプロシージャなので、なるべくアルファベットでつけてください。

なお、コントロールの名称は間違ってませんが、マクロで操作するには、私には、どうも曖昧さが残るような気がします。

それと、フォームのオプションボタンの戻り値は、1 と0で、True / False ではありません。今回は、組み込み定数を使いました。(xlOn)

この説明は、少し難しいかもしれませんね。

'標準モジュール

Sub OptionButtonsMcr()
'シート名は必ず入れます。
With Worksheets("Sheet1")
If .OptionButtons("Option Button 1").Value = xlOn Then
 .Range("a1").Value = 1
ElseIf .OptionButtons("Option Button 2").Value = xlOn Then
 .Range("a1").Value = 2
Else
 .Range("a1").Value = 0
End If
End With
End Sub

Sub オプション1_Click()
 Call OptionButtonsMcr
End Sub
Sub オプション2_Click()
 Call OptionButtonsMcr
End Sub

なお、Index を使った、もっと簡単な方法もありますが、逆に、その考え方は自体は難しくなります。すべて以下のマクロに登録すればよいです。Sub オプション1_Click() 等の個別のマクロは必要ありません。

'補足(Index を使った方法)
'---------------------------
Sub OptionbuttonsMcr()
Dim i As Integer
With Worksheets("Sheet1")
 i = .OptionButtons(Application.Caller).Index
 If i < 3 Then
  .Range("a1").Value = i
 Else
  .Range("a1").Value = 0
 End If
End With
End Sub

こんばんは。

出来れば、そろそろコントロールツール側のコントロールをお使いになってください。

今から、フォーム(ダイアログシートを含む)を勉強しようとしても、資料も手に入らないでしょうし、今は、隠しオブジェクトになってしまいましたので、インテリセンスが利きません。フォームのコントロールは、コントロール配列の真似事が出来ますので便利ですが、少し、その分、深く勉強しないと難しいのです。(Ver.5のマニュアルには詳しく出ています)

それと、オプション1_Click 等は、右クリックで自...続きを読む

Qラジオボタンのオンとオフ

エクセルのシートにラジオボタンを作って、該当者はラジオボタンをチェックして、非該当者は、ラジオボタンをチェックしないようにしたいのですが、非該当者が誤ってラジオボタンを押したときに、2回ラジオボタンを押すと、色が変わらないようにするには、ラジオボタンの設定をどのようにすればいいでしょうか?教えてください。よろしくお願いします。

Aベストアンサー

エクセルでラジオボタンとはオプションボタンのことですよね?
ラジオボタンは、排他的な選択肢で、ユーザが 1 項目だけを選択しなければいけないときに使います。
チェックボックスは、0 項目、1 項目、またはそれ以上の項目を選ぶことができるような複数選択肢で使います。各チェックボックスは他のチェックボックスから独立しているため、ひとつのチェックボックスを選択した場合、他のチェックボックスの選択が外れるということがありません。

どうしてもラジオボタンでやりたければVBAでしょうね。

Qチェックボックスの択一選択方法教えてください。

osはwindows98 officeはxpです。
ワード文書内にチェックボックスが3つあるとします。
今は、3つ全部にチェックを入れる事ができてしまいます。。。。3つのチェックボックスのうち一つしかチェックが入らないようにするにはどうしたら良いのでしょうか?(例えば、1にチェックが入っていて、2にチェックを入れると、1のチェックが消え、2だけにチェックがはいるようにしたいのです)どなたかご存知の方、ぜひ教えてください。お願いします。

Aベストアンサー

こんにちは、s_yoshi_6です。先ほどはどうも。

もしも、ラジオボタン(丸いボタン。Wordではオプションボタンと言ってます)でよければ、「フォーム」ツールバーではなくて、「コントロールツールボックス」ツールバーの中にあります。

挿入したい所にカーソルを置いて、「オプションボタン」のボタンをクリックすると挿入されます。
ただそのままだと、挿入したオプションボタン全てで択一になりますので、もし例えば三択が複数ある場合などは、挿入したボタンを右クリック→プロパティのGroupNameのところに適当なグループ名を記入します。このGroupNameが同じものの中で択一になります。なおボタン名は、ボタンを右クリック→オプションボタンオブジェクト→編集で変更できますので、不要であればそこで削除して下さい。

編集が終わったら最後に「コントロールツールボックス」ツールバー(または外に1つ小さくパレットが出ていると思いますが)の「デザインモードの終了」ボタン(三角定規に鉛筆)をクリックして下さい。

このボタンには色々機能を持たせることができるのですが、そのへんになるとちょっと分かりません。もしチェックをつけるだけでよければ、ちょっと試してみて下さい。

こんにちは、s_yoshi_6です。先ほどはどうも。

もしも、ラジオボタン(丸いボタン。Wordではオプションボタンと言ってます)でよければ、「フォーム」ツールバーではなくて、「コントロールツールボックス」ツールバーの中にあります。

挿入したい所にカーソルを置いて、「オプションボタン」のボタンをクリックすると挿入されます。
ただそのままだと、挿入したオプションボタン全てで択一になりますので、もし例えば三択が複数ある場合などは、挿入したボタンを右クリック→プロパティのGroupNameのところ...続きを読む


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング