Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


7311 / 13644 ツリー ←次へ | 前へ→

【39887】オプションボタンのグループ?を分けたい いなば 06/7/3(月) 17:51 質問[未読]
【39888】Re:オプションボタンのグループ?を分けたい ハチ 06/7/3(月) 17:56 発言[未読]
【39889】Re:オプションボタンのグループ?を分けたい いなば 06/7/3(月) 18:08 質問[未読]
【39891】Re:オプションボタンのグループ?を分けたい Blue 06/7/3(月) 18:19 回答[未読]
【39892】Re:オプションボタンのグループ?を分けたい ハト 06/7/3(月) 18:23 発言[未読]
【39893】Re:オプションボタンのグループ?を分けたい Hiroko 06/7/3(月) 18:27 発言[未読]
【39894】Re:オプションボタンのグループ?を分けたい いなば 06/7/3(月) 18:37 お礼[未読]

【39887】オプションボタンのグループ?を分けたい
質問  いなば  - 06/7/3(月) 17:51 -

引用なし
パスワード
   ユーザーフォームにテキストボックスを4個、オプションボタンを8個置いています。
それぞれのテキストボックスのすぐ横に、オプションボタンを2個ずつおいています。

オプションボタンでは「男」「女」を選択させたいと思っています。

オプションボタン1と2でどちらかを選択。
オプションボタン3と4でどちらかを選択。
オプションボタン5と6でどちらかを選択。
オプションボタン7と8でどちらかを選択。

現在は、オプションボタン1〜8のどれかを選択となってしまいます。
これを2個ずつのグループ?に分けたいのですが、どうすればいいか教えてください。
よろしくお願いします。

【39888】Re:オプションボタンのグループ?を分け...
発言  ハチ  - 06/7/3(月) 17:56 -

引用なし
パスワード
   ▼いなば さん:
>ユーザーフォームにテキストボックスを4個、オプションボタンを8個置いています。
>それぞれのテキストボックスのすぐ横に、オプションボタンを2個ずつおいています。
>
>オプションボタンでは「男」「女」を選択させたいと思っています。
>
>オプションボタン1と2でどちらかを選択。
>オプションボタン3と4でどちらかを選択。
>オプションボタン5と6でどちらかを選択。
>オプションボタン7と8でどちらかを選択。
>
>現在は、オプションボタン1〜8のどれかを選択となってしまいます。
>これを2個ずつのグループ?に分けたいのですが、どうすればいいか教えてください。
>よろしくお願いします。

2個づつ Frameに入れれば良いのでは?

【39889】Re:オプションボタンのグループ?を分け...
質問  いなば  - 06/7/3(月) 18:08 -

引用なし
パスワード
   ハチ さん ありがとうございます。

Frameに入れれば、2つずつオプションボタンを区切る?グループ分け?ができることは確認しました。

見た目だけのことで、Frameを使わないでオプションボタン8個を2個×4つといったグループ分けのようなことはできればいいなぁと思いました。

見た目だけのことなので、できないとか、面倒とか難しいとかであればFrameを使います。
簡単にできるのであればお教えいただきたいと思います。
よろしくお願いします。

【39891】Re:オプションボタンのグループ?を分け...
回答  Blue  - 06/7/3(月) 18:19 -

引用なし
パスワード
   オプションボタンのGroupNameプロパティが使えませんか?

参考)
フォームとコントロールの活用−フレームを使わないオプションボタン
http://www.moug.net/tech/exvba/0090047.htm

【39892】Re:オプションボタンのグループ?を分け...
発言  ハト  - 06/7/3(月) 18:23 -

引用なし
パスワード
   おはようございます

▼いなば さん:
>ハチ さん ありがとうございます。
>
>Frameに入れれば、2つずつオプションボタンを区切る?グループ分け?ができることは確認しました。
>
>見た目だけのことで、Frameを使わないでオプションボタン8個を2個×4つといったグループ分けのようなことはできればいいなぁと思いました。
>
>見た目だけのことなので、できないとか、面倒とか難しいとかであればFrameを使います。
>簡単にできるのであればお教えいただきたいと思います。
>よろしくお願いします。

見た目だけであれば Frame を使い
Frame のプロパティで

 Caption = ""
 SpecialEffect = fmSpecialEffectFlat

を指定すればFrameは見た目、見えなくなりますよ

 

【39893】Re:オプションボタンのグループ?を分け...
発言  Hiroko  - 06/7/3(月) 18:27 -

引用なし
パスワード
   ▼いなば さん:
男女の区別・・・名簿がどのような形式で作成されているか分かりませんが・・・
普通は「男」と「女」のオプションボタン各一個で出来ると思いますが。
男女全てを入れるとオプションボタン3ケでいけるます。

If OptionButton1.Value = True Then
  Selection.AutoFilter field:=10, Criteria1:="男"
  Unload UserForm1
End If
If OptionButton2.Value = True Then
  Selection.AutoFilter field:=10, Criteria1:="女"
  Unload UserForm1
End If
  '10は性別のフィールドを表している

If OptionButton3.Value = True Then
  Selection.AutoFilter field:=10 '男女全て含む場合
  Unload UserForm1

End If

【39894】Re:オプションボタンのグループ?を分け...
お礼  いなば  - 06/7/3(月) 18:37 -

引用なし
パスワード
   Blueさん
ハトさん
Hirokoさん

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

Blueさんの教えていただいたオプションボタンのGroupNameプロパティは分かりました。同一フレーム内でもグループ分けができるということが理解できました。

ハトさんの教えていただいたFrameを見えなくするという方法は考えもしませんでした。オプションボタンは同一フレーム内でグループ化されるという基本的な考えでFrameを見えなくすればいい。というのは非常に理解しやすいです。

ゴメンなさい。
Hirokoさんからの回答はちょっと分かりませんでした。
ユーザーフォームで入力したものをワークシート上でオートフィルターをかけて?
って意味ですか?

今回はBlueさんの教えていただいたGroupNameプロパティで分けたいと思います。
いろいろな方法があるんだなと思いました。その時々で使い分けたりしたいと思います。
みなさんからいろいろ回答をいただいて、非常に勉強になりました。
ありがとうございました。

7311 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free