|
何度も質問申し訳ございません。
前回のコードを修正し、質問1は何とか表示できる様になりましたが、
質問2、3のオプションボタンを入力してしまうと
質問1が消えてしまいます。
質問1、2、3のオプションボタンを分けて表示させるコードがどのサイトを
探しても不明ですので失礼承知で質問致します。
具体的にしたい作業は質問1、2、3の答えをオプションボタンから選び、
オプションボタンをクリックし、コマンドボタンを押したら質問1,2,3の
=の横に表示させ、
各質問でオプションボタンを押さずにコマンドボタンを押した場合に★★未選択★★を表示させるコードになります。
その上でテキストボックス内をコピーするコマンドを用意すると言ったコードです。
ユーザーフォーム↓
CommandButton1_Click
質問1
1+1=
OptionButton1 OptionButton2 OptionButton3
質問2
2+2=
OptionButton4 OptionButton5 OptionButton6
質問3
3+1=
OptionButton7 OptionButton8 OptionButton9
CommandButton2_Click
↓オプションボタンを何も押さずにコマンドボックスを押した場合のテキストボックス
−−−−−−−−−−−−−−−−−−
質問1
=★★未選択★★
質問2
=★★未選択★★
質問3
=★★未選択★★
−−−−−−−−−−−−−−−−−−
↓自分で入力したコード
Private Sub CommandButton1_Click()
Dim varType1 As Variant
Dim varType2 As Variant
Dim varType3 As Variant
Dim varType4 As Variant
Dim varType5 As Variant
Dim varType6 As Variant
Dim varType7 As Variant
Dim varType8 As Variant
Dim varType9 As Variant
varType1 = Userform1.OptionButton1.Value
varType2 = Userform1.OptionButton2.Value
varType3 = Userform1.OptionButton3.Value
varType4 = Userform1.OptionButton4.Value
varType5 = Userform1.OptionButton5.Value
varType6 = Userform1.OptionButton6.Value
varType7 = Userform1.OptionButton7.Value
varType8 = Userform1.OptionButton8.Value
varType9 = Userform1.OptionButton9.Value
If varType1 = True Then
Userform1.TextBox1.Value = "質問1" & vbCrLf & "→" & "2"
ElseIf varType2 = True Then
Userform1.TextBox1.Value = "質問1" & vbCrLf & "→" & "3"
ElseIf varType3 = True Then
Userform1.TextBox1.Value = "質問1" & vbCrLf & "→" & "4"
ElseIf varType4 = True Then
Userform1.TextBox1.Value = "質問2" & vbCrLf & "→" & "4"
ElseIf varType5 = True Then
Userform1.TextBox1.Value = "質問2" & vbCrLf & "→" & "5"
ElseIf varType6 = True Then
Userform1.TextBox1.Value = "質問2" & vbCrLf & "→" & "6"
ElseIf varType7 = True Then
Userform1.TextBox1.Value = "質問3" & vbCrLf & "→" & "4"
ElseIf varType8 = True Then
Userform1.TextBox1.Value = "質問3" & vbCrLf & "→" & "5"
ElseIf varType9 = True Then
Userform1.TextBox1.Value = "質問3" & vbCrLf & "→" & "6"
Else
Userform1.TextBox1.Value = "質問1" & vbCrLf & "→" & "★★未選択★★" & vbCrLf & "質問2" & vbCrLf & "→" & "★★未選択★★" "質問3" & vbCrLf & "→" & "★★未選択★★"
End If
End Sub
Private Sub CommandButton2_Click()
Set MyData = New DataObject
MyData.SetText TextBox1.Text
MyData.PutInClipboard
End Sub
|
|