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

'始めからやり直す
Private Sub CommandButton2_Click()
    Dim j As Integer
    Dim tCtrl As Variant
    
    CommandButton1.Caption = "Step 1 くじを作る"
    Range("B6") = ""
    For j = 0 To (AMIDAMAXNIN - 1) * 2 Step 2
        Cells(AMIDASTROW - 2, 2 + j) = ""
        Cells(AMIDASTROW - 1, 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 = False
    Next

    '背景色のクリア
    Range("A1:IV65536").Interior.ColorIndex = xlNone

    '追加したクジを引くボタンを削除する
    For Each tCtrl In ActiveSheet.Shapes
        'コントロールの名前をチェック
        If tCtrl.Name <> "CommandButton1" _
And tCtrl.Name <> "CommandButton2" Then
            '作成、削除のコマンドボタンでなければ削除
            ActiveSheet.Shapes(tCtrl.Name).Delete
        End If
    Next
End Sub