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

Step 1　作成開始画面の作成

手順を説明するチュートリアル画面を表示させます。
シートコード
下記のコードを追加してください。
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 "参加人数は２〜２０名の範囲で入力してください。"
        Exit Sub
    End If
End Sub

シート画面
「Step 1 作成開始」ボタンをクリックすると、参加人数をチェックします。

参加人数、範囲オーバー


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

Copyright (c) 2006 Excel-Excel ! All rights reserved.