Excelのユーザーフォームについての質問です。

Excel | Visual Basic8閲覧

ベストアンサー

0

>ifとelse文で If~Elseの必要性はないのですけどね。 Private Sub CommandButton1_Click() Dim i As Long i = WorksheetFunction.RandBetween(0, 2) With Label1 If i = 0 Then .Caption = "大吉" ElseIf i = 1 Then .Caption = "中吉" Else .Caption = "小吉" End If End With End Sub