新規無料会員登録で1000名様に電子コミック1000円分が当たる!!

エクセル2010です。

表示させるだけのラジオボタンを作成したいと思っていますが、方法が分かりません。
マクロに連動せず、ファイルを開いたときにマクロの有効無効を聞いてこない、ただの2者択一選択ボタンです。
どのように作成すれば良いかご教示頂けないでしょうか。

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

A 回答 (1件)

ご質問のラジオボタンは、エクセルではオプションボタンと言います。



>ただの2者択一選択ボタンです

2者択一できるだけの「1組の」ボタンを配置したいご相談ですが、ちなみにそういうのを「複数組」作成したい場合などでは、また少し手順が変わります。
とりあえずここでは基本の、たとえば「○男」と「○女」のような2者択一できるだけのボタンの作り方について説明します。


エクセルではオプションボタンとして、「フォーム」と「アクティブXコントロール」の2種類を利用できます。
手順:
エクセルのオプションから開発タブを表示する
挿入▼から希望の種類のオプションボタンをシート上に配置する
それぞれ右クリックして編集して表記を整える
アクティブXコントロールを利用した場合は、デザインモードをクリックして選択を解除する

とりあえず作り方は以上です。



#複数組を作成したい場合
フォームコントロールでは、組にしたい2個ずつをフォームの「グループボックス」で囲みます
アクティブXコントロールでは、組にしたい2個ずつそれぞれ右クリックしてプロパティからGroupName欄に、組にしたい2個ずつに任意のグループ名を記入しておきます
別の2個には別のグループ名(任意)を、2個ずつ同じグループ名で、記入しておくという意味です


#念のため補足
回答した手順は「マクロに連動」していませんし、マクロの有効を聞いてくることもありません。
勝手に違う事をしていると違いますので、間違えないよう気を付けて下さい。
「エクセルのラジオボタン」の回答画像1
    • good
    • 0
この回答へのお礼

ありがとうございました。
作成することが出来ました。

もう一点、質問させていただいてもよろしいでしょうか。

作成したボタンの位置を動かされないように固定したいのですが、その方法を教えていただけないでしょうか。

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

お礼日時:2014/03/06 21:16

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

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

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

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

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

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

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

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

Aベストアンサー

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

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

こんにちわ。

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

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

Aベストアンサー

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

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

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

ご参考に。

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

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

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

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

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

Aベストアンサー

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

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

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のところ...続きを読む

Q2つ以上のチェックボックスを連動させるには?

Eecelで、同一シートに複数のチェックボックスがあるとき、ある特定のチェックボックスにチェックを入れると、他の特定のチェックボックスに自動的にチェックが入るようにするには、どうすればいいのでしょうか?

Aベストアンサー

チェックボックスは「フォーム」のチェックボックスを使用されていますか?
その場合、リンクするセルを指定できるはずです。
ここでVBAを使って
仮に1A1にあるのチェックボックスにチェックを入れた時、
B1、C1のチェックボックスにチェックを入れたいとします。
Sub test()
If Cells(1, 1) = true Then
cells(1,2)=true
cells(1,3)=true
elseif Cells(1, 1) = False Then
cells(1,2)=false
cells(1,3)=false
End if

これをA1のチェックボックスの「マクロを登録」のところで指定して下さい。

これで連動すると思いますが。

QEXCEL(IF関数)でCELLの色を変える。

例えば、IF関数で真ならセルの色を赤色にしたり、文字の色を変えたりする関数とかはあるのでしょうか?わかりません・・・知ってる方いらっしゃれば教えて下さい。

Aベストアンサー

こんばんは。

関数ではありませんが‥

<条件付き書式>ではダメなのでしょうか?

メニュー<書式>-<条件付き書式> です。

どのような条件を想定していらっしゃるのかわかりませんが、
<条件付き書式>については↓の参考URLをご覧ください。

▽条件付き書式・その1
http://homepage1.nifty.com/kenzo30/ex_kisosyo/ex_ks_syokyu4.htm

▽条件付き書式・その2
http://homepage1.nifty.com/kenzo30/ex_kisosyo/ex_ks_syokyu5.htm

参考URL:http://homepage1.nifty.com/kenzo30/ex_kisosyo/ex_ks_syokyu4.htm

Qエクセルのグループボックス枠線を消す、ボックス数

オプションボタンの枠線を消す、グループ数についての質問です。

イミディエイト ウインドウにて、
ActiveSheet.GroupBoxes.Visible = Faulse
の記入で枠線を非表示にすることが確認できていますが、、、、、

YesNoの二択の質問が多く72あります。
各々YesとNoのオプションボタンをグループ化して、最後に
「ActiveSheet.GroupBoxes.Visible = Faulse」を入力しましたが
エラー1004でした。一つずつグループを消していき、61個になった時点で
消すことが出来ました。

数量に限度があるのでしょうか。また回避する方法があれば教えてください。
よろしくお願いいたします。

Aベストアンサー

回答したとおりに行っていただければよいだけのことなのですが,それとも一体「何が」変わらないのですか?



二度も同じ事をお話ししたくは無いのですが,デキナイという事なので手順の説明をもう一度繰り返します。


>ちなみにイミディエイトウィンドウに
Ctrl+Gでイミディエイトウィンドウを出します。
しかしイミディエイトウィンドウを出す事は既に出来ているはずです。


>for each o in activesheet.checkboxes : o.visible = false : next
イミディエイトウィンドウにこの一行を記入します
「ActiveSheet.GroupBoxes.Visible = False」を記入するなんて事はお話ししていません。


>と記入してEnterすることで,回避できます。
上述を記入しEnterすることで実行します。
しかしこの手順も既に「ActiveSheet.GroupBoxes.Visible = False」を記入しEnterして実行できたことで,出来ているはずです。




#それともこういうことを言ってるのですか?

この手順を実行することで「ActiveSheet.GroupBoxes.Visible = Falseでエラーになるのを回避できる」という事をお話ししているのではありません。
この手順を実行することで,あなたが行った手順で発生したエラーを起こさずに,グループボックスを全て非表示に出来ますとお話ししています。

回答したとおりに行っていただければよいだけのことなのですが,それとも一体「何が」変わらないのですか?



二度も同じ事をお話ししたくは無いのですが,デキナイという事なので手順の説明をもう一度繰り返します。


>ちなみにイミディエイトウィンドウに
Ctrl+Gでイミディエイトウィンドウを出します。
しかしイミディエイトウィンドウを出す事は既に出来ているはずです。


>for each o in activesheet.checkboxes : o.visible = false : next
イミディエイトウィンドウにこの一行を記入します
「ActiveSh...続きを読む

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 等は、右クリックで自...続きを読む

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

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

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

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

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

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

Aベストアンサー

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

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

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

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&Aランキング