|
ハムさん
今晩は。Pankoです
こんな感じと思いますが…
1.UserForm1(ユーザーフォーム1)に
OpptionButton 1〜5 を作成する
CommandButton を1ヶ作る
次のコードをCommandButtonをダブルクリックして出てきた「CommandButton1」右に「Click」と書かれたコードを書くシートに、貼り付けてください
'===============================
Private Sub CommandButton1_Click()
Dim i As Long
For i = 1 To Controls.Count - 1
If Controls("OptionButton" & i).Value Then
Run "test" & i
Controls("OptionButton" & i).Value = False
Exit For
End If
Next
End Sub
2.標準モジュール
module1に次の2ヶのコードを貼り付けてください
'================
Sub UserForm1Show()
UserForm1.Show 0
End Sub
'====================
Sub test1()
Dim str_vb As String
str_vb = MsgBox("test1を実行しますか?", vbYesNo + vbQuestion)
If str_vb = vbYes Then
MsgBox "1を実行!", vbInformation
ElseIf str_vb = vbNo Then
MsgBox "1を中止", vbCritical
End If
End Sub
Sub test2()
Dim str_vb As String
str_vb = MsgBox("test2を実行しますか?", vbYesNo + vbQuestion)
If str_vb = vbYes Then
MsgBox "2を実行!", vbInformation
ElseIf str_vb = vbNo Then
MsgBox "2を中止", vbCritical
End If
End Sub
Sub test3()
Dim str_vb As String
str_vb = MsgBox("test3を実行しますか?", vbYesNo + vbQuestion)
If str_vb = vbYes Then
MsgBox "3を実行!", vbInformation
ElseIf str_vb = vbNo Then
MsgBox "3を中止", vbCritical
End If
End Sub
'test3まで同じ事を書きました、それゆえOpptionButton1〜3まで正常に
動作します。test4・5はこれと同じように書けば出来ます。
動作は、UserForm1Showから動かしてください。
※test1〜3まで…にぃ様のコードを拝借しました。ご了承ください。m( )m
|
|