Excelで日程表を作ってみよう

Step 4 作成年月部分の作成

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

Home > Excelでアプリケーションソフト > 日程表を作ってみよう > Step4 作成年月部分の作成

スポンサーリンク






作成条件の画面

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

スポンサーリンク



Sheet1のコード


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

'設定値のチェック
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

スポンサーリンク






Home > Excelでアプリケーションソフト > 日程表を作ってみよう > Step4 作成年月部分の作成

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


Copyright (c) Excel-Excel ! All rights reserved