|
▼超初心者 さん:
>▼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
>
>
>ありがとうございます。
>
>今度はオプションボックスを選択しても選択しない場合のみの表示が出てしまいます・・・
Option Explicit
'Groupの値取得クラスの配列
Private clsGroup() As Class1
Private Sub UserForm_Initialize()
Dim i As Long
Dim j As Long
'ClassにOptionButtonを設定
For i = 0 To Controls.Count - 1
If TypeName(Controls(i)) _
= "OptionButton" Then
j = j + 1
ReDim Preserve clsGroup(1 To j)
Set clsGroup(j) = New Class1
clsGroup(j).Button = Controls(i)
End If
Next i
End Sub
Private Sub UserForm_Terminate()
Dim i As Long
'Classを破棄
For i = 1 To UBound(clsGroup)
Set clsGroup(i) = Nothing
Next i
End Sub
上記コードを追加するとコンパイル時に
User-Defined type not Defined
が表示されてしまいます
|
|