生産管理 年間シートを作ってみよう

Step 3 機種名の入力チェック

「作成開始」ボタンがクリックされると、作成年度の入力をチェックした後、機種名が入力されているかどうか調べます。
機種名が入力されていなければエラーになります。

チェック方法は、End(xlUp).Row を使い入力されている最終行を取得し、それが9行目ならば入力なしと判定します。

メニューに戻る

スポンサーリンク






実行画面

■機種名が入力されていない場合の画面
"機種名を入力してください。"とエラーメッセージが表示されます。
機種名未入力の場合の画面

スポンサーリンク



実行コード

Private Sub CommandButton1_Click()
    Dim last As Long
    
    '作成年度の入力チェック
    If Range("C7") = "" Then
        MsgBox "作成年度を入力してください。"
        Range("C7").Activate
        Exit Sub
    End If
    
    '作成年度の入力が正しいかどうかチェック
    If ExDateCheck(Range("C7")) = False Then
        '正しくない場合は抜ける
        Exit Sub
    End If
    
    '機種名の最終行を調べる
    last = Sheets("作成メニュー").Range("C65536").End(xlUp).Row
    '9行目ならば入力されていない
    If last = 9 Then
        MsgBox "機種名を入力してください。"
        Range("C7").Activate
        Exit Sub
    End If

End Sub

スポンサーリンク






メニューに戻る

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


Copyright (c) Excel-Excel ! All rights reserved