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

'名前の入力
Private Sub ExInputName(nin As Long)
    Dim j As Integer
    
    '中央に表示
    Range(Cells(AMIDASTROW - 2, 2), _
    Cells(AMIDASTROW + AMIDAROW + 1,2 + (nin - 1) * 2)).HorizontalAlignment = xlHAlignCenter
    
    Range("B6") = "名前を入力し、この「Step2 くじを引く」ボタンをクリックしてください。"
    For j = 0 To (nin - 1) * 2 Step 2
        Cells(AMIDASTROW - 2, 2 + j) = "名前"
        '罫線を引く
Range(Cells(AMIDASTROW - 2, 2 + j),Cells(AMIDASTROW - 1, 2 + j)). Borders.Weight = xlThin
Range(Cells(AMIDASTROW - 2, 2 + j),Cells(AMIDASTROW - 1, 2 + j)).Borders.LineStyle = xlContinuous
    Next
    '名前入力位置
    Cells(AMIDASTROW - 1, 2).Select
    CommandButton1.Caption = "Step 2 くじを引く"
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

    '名前の入力
    ExInputName ln
End Sub