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

Excel は、いくつかの計算とテンプレートを自動化する優れたツールです。 Excel を使用して、さまざまな種類の月間カレンダーを作成できます。これを行う方法を探しているなら、あなたは完璧な場所にたどり着きました.この記事では、3 を紹介します。 月間カレンダーの効果的な作成方法

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

Excel で毎月のカレンダーを効果的に作成する 3 つの方法

1. Excel テンプレートから月間カレンダーを作成

Excel自体には、カレンダー用の事前に作成されたテンプレートがいくつかあります.以下の方法に従って、これらのテンプレートから月間カレンダーを作成できます。

📌 手順:

• 何よりもまず、ファイルに移動します タブ

• その後、新規を選択します 展開された ファイル からのオプション タブ
• その後、新しい ウィンドウが表示されます。
• 続いて、calendar と入力します 検索ボックスで [検索を開始] をクリックします。 アイコン。

• その結果、利用可能なテンプレートが提案として表示されます。

• 次に、好きなテンプレートを選択して、[作成] をクリックします。 ボタン。

その結果、テンプレートに従って新しい Excel ウィンドウにカレンダーが表示されます。選択したテンプレートの場合、結果は次のようになります。

続きを読む: Excel でテンプレートなしでカレンダーを作成する方法 (2 つの例)

2. Excel 2003 でカスタムの月間カレンダーを作成する | 2007年 | 2010年 | 2013年 | 2016年以降のバージョン

さて、既製のテンプレートが好きではなく、自分の選択に従って独自の月間カレンダーを作成したい場合があります.この点に関して、以下の手順に従って Excel で月間カレンダーを作成できます。

📌 手順:

• まず、月のヘッダーを作成し、7 行 7 列を選択します。

• その後、[すべての境界線] をクリックして選択します。 ホームのアイコン タブ

• その結果、すべてのセルにすべての境界線が表示されます。
• 続いて、選択した最初の行に、曜日の名前を書き、必要に応じて書式を設定します。

• 残りの 6 行と 7 列を選択>> ホームに移動 タブ>> セル グループ>> 形式 ツール>> 行の高さ… オプション

• その結果、行の高さ ウィンドウが表示されます。
• 40 の値を入れます 行の高さ: テキスト ボックスを開き、[OK] をクリックします。 ボタン。

• その後、前の選択でホームに移動します タブ>> セル グループ>> 形式 ツール>> 列幅… オプション

• したがって、列の幅 ウィンドウが表示されます。
• その後、値を 12 にします 列幅: テキスト ボックスを開き、[OK] をクリックします。 ボタン。

• ここで、前の選択で右クリックします。 マウスで [セルの書式設定…] を選択します。 コンテキスト メニューのオプション

• 現時点では、セルの書式設定 ウィンドウが表示されます。
• その後、アラインメントに移動します タブ>> 右 (インデント) を選択します Horizo​​ntal: のオプション:オプションリスト>> トップを選択 垂直方向のオプション: オプション リスト>> OK をクリックします ボタン。

したがって、カレンダーの書式設定は完全に準備ができています。ここで、翌年の翌月の最初の日をググって、平日に応じて値を入力します。最終的に、月間カレンダーは次のようになります。

続きを読む:Excel でインタラクティブなカレンダーを作成する方法 (2 つの簡単な方法)

3. VBAで月間カレンダーを作る

月間カレンダーを作成するもう 1 つの方法は、VBA コードを使用することです。これを行うには、以下の手順に従ってください。

📌 手順:

• 最初に、新しいワークシートを作成し、開発者に移動します タブ>> Visual Basic ツール。

• その結果、Microsoft Visual Basic for Applications ウィンドウが表示されます。
• 続いて、挿入に移動します タブ>> モジュールを選択 オプション

• その結果、Module1 という名前の新しいモジュールが が作成されました。

• その後、ダブルクリック モジュール 1 で コード ウィンドウに以下の VBA コードを記述します。

この VBA コードは、この docs.microsoft.com から取得したものです .

Sub CalendarMaker()

 ActiveSheet.Protect DrawingObjects:=False, Contents:=False, _
 Scenarios:=False
 Application.ScreenUpdating = False
 On Error GoTo MyErrorTrap
 Range("a1:g14").Clear
 MyInput = InputBox("Type in months and years")
 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

• その後、 Ctrl+S を押します .
• 現時点では、Microsoft Excel ダイアログボックスが表示されます。 いいえをクリックします ボタンをクリックしてください。

• その結果、名前を付けて保存 ダイアログ ボックスが表示されます。
• 続いて、ファイルの種類を選択します:.xlsm としてのオプション [保存] をクリックします。 ボタン。

• コード ウィンドウを閉じて、デベロッパー タブ>> マクロ ツール。

• その結果、マクロ ウィンドウが表示されます。
• 次に、CalendarMaker を選択します マクロを開き、[実行] をクリックします。 ボタン。

• その結果、Microsoft Excel ダイアログ ボックスが表示されます。
• ここに、月の最初の 3 文字と年の 4 桁を書きます。
• 最後に、[OK] をクリックします。 ボタン。

したがって、次の月のカレンダーがワークシートに作成され、結果は次のようになります。

数式を使​​用して Excel で対話型/動的カレンダーを作成する

ここで、式を使用して Excel で対話型/動的カレンダーを作成する場合は、いくつかの追加作業を行う必要があります。これを達成するには、以下の手順を慎重に行ってください。

📌 手順:

• まず、2 つのヘルパー テーブルを作成します。1 つは休日リスト、もう 1 つは月名リストです。

• 次に、選択したカスタムの月間カレンダー テンプレートを作成します。
• 次に、動的な目的のために、月の名前を自動化します。
• これを行うには、H4 を選択します セル>> データに移動 タブ>> データ ツール グループ>> データ検証 ツール>> データ検証… オプション

• その後、データ検証 ウィンドウが表示されます。
• その後、設定に移動します ここのタブ>> リストを選択 許可: のオプション オプション一覧>> E5:E16 参照 ソースのセル: テキスト ボックス>> OK をクリックします ボタン。

• その結果、H4 にドロップダウン リストが表示されます。 をクリックして月を選択できます。

• 1 月を選択したら、B6 をクリックします。 セルに次の式を挿入してください。

=IF(MONTH(DATE($D$4,MATCH($H$4,'Helper Columns'!$E$5:$E$16,0),1)+SEQUENCE(6,7)-WEEKDAY(DATE($D$4,MATCH($H$4,'Helper Columns'!$E$5:$E$16,0),1),2))=MATCH($H$4,'Helper Columns'!$E$5:$E$16,0),DATE($D$4,MATCH($H$4,'Helper Columns'!$E$5:$E$16,0),1)+SEQUENCE(6,7)-WEEKDAY(DATE($D$4,MATCH($H$4,'Helper Columns'!$E$5:$E$16,0),1),2),"")

• 続いて、Enter を押します ボタン。

• したがって、翌月の平日に基づいてすべての日付を正しく取得できます。

• しかし、値の形式が正しくありません。
• これを修正するには、右クリックします 全体的に B6:H11 を選択し、セルの書式設定… を選択します コンテキスト メニューのオプション

• その結果、セルの書式設定 ダイアログ ボックスが表示されます。
• 番号に移動 ここのタブ>> カスタムを選択 カテゴリのオプション: ペイン>> dd と書く タイプ: テキスト ボックス>> OK をクリックします ボタン。

• したがって、カレンダーの日付は適切にフォーマットされ、翌月の完全なカレンダーを表示できます。

• 週末を別の方法でマークするには、週末のセルを選択>> ホーム に移動します タブ>> フォント グループ>> 塗りつぶしの色 アイコン>> オレンジ、アクセント 2、ライター 40% を選択 色。

• 祝日をマークするには、B6:H11 セルを選択>> ホーム タブに移動>> 条件付き書式設定 ツール>> 新しいルール… オプション

• したがって、書式設定ルールの編集 ウィンドウが表示されます。
• 続いて、[ルール タイプの選択] から最後のオプションを選択します。 オプション リスト>> この式が真である場合の値の書式設定に以下の式を記述します:数式バー>> 書式… をクリック オプション

=ISNUMBER(VLOOKUP('Dynamic Monthly Calender'!B6,'Helper Columns'!$C$5:$C$15,1,0))

• その後、塗りつぶしに移動します 表示されたウィンドウのタブ>> 赤を選択 色>> OK をクリックします ボタン。

• その結果、フォーマット ルールの編集 ウィンドウが再び表示され、プレビューが表示されます。 [OK] をクリックします ボタン。

したがって、週末が異なる色で表示され、休日も異なる色で表示されるインタラクティブな月間カレンダーが得られます。 H4 のドロップダウンで月を変更できます したがって、平日、週末、祝日も動的に変化します。

Excel で年間カレンダーを作成する

ここで、Excel で年間カレンダーを作成する場合は、 以下の手順に従ってください。

📌 手順:

• 最初に、自分で選択した日と月のテンプレートを作成します。

• その後、B6 をクリックします。 セルに次の式を挿入してください。

=IF(MONTH(DATE($B$3,MATCH($B$4,'Helper Columns'!$E$5:$E$16,0),1)+SEQUENCE(6,7)-WEEKDAY(DATE($B$3,MATCH($B$4,'Helper Columns'!$E$5:$E$16,0),1),2))=MATCH($B$4,'Helper Columns'!$E$5:$E$16,0),DATE($B$3,MATCH($B$4,'Helper Columns'!$E$5:$E$16,0),1)+SEQUENCE(6,7)-WEEKDAY(DATE($B$3,MATCH($B$4,'Helper Columns'!$E$5:$E$16,0),1),2),"")

• 続いて、Enter キーを押します r ボタン

• その結果、翌月の特定の日に従って日付が設定されることがわかります。
• ただし、スペースやフォーマットの問題により、### と表示されることがあります。
• これを復元するには、月全体のデータセットを選択して右クリックします
• 次に、セルの書式設定… を選択します。 オプション

• したがって、セルの書式設定 ウィンドウが表示されます。
• では、番号に移動します タブ>> カスタムを選択 カテゴリのオプション: ペイン>> dd と書く タイプ: テキスト ボックス>> OK をクリックします ボタン。

• 翌年の各月について、これらの手順を繰り返します。
• したがって、通年の平日に従って日付を取得します。

• 週末をマークするには、週末のセルを選択>> ホーム に移動します タブ>> フォント グループ>> 塗りつぶしの色 アイコン>> 色を選択 オレンジ、アクセント 2、明るめ 40% .

• その後、1 月の休日をマークするために、その月のすべての日を選択>> ホーム に移動 タブ>> 条件付き書式 ツール>> 新しいルール… を選択 オプション

• その結果、フォーマット ルールの編集 ウィンドウが表示されます。
• 続いて、[ルール タイプの選択] から最後のオプションを選択します。 オプション>> [この式が true の場合の値の書式設定] に次の式を挿入します:テキストボックス>> フォーマット… をクリック ボタン。

=ISNUMBER(VLOOKUP(B6,'Helper Columns'!$C$5:$C$15,1,0))

• その後、塗りつぶしに移動します タブ>> 赤を選択 色>> OK をクリックします ボタン。

• その結果、フォーマット ルールの編集 ウィンドウが再び表示され、プレビューが表示されます。 [OK] をクリックします ボタン。

同じ数式と形式を動的に使用して、他のすべての月についてこれらの手順を繰り返すと、動的な年間カレンダーが得られます。

続きを読む: Excel で週間カレンダーを作成する方法 (3 つの適切な方法)

Excel で毎月のスケジュールを作成する方法

毎月のスケジュールもエクセルで簡単に作成できます。これを行うには、以下の手順に注意深く従ってください。

📌 手順:

• 最初に、ファイルに移動します タブ

• その後、新規を選択します 展開された ファイル からのオプション タブ>> 月間スケジュールを書く 検索ボックスで>> [検索を開始] をクリックします アイコン。

• その結果、いくつかのテンプレートが表示されます。
• 次に、12 か月のカレンダーをクリックします。 テンプレート。

• その後、[作成] をクリックします。 ボタン。

その結果、新しい Excel ファイルが作成され、Excel で目的の月間スケジュールが取得されます。

結論

そこで、この記事では、Excel で月間カレンダーを作成する方法を紹介しました。記事全体を注意深く読み、必要に応じて知識を適用することをお勧めします。無料のワークブックをダウンロードして練習することもできます。この記事がお役に立てば幸いです。さらに質問や推奨事項がある場合は、お気軽にここにコメントしてください。

そして、 ExcelDemy にアクセスしてください エクセルのことをもっと知りたい！よい一日を!

関連記事

• Excel で空白のカレンダーを作成する方法 (無料のテンプレートをダウンロード)