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

Step 2 縦線の作成

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

Homeに戻る > Excelでアプリケーションソフトを作ってみよう > Excelであみだくじ




シートのVBAコード

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

'あみだの行

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 "参加人数は2~20名の範囲で入力してください。"
        Exit Sub
    End If
On Error GoTo 0
    
    'あみだくじを描く
    ExMakeAmida ln
End Sub

シート画面

「Step 1 作成開始」ボタンをクリックすると、参加人数分赤色で縦線を描きます。
行数はとりあえず50行にしています。
赤色の縦線
Homeに戻る > Excelでアプリケーションソフトを作ってみよう > Excelであみだくじ

■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します


Copyright (c) Excel-Excel ! All rights reserved