あみだくじを作ってみよう　Step 2　縦線の作成

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

Step 2　縦線の作成

人数分の縦線を描きます。
とりあえず行数はソフト内で設定することにします。

シートコード

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

'あみだの行
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

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

'コマンドボタンのクリックイベント
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

シート画面

	「Step 1 作成開始」ボタンをクリックすると、参加人数分赤色で縦線を描きます。行数はとりあえず50行にしています。

Topへ