|
【53117】Re:Optionbuttonのチックしていないメッセージを出す方法
Hirofumi - 07/12/16(日) 1:57 -
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=53117;id=excel
上記の過去ログの「Private Sub CommandButton1_Click()」を
以下の様にすれば善いかも
Private Sub CommandButton1_Click()
Dim i As Long
TextBox1.Text = ""
For i = 1 To 3
TextBox1.Text = TextBox1.Text & "質問" & i & vbCrLf & " = "
With Me.Controls("Frame" & i)
If .Tag <> "" Then
TextBox1.Text = TextBox1.Text & .Tag
Else
TextBox1.Text = TextBox1.Text & "★★未選択★★"
End If
End With
TextBox1.Text = TextBox1.Text & vbCrLf
Next i
End Sub
|
|