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

Step 1 作成開始画面の作成

手順を説明するチュートリアル画面を表示させます。

Home > Excelでアプリケーションソフト > Excelであみだくじ > Step1 作成開始画面の作成


スポンサーリンク





シートコード

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

Option Explicit

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

スポンサーリンク



シート画面

「Step 1 作成開始」ボタンをクリックすると、参加人数をチェックします。
参加人数、範囲オーバー




Home > Excelでアプリケーションソフト > Excelであみだくじ > Step1 作成開始画面の作成

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


Copyright (c) Excel-Excel ! All rights reserved