Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7312 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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個ずつおいています。

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

オプションボタン１と２でどちらかを選択。
オプションボタン３と４でどちらかを選択。
オプションボタン５と６でどちらかを選択。
オプションボタン７と８でどちらかを選択。

現在は、オプションボタン１〜８のどれかを選択となってしまいます。
これを2個ずつのグループ？に分けたいのですが、どうすればいいか教えてください。
よろしくお願いします。
【39888】Re:オプションボタンのグループ？を分け...
発言  ハチ  - 06/7/3(月) 17:56 -
引用なし
パスワード
   ▼いなば さん：
>ユーザーフォームにテキストボックスを4個、オプションボタンを8個置いています。
>それぞれのテキストボックスのすぐ横に、オプションボタンを2個ずつおいています。
>
>オプションボタンでは「男」「女」を選択させたいと思っています。
>
>オプションボタン１と２でどちらかを選択。
>オプションボタン３と４でどちらかを選択。
>オプションボタン５と６でどちらかを選択。
>オプションボタン７と８でどちらかを選択。
>
>現在は、オプションボタン１〜８のどれかを選択となってしまいます。
>これを2個ずつのグループ？に分けたいのですが、どうすればいいか教えてください。
>よろしくお願いします。

2個づつ　Frameに入れれば良いのでは？
【39889】Re:オプションボタンのグループ？を分け...
質問  いなば  - 06/7/3(月) 18:08 -
引用なし
パスワード
   ハチ さん　ありがとうございます。

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

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

見た目だけのことなので、できないとか、面倒とか難しいとかであれば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に入れれば、２つずつオプションボタンを区切る？グループ分け？ができることは確認しました。
>
>見た目だけのことで、Frameを使わないでオプションボタン8個を2個×４つといったグループ分けのようなことはできればいいなぁと思いました。
>
>見た目だけのことなので、できないとか、面倒とか難しいとかであればFrameを使います。
>簡単にできるのであればお教えいただきたいと思います。
>よろしくお願いします。

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

　Caption　= ""
　SpecialEffect = fmSpecialEffectFlat

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

　
【39893】Re:オプションボタンのグループ？を分け...
発言  Hiroko  - 06/7/3(月) 18:27 -
引用なし
パスワード
   ▼いなば さん：
男女の区別･･･名簿がどのような形式で作成されているか分かりませんが･･･
普通は「男」と「女」のオプションボタン各一個で出来ると思いますが。
男女全てを入れるとオプションボタン３ケでいけるます。

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プロパティで分けたいと思います。
いろいろな方法があるんだなと思いました。その時々で使い分けたりしたいと思います。
みなさんからいろいろ回答をいただいて、非常に勉強になりました。
ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7312 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free