| |
ハムさん
今晩は。Pankoです
こんな感じと思いますが…
１．UserForm1(ユーザーフォーム1)に
OpptionButton １〜５ を作成する
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
２．標準モジュール
module1に次の２ヶのコードを貼り付けてください
'================
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〜３まで正常に
動作します。test4・５はこれと同じように書けば出来ます。
動作は、UserForm1Showから動かしてください。
※test1〜３まで…にぃ様のコードを拝借しました。ご了承ください。m( )m
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
