Excel VBA質問箱 IV

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

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


24862 / 76732 ←次へ | 前へ→

【57217】Re:フォーム内ラジオボタンのチェックがされているか否かをGroup単位で調べたい
回答  mizunu  - 08/8/1(金) 15:06 -

引用なし
パスワード
   >フォーム内ラジオボタンのチェックがされているか否かをGroup単位で調べたい

ユーザーフォーム内のオプションボタンだとして...
エクセルでは単にフォームと言うと [表示]-[ツールバー]-[フォーム]
あるいは、[データ]-[フォーム] をさすと思います。

>グループ単位でまとめてチェックできませんでしょうか?

グループ単位でチェックされたオプションボタンを取得する以下のような
関数を用いられては如何でしょう。

Private Function OptionButton(group As String) As MSForms.OptionButton
 Dim ctl As MSForms.Control
 For Each ctl In Controls
  If TypeOf ctl Is MSForms.OptionButton Then
   If ctl.GroupName = group And ctl.Value Then
    Set OptionButton = ctl
    Exit Function
   End If
  End If
 Next
End Function

Private Sub CommandButton1_Click()
 If OptionButton("Kind") Is Nothing Then 'チェックされていない
  '''
 End If
End Sub
2 hits

【57215】フォーム内ラジオボタンのチェックがされているか否かをGroup単位で調べたい 左之 08/8/1(金) 12:26 質問
【57216】Re:フォーム内ラジオボタンのチェックがさ... kanabun 08/8/1(金) 12:59 発言
【57218】Re:フォーム内ラジオボタンのチェックがさ... 左之 08/8/1(金) 15:45 お礼
【57217】Re:フォーム内ラジオボタンのチェックがさ... mizunu 08/8/1(金) 15:06 回答
【57219】Re:フォーム内ラジオボタンのチェックがさ... 左之 08/8/1(金) 15:50 お礼

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