|
▼Hirofumi さん:
> 【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
ありがとうございます。
今度はオプションボックスを選択しても選択しない場合のみの表示が出てしまいます・・・
|
|