Excelであみだくじ を作ってみよう

シートのVBAコード

下記のVBAコードを追加してください。

Option Explicit

'コマンドボタンのクリックイベント
Private Sub CommandButton1_Click()
    Dim ln As Long

On Error Resume Next
    '参加人数のチェック
    ln = Range("D2")
    If ln <= 1 Or ln > 20 Then
        MsgBox "参加人数は２～２０名の範囲で入力してください。"
        Exit Sub
    End If
End Sub

シート画面

「Step 1 作成開始」ボタンをクリックすると、参加人数をチェックします。