| |
Yoshida さん、こんにちわ。
>全く同じような構文で、bykinさんのアドバイスをまねて
>作成した下のコードが、又正確な動作をしません。
>Private Sub CommandButton5_Click()
> Dim c As Object, buf As String, flg As Boolean
'↓コレを追加してみてください
flg = False
> For Each c In Controls
> If Left(c.Name, 12) = "OptionButton" Then
> If c.Value Then buf = buf & c.Caption & vbCrLf
> flg = True
> Exit For
> End If
> Next c
> If flg = False Then
> MsgBox "オンないです"
> Else
> MsgBox buf & "がオンです"
> End If
>End Sub
また、
If buf = "" Then
MsgBox "オンないです"
Else
MsgBox buf & "がオンです"
End If
これでもいいかも。
|
|
りん
- 07/12/16(日) 15:58 -
