Excel でテンプレートを使用せずにカレンダーを作成する方法 (2 つの例)

このチュートリアルでは、テンプレートを使用せずに Excel でカレンダーを作成する方法を示します。私たちの日常生活では、特定の仕事やプロジェクトに締め切りがあるため、独自のカレンダーを維持することは非常に重要です。仕事の時間制限を思い出させるのに役立ちます。さらに、独自の Excel カレンダーを作成すると、必要に応じて変更できるため、特別な利点が得られます。したがって、テンプレートを使用せずに Excel でカレンダーを作成することは非常に重要です。

ここから練習用ワークブックをダウンロードできます。

テンプレートなしで Excel でカレンダーを作成する 2 つの簡単な例

2 つの例を使用して、テンプレートを使用せずに Excel でカレンダーを作成します。手順を正しく実行すれば、自分でテンプレートを使用せずに Excel でカレンダーを作成する方法を学ぶ必要があります。手順は次のとおりです。

1. Excel で月間カレンダーを作成

この場合の目標は、テンプレートを使用せずに月間カレンダーを作成することです。以下の手順に従うことで、簡単に行うことができます。

手順:

• まず、Alt + F11 を押します VBA を開くためのオプション ウィンドウ。
• 次に、[挿入]> [モジュール] に移動します オプション。

• その後、次のコードをウィンドウに挿入します。

Sub CalendarMaker()
'This code was taken from extendoffice.com
       ActiveSheet.Protect DrawingObjects:=False, Contents:=False, _
          Scenarios:=False
       Application.ScreenUpdating = False
       On Error GoTo MyErrorTrap
       Range("a1:g14").Clear
       MyInput = InputBox("Type in Month and year for Calendar ")
       If MyInput = "" Then Exit Sub
       StartDay = DateValue(MyInput)
       If Day(StartDay) <> 1 Then
           StartDay = DateValue(Month(StartDay) & "/1/" & _
               Year(StartDay))
       End If
       Range("a1").NumberFormat = "mmmm yyyy"
       With Range("a1:g1")
           .HorizontalAlignment = xlCenterAcrossSelection
           .VerticalAlignment = xlCenter
           .Font.Size = 18
           .Font.Bold = True
           .RowHeight = 35
       End With
       With Range("a2:g2")
           .ColumnWidth = 11
           .VerticalAlignment = xlCenter
           .HorizontalAlignment = xlCenter
           .VerticalAlignment = xlCenter
           .Orientation = xlHorizontal
           .Font.Size = 12
           .Font.Bold = True
           .RowHeight = 20
       End With
       Range("a2") = "Sunday"
       Range("b2") = "Monday"
       Range("c2") = "Tuesday"
       Range("d2") = "Wednesday"
       Range("e2") = "Thursday"
       Range("f2") = "Friday"
       Range("g2") = "Saturday"
       With Range("a3:g8")
           .HorizontalAlignment = xlRight
           .VerticalAlignment = xlTop
           .Font.Size = 18
           .Font.Bold = True
           .RowHeight = 21
       End With
       Range("a1").Value = Application.Text(MyInput, "mmmm yyyy")
       DayofWeek = Weekday(StartDay)
       CurYear = Year(StartDay)
       CurMonth = Month(StartDay)
       FinalDay = DateSerial(CurYear, CurMonth + 1, 1)
       Select Case DayofWeek
           Case 1
               Range("a3").Value = 1
           Case 2
               Range("b3").Value = 1
           Case 3
               Range("c3").Value = 1
           Case 4
               Range("d3").Value = 1
           Case 5
               Range("e3").Value = 1
           Case 6
               Range("f3").Value = 1
           Case 7
               Range("g3").Value = 1
       End Select
       For Each cell In Range("a3:g8")
           RowCell = cell.Row
           ColCell = cell.Column
           If cell.Column = 1 And cell.Row = 3 Then
           ElseIf cell.Column <> 1 Then
               If cell.Offset(0, -1).Value >= 1 Then
                   cell.Value = cell.Offset(0, -1).Value + 1
                   If cell.Value > (FinalDay - StartDay) Then
                       cell.Value = ""
                       Exit For
                   End If
               End If
           ElseIf cell.Row > 3 And cell.Column = 1 Then
               cell.Value = cell.Offset(-1, 6).Value + 1
               If cell.Value > (FinalDay - StartDay) Then
                   cell.Value = ""
                   Exit For
               End If
           End If
       Next
       For x = 0 To 5
           Range("A4").Offset(x * 2, 0).EntireRow.Insert
           With Range("A4:G4").Offset(x * 2, 0)
               .RowHeight = 65
               .HorizontalAlignment = xlCenter
               .VerticalAlignment = xlTop
               .WrapText = True
               .Font.Size = 10
               .Font.Bold = False
               .Locked = False
           End With
           With Range("A3").Offset(x * 2, 0).Resize(2, _
           7).Borders(xlLeft)
               .Weight = xlThick
               .ColorIndex = xlAutomatic
           End With
           With Range("A3").Offset(x * 2, 0).Resize(2, _
           7).Borders(xlRight)
               .Weight = xlThick
               .ColorIndex = xlAutomatic
           End With
           Range("A3").Offset(x * 2, 0).Resize(2, 7).BorderAround _
              Weight:=xlThick, ColorIndex:=xlAutomatic
       Next
       If Range("A13").Value = "" Then Range("A13").Offset(0, 0) _
          .Resize(2, 8).EntireRow.Delete
       ActiveWindow.DisplayGridlines = False
       ActiveSheet.Protect DrawingObjects:=True, Contents:=True, _
          Scenarios:=True
       ActiveWindow.WindowState = xlMaximized
       ActiveWindow.ScrollRow = 1
       Application.ScreenUpdating = True
       Exit Sub
MyErrorTrap:
       MsgBox "You may not have entered your Month and Year correctly." _
           & Chr(13) & "Spell the Month correctly" _
           & " (or use 3 letter abbreviation)" _
           & Chr(13) & "and 4 digits for the Year"
       MyInput = InputBox("Type in Month and year for Calendar")
       If MyInput = "" Then Exit Sub
       Resume
   End Sub

• 次に、希望する月と年をカレンダー ダイアログ ボックスに挿入し、OK を押します .

• 最後に、 RUN を押した後 または F5 ボタンをクリックすると、目的の結果が得られます。

続きを読む: Excel で月間カレンダーを作成する方法 (効果的な 3 つの方法)

2. Excelで年間カレンダーを作成

以下の手順に従って、Excel で年間カレンダーを作成したいと考えています。

手順:

• まず、下の画像のようにデータセットを配置します。

• 次に、セル B8 に次の数式を挿入します .

=IF(MONTH(DATE($B$4,$B$6,1)+SEQUENCE(6,7)-WEEKDAY(DATE($B$4,$B$6,1),2))=$B$6,DATE($B$4,$B$6,1)+SEQUENCE(6,7)-WEEKDAY(DATE($B$4,$B$6,1),2),"")

🔎 式の仕組み

• (DATE($B$4,$B$6,1) :この部分は、DATE 関数で選択されたセルを表します 適用されます。
• WEEKDAY(DATE($B$4,$B$6,1),2) :この部分は、日付と平日の両方が考慮されます。
• (DATE($B$4,$B$6,1)+SEQUENCE(6,7)-WEEKDAY(DATE($B$4,$B$6,1),2))=$B$6, DATE($B$4,$B$6,1)+SEQUENCE(6,7)-WEEKDAY(DATE($B$4,$B$6,1),2) :この部分は、日付と曜日を考慮して日付が順番に編成されていることを表します。
• IF(MONTH(DATE($B$4,$B$6,1)+SEQUENCE(6,7)-WEEKDAY(DATE($B$4,$B$6,1),2))=$ B$6,DATE($B$4,$B$6,1)+SEQUENCE(6,7)-WEEKDAY(DATE($B$4,$B$6,1),2),””) :この部分は、月、日付、曜日とともに条件全体を表します。

• 3 番目に、Enter を押した後 ボタンをクリックすると、その月の望ましい結果が得られます。

• 上記の手順を繰り返し続けると、下の画像のように、1 か月ごとに目的の結果が得られます。

• 5 番目に、現在の年間カレンダーに休日を挿入します。そこで、新しいワークシートに下の画像のようなデータセットを配置しました。

• 6 番目に、選択したデータ テーブル> [ホーム]> [条件付き書式設定]> [新しいルール] に移動します オプション。

• 7 番目、新しい書式設定ルール ダイアログ ボックスで、[数式を使​​用して書式設定するセルを決定する] を選択します。 ルール タイプの選択 オプションを選択し、この数式が true の場合の値の書式設定に次のルールを挿入します オプションをクリックして、プレビュー で目的の色を選択します オプションを選択して OK を押します .

=ISNUMBER(VLOOKUP(B8,Holidays!$C:$C,1,0))

🔎 式の仕組み

• VLOOKUP(B8, 休日!$C:$C,1,0) : VLOOKUP 関数 テーブルの一番左の列の値を検索し、指定した列から同じ行の値を返します。ここでは B6 ( lookup_value 引数) は Holidays!$C:$C からマッピングされます (テーブル配列 引数) 配列。次、1 (col_index_num 引数) は、ルックアップ値の列番号を表します。最後に、0 (range_lookup 引数) は完全一致を指します
• ISNUMBER(VLOOKUP(B8, Holidays!$C:$C,1,0)): ISNUMBER 関数 値が数値かどうかをチェックし、TRUE または FALSE を返します。

• 8 番目、Enter を押した後 ボタンをクリックすると、その月の望ましい結果が得られます。

• 最後に、この手順を繰り返し続けると、下の画像のように、毎月の目的の結果が得られます。

続きを読む: Excel で年間カレンダーを作成する方法 (簡単な手順)

結論

以降は、上記の方法に従ってください。これらの方法が、テンプレートなしで Excel でカレンダーを作成するのに役立つことを願っています。他の方法でタスクを実行できるかどうかをお知らせいただければ幸いです。 ExcelDemy をフォロー このような他の記事のウェブサイト。混乱や問題が発生した場合は、下のセクションにコメント、提案、または質問を自由に追加してください。問題を解決したり、あなたの提案に取り組んだりするために最善を尽くします。

関連記事

• Excel でインタラクティブなカレンダーを作成する方法 (2 つの簡単な方法)
• Excel で空白のカレンダーを作成する (無料のテンプレートをダウンロード)
• Excel で週間カレンダーを作成する方法 (3 つの適切な方法)