Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10661 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【20492】オプションボタンについて わさ 04/12/10(金) 13:40 質問[未読]
【20497】Re:オプションボタンについて Jaka 04/12/10(金) 14:17 発言[未読]
【20509】Re:オプションボタンについて わさ 04/12/10(金) 17:06 質問[未読]
【20511】Re:オプションボタンについて 角田 04/12/10(金) 17:15 回答[未読]
【20512】Re:オプションボタンについて わさ 04/12/10(金) 17:19 質問[未読]
【20513】Re:オプションボタンについて Asaki 04/12/10(金) 19:06 回答[未読]
【20600】Re:オプションボタンについて Jaka 04/12/13(月) 9:18 回答[未読]
【20492】オプションボタンについて
質問  わさ  - 04/12/10(金) 13:40 -
引用なし
パスワード
   質問です。
オプションボタンのグループ化が分かりません。
どのようにしたらよいのでしょうか？
よろしくお願いします。
【20497】Re:オプションボタンについて
発言  Jaka  - 04/12/10(金) 14:17 -
引用なし
パスワード
   意味が良くわかりませんけど、ここ見てみると良いかも..。
http://www.h3.dion.ne.jp/~sakatsu/Excel_Tips10.htm
【20509】Re:オプションボタンについて
質問  わさ  - 04/12/10(金) 17:06 -
引用なし
パスワード
   たとえば、コントロールツールボックスでオプションボタン男性・女性の二つと、
１０代・２０代の二つで、計４つのボタンをワークシート上に配置して、
性別、年齢それぞれを選択できるようにしたいのですが、４つのうち、１つしか選択できません。
性別のグループ、年代のグループのようにしたいのですが。
よろしくお願いします。
【20511】Re:オプションボタンについて
回答  角田 WEB  - 04/12/10(金) 17:15 -
引用なし
パスワード
   こんにちは。
> 男性・女性の二つと、
>１０代・２０代の二つで、
>４つのうち、１つしか選択できません。
既定では､[GroupName]がシート名で入りますので､１シート内では
選択がひとつだけになります。

>性別のグループ、年代のグループのようにしたいのですが。
プロパティの[GroupName]をグループごとに同じ名前となるように変更して下さい。
【20512】Re:オプションボタンについて
質問  わさ  - 04/12/10(金) 17:19 -
引用なし
パスワード
   それはフォーム上の事ですよね。
やはりフォーム上でしか出来ないのでしょうか？
出来ればワークシート上？で行いたいのですが・・・。
【20513】Re:オプションボタンについて
回答  Asaki  - 04/12/10(金) 19:06 -
引用なし
パスワード
   こんにちは。

>それはフォーム上の事ですよね。
>やはりフォーム上でしか出来ないのでしょうか？
>出来ればワークシート上？で行いたいのですが・・・。
シート上でもオブジェクトを右クリックするなどしてプロパティは表示できますから、
同じように設定可能です。
【20600】Re:オプションボタンについて
回答  Jaka  - 04/12/13(月) 9:18 -
引用なし
パスワード
   オプションボタンのプロパティでGroupNameを男女、年代に分ければできます。

ただ、グループ分けしてもオブジェクト名のNoは、同じにできないからこんな感じで判定する必要があります。

For i = 1 To 6
　　With Worksheets("Sheet1").OLEObjects("OptionButton" & i).Object
　　　　 If i <= 2 Then
　　　　　　kk = "男女"
　　　　 Else
　　　　　　kk = "年代"
　　　　 End If
　　　　 MsgBox kk & "の区分けは、" & .Caption & " " & .Value
　　End With
Next
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10661 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free