| |
▼ｂｙｋｉｎ さん：
>変数をもう１個用意して、こんな感じ？
変数を増やすアイディアが出ませんでした。
またflgを思いついたのですが、TrueとFalseのBooleanで試したのですが、
美味く動作しませんでした。flgをlongでしかも変数処理には感激しました。
大変勉強になりました。
あと一点教えてください。
全く同じような構文で、bykinさんのアドバイスをまねて
作成した下のコードが、又正確な動作をしません。
アドバイスをお願いします。
今回のflgはBooleanで良いと判断したのですが･･･
Private Sub CommandButton5_Click()
Dim c As Object, buf As String, flg As Boolean
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
|
|
Yoshida
- 07/12/16(日) 11:08 -
