Excelでカレンダーを作成するにはどうすればよいですか?
Excel カレンダーは、誰かが新しい仕事を始めたときや、何かを届ける必要があるときなど、重要なイベントを追跡するのに役立ちます。これらの日付を簡単かつ明確に確認できるようになります。このガイドでは、Excel で月間カレンダーと年間カレンダーの両方を作成する方法を説明します。テンプレートを使用して簡単にセットアップする方法と、より詳細に制御したい人のために最初からテンプレートを作成する方法についても説明します。こうすることで、仕事でも個人的な計画でも、整理整頓された状態を保つことができます。
Excel カレンダー テンプレートを使用して年間カレンダーを作成する
Excel カレンダー テンプレートを使用して年間カレンダーを作成する
この方法では、コンピュータがネットワークに接続されていることを確認して、ダウンロードできるようにする必要があります。 カレンダーテンプレート.
1。 に行く File タブをクリックします。 新作 左ペインの ボタンをクリックし、 カレンダー から 提案された検索。 スクリーンショットを参照してください:
2. 好みのカレンダー テンプレートを XNUMX つ選択し、それをダブルクリックして年間カレンダーを作成します。
結果
Kutools forExcelを使用して月次または年次カレンダーをすばやく作成する
パーペチュアルカレンダー のツール Excel用のkutools カスタマイズされた月間カレンダーまたは年次カレンダーを新しいワークブックにすばやく作成でき、各月間カレンダーは新しいワークシートに含まれます。
Kutools for Excelをインストールした後、をクリックしてください クツールズプラス > ワークシート > パーペチュアルカレンダー。 ポップアップで パーペチュアルカレンダー ダイアログボックスで、次のようにしてください。
- 月間カレンダーを作成するには、カレンダーを作成する月を指定します。 &に ドロップダウンリストをクリックして 創造する.
- 年間カレンダーを作成するには、カレンダーを作成する年を指定します。 & に ドロップダウンリストをクリックして 創造する.
結果
- 月間カレンダー:
- 年間カレンダー:
VBAコードで月間カレンダーを作成する
次のVBAコードを使用すると、月間カレンダーをすばやく作成できます。 次のようにしてください。
1。 押す 他の + F11 キーを押して、Microsoft Visual Basic forApplicationsウィンドウを開きます。
2。 新しいウィンドウが表示されます。 クリック インセット > モジュール、次にモジュールに次のコードを入力します。
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 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
3。 次に、をクリックします ラン ボタンまたはプレス F5 アプリケーションを実行するためのキー。プロンプトボックスが表示されるので、空白のボックスに月と年を入力できます。
結果
関連記事
Excelでドロップダウンリストカレンダー(日付ピッカー)を作成するにはどうすればよいですか?
Excelワークシートのドロップダウンカレンダーを使用すると、手動で入力しなくても、カレンダーから特定の日付を簡単に選択できます。 このチュートリアルでは、ActiveXコントロールを使用してExcelワークシートでカレンダーを作成する方法を示します。
Excelで特定のセルをクリックしたときにカレンダーをポップアップするにはどうすればよいですか?
この記事では、特定の範囲のセルをクリックするとカレンダーがポップアップし、カレンダーで日付を選択すると、選択したセルに日付が自動的に挿入されます。
ExcelシートからOutlookカレンダーに予定を作成するにはどうすればよいですか?
場合によっては、Outlookカレンダーで予定を作成する必要がありますが、Excelワークシートに予定を一覧表示してから、下のスクリーンショットに示すようにOutlookカレンダーにインポートしようとしたことがありますか?
Excelで動的な月間カレンダーを作成するにはどうすればよいですか?
この記事では、Excelで動的な月間カレンダーを作成する方法を詳しく説明します。
最高のオフィス生産性ツール
Kutools forExcel-群衆から目立つのに役立ちます
🤖 | Kutools AI アシスタント: 以下に基づいてデータ分析に革命をもたらします。 インテリジェントな実行 | コードを生成 | カスタム数式の作成 | データを分析してグラフを生成する | Kutools関数を呼び出す... |
人気の機能: 重複を検索、強調表示、または識別する | 空白行を削除する | データを失わずに列またはセルを結合する | 数式なしのラウンド ... | |
スーパーVルックアップ: 複数の基準 | 複数の値 | 複数のシートにわたって | ファジールックアップ... | |
上級ドロップダウンリスト: 簡単なドロップダウンリスト | 依存関係のドロップダウン リスト | 複数選択のドロップダウンリスト... | |
列マネージャー: 特定の数の列を追加する | 列の移動 | Toggle 非表示列の表示ステータス | 列を比較する 同じセルと異なるセルを選択する ... | |
注目の機能: グリッドフォーカス | デザインビュー | ビッグフォーミュラバー | ワークブックとシートマネージャー | リソースライブラリ (自動テキスト) | 日付ピッカー | ワークシートを組み合わせる | セルの暗号化/復号化 | リストごとにメールを送信する | スーパーフィルター | 特殊フィルター (太字/斜体/取り消し線をフィルター...) ... | |
上位 15 のツールセット: 12 テキスト ツール (テキストを追加, 文字を削除する ...) | 50+ チャート 種類 (ガントチャート ...) | 40+ 実用的 式 (誕生日に基づいて年齢を計算する ...) | 19 挿入 ツール (QRコードを挿入, パスから画像を挿入 ...) | 12 変換 ツール (数字から言葉へ, 通貨の換算 ...) | 7 マージ&スプリット ツール (高度な結合行, Excelのセルを分割する ...) | ... もっと |
Kutools for Excelは300以上の機能を誇り、 必要なものをワンクリックで手に入れることができます...
Officeタブ-MicrosoftOffice(Excelを含む)でタブ付きの読み取りと編集を有効にする
- 数十の開いているドキュメントを切り替えるのにXNUMX秒!
- マウスの手に別れを告げて、毎日何百ものマウスクリックを減らしてください。
- 複数のドキュメントを表示および編集する際の生産性が 50% 向上します。
- Chrome、Edge、Firefox と同様に、効率的なタブを Office (Excel を含む) にもたらします。