Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

20827 / 76732

←次へ　｜　前へ→


	【61314】【61303】の追記１

超初心者

- 09/4/25(土) 0:50 -


	引用なし

	パスワード

何度も質問申し訳ございません。

前回のコードを修正し、質問１は何とか表示できる様になりましたが、
質問２、３のオプションボタンを入力してしまうと
質問１が消えてしまいます。

質問１、２、３のオプションボタンを分けて表示させるコードがどのサイトを
探しても不明ですので失礼承知で質問致します。

具体的にしたい作業は質問１、２、３の答えをオプションボタンから選び、
オプションボタンをクリックし、コマンドボタンを押したら質問１，２，３の
＝の横に表示させ、
各質問でオプションボタンを押さずにコマンドボタンを押した場合に★★未選択★★を表示させるコードになります。
その上でテキストボックス内をコピーするコマンドを用意すると言ったコードです。

ユーザーフォーム↓

CommandButton1_Click

質問１
１＋１＝
OptionButton1　OptionButton2　OptionButton3

質問２
２＋２＝
OptionButton4　OptionButton5　OptionButton6

質問３
３＋１＝
OptionButton7　OptionButton8　OptionButton9

CommandButton2_Click

↓オプションボタンを何も押さずにコマンドボックスを押した場合のテキストボックス
－－－－－－－－－－－－－－－－－－
質問１
＝★★未選択★★

質問２　　　　　　　　　　　
＝★★未選択★★　　　　　　　　　　　　　　　　　　　　　　　　　　　　　

質問３　　　　　　
＝★★未選択★★
－－－－－－－－－－－－－－－－－－

↓自分で入力したコード

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 = "質問１" & vbCrLf & "→" & "２"
　　ElseIf varType2 = True Then
　　　Userform1.TextBox1.Value = "質問１" & vbCrLf & "→" & "３"
　　ElseIf varType3 = True Then
　　　Userform1.TextBox1.Value = "質問１" & vbCrLf & "→" & "４"
　　ElseIf varType4 = True Then
　　　Userform1.TextBox1.Value = "質問２" & vbCrLf & "→" & "４"
　　ElseIf varType5 = True Then
　　　Userform1.TextBox1.Value = "質問２" & vbCrLf & "→" & "５"
　　ElseIf varType6 = True Then
　　　Userform1.TextBox1.Value = "質問２" & vbCrLf & "→" & "６"
　　ElseIf varType7 = True Then
　　　Userform1.TextBox1.Value = "質問３" & vbCrLf & "→" & "４"
　　ElseIf varType8 = True Then
　　　Userform1.TextBox1.Value = "質問３" & vbCrLf & "→" & "５"
　　ElseIf varType9 = True Then
　　　Userform1.TextBox1.Value = "質問３" & vbCrLf & "→" & "６"
　　Else
　　　Userform1.TextBox1.Value = "質問１" & vbCrLf & "→" & "★★未選択★★" & vbCrLf & "質問２" & vbCrLf & "→" & "★★未選択★★"　"質問３" & vbCrLf & "→" & "★★未選択★★"

　　End If
　　
End Sub

Private Sub CommandButton2_Click()
Set MyData = New DataObject
MyData.SetText TextBox1.Text
MyData.PutInClipboard
End Sub

1 hits

▼

【61314】【61303】の追記１ 超初心者 09/4/25(土) 0:50

≪