Excelで日程表を作ってみよう:Step4 作成年月部分の作成

年と月の入力値が正しい範囲かチェックを行うVBAの作成

予定表の年と月を指定入力する部分を作成します。


Homeに戻る > Excelでアプリケーションソフトを作ってみよう > 日程表を作ってみよう


作成条件を入力するシートのの画面

作成年、月の部分を追加してください。
作成条件画面



Sheet1のVBAコード

■下のプロシージャを下記に変更してください。


'設定値のチェック
Private Function SetDataCheck() As Boolean
    SetDataCheck = False
    
    '開始セルのチェック
    If Not StartCellCheck Then
        Exit Function
    End If
    
    '作成方向
    If Range("C3") < 1 Or Range("C3") > 2 Then
        Range("C3").Select
        Beep
        MsgBox "横方向:1 か 縦方向:2 かを選択してください。", , "日程表作成"
        Exit Function
    End If
    
    '作成 行/列 数
    If Range("C4") = "" Then
        Range("C4") = 0
    End If
    If Range("C4") < 0 Or Range("C4") > 100 Then
        Range("C4").Select
        Beep
        MsgBox "行数 / 列数 を0~100の範囲で入力してください。", , "日程表作成"
        Exit Function
    End If
    
    '作成年のチェック
    If Range("C10") < 2000 Or Range("C10") > 2100 Then
        Range("C10").Select
        Beep
        MsgBox "作成年を2000~2100の範囲で入力してください。", , "日程表作成"
        Exit Function
    End If
    
    '作成月のチェック
    If Range("C11") < 1 Or Range("C11") > 12 Then
        Range("C11").Select
        Beep
        MsgBox "作成月を1~12の範囲で入力してください。", , "日程表作成"
        Exit Function
    End If
    
     SetDataCheck = True
End Function

Excelで日程表アプリ作成



Homeに戻る > Excelでアプリケーションソフト > 日程表を作ってみよう

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


Copyright (c) Excel-Excel ! All rights reserved