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

'あみだの行
Private Const AMIDAROW = 50

'あみだくじを描く
Private Sub ExMakeAmida(nin As Long)
    Dim i As Integer
    Dim j As Integer
    
    '背景色のクリア
    Range("A1:IV65536").Interior.ColorIndex = xlNone
    
    '縦線を描く
    For j = 0 To (nin - 1) * 2 Step 2
        For i = 0 To AMIDAROW - 1
            Cells(10 + i, 2 + j).Interior.Color = RGB(255, 0, 0)
        Next
    Next
End Sub


下記のVBAコードに変更してください。

'コマンドボタンのクリックイベント
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
On Error GoTo 0
    
    'あみだくじを描く
    ExMakeAmida ln
End Sub