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

Excel　ラジオボタンのリセットを作りたい

解決済

質問者：kawa-yuri
質問日時：2007/04/13 16:26
回答数：2件

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

通報する

この質問への回答は締め切られました。

質問の本文を隠す

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

「plala」に関するQ&A：インターネット回線について質問です。現在NTTフレッツ光、plalaと契約しているのですが、回線が

さらに表示

「Webサイト作り方」に関するQ&A： Webサイトを作成する前のイメージ図の作り方

「ラジオ作り方」に関するQ&A：簡単なラジオの作り方

「Excel JavaScript」に関するQ&A： JavascriptでのExcel起動について

「ラジオ Web」に関するQ&A：英語が聞けるWebラジオ

「ラジオボタンエクセル」に関するQ&A：エクセルでラジオボタン？

回答 (2件)

ベストアンサー優先
最新から表示
回答順に表示

No.2ベストアンサー

回答者： Wendy02
回答日時：2007/04/14 01:18

こんばんは。

通常では、ラジオボタン（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

- 0
- 件

通報する

この回答へのお礼

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

通報する

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

No.1

回答者： ASIMOV
回答日時：2007/04/13 16:58

一例ですが

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

　OptionButton1.Value = False

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

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

- 0
- 件

通報する

この回答へのお礼

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

通報する

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

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

「ラジオボタンエクセル」に関するQ&A： 1枚の紙に４つ同じものを印刷したいのですが？

さらに表示

「plala」に関するQ&A： TDR混雑予想はどこが当たる？

「Excel JavaScript」に関するQ&A： VBとVBAの違い

「ラジオ作り方」に関するQ&A：植木鉢のパキラに発生した小バエの退治方法

「Webサイト作り方」に関するQ&A：デスクトップ用壁紙の作り方

「ラジオ Web」に関するQ&A：声優の森田成一さんについて

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

質問する（無料）

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

専門家回答数ランキング

専門家

※過去一週間分の回答数ランキングです。

質問する（無料）

他の専門家の回答をチェック

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

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

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

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

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

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

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ベストアンサー

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

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

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

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

参考までに。

他の回答も見る

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

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

Aベストアンサー

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

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

他の回答も見る

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

こんにちわ。

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

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

Aベストアンサー

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

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

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

他の回答も見る

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

エクセル2003です。

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

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

Aベストアンサー

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

ActiveSheet.CheckBoxes.Value = False

他の回答も見る

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

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

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

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

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

他の回答も見る

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

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

Aベストアンサー

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

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

他の回答も見る

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

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

Aベストアンサー

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

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

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

他の回答も見る

ページトップ