Excelでカレンダーを作成するにはどうすればよいですか？

Excelのカレンダーは便利なオブジェクトです。 Excelのカレンダーを使用すると、カレンダーに多くのメッセージを記録できます。 例：新入社員が入社した日、商品が配達された日など。 カレンダーを使用すると、これらのメッセージは視覚的でシンプルに見えます。 Excelで月間カレンダーまたは年次カレンダーを作成するにはどうすればよいですか？

Excelカレンダーテンプレートをダウンロードして年間カレンダーを作成する

VBAコードで月間カレンダーを作成する

Kutools forExcelを使用して月次または年次カレンダーをすばやく作成する

Excelカレンダーテンプレートをダウンロードして年間カレンダーを作成する

すごい！ Chrome、Firefox、SafariなどのExcelで効率的なタブを使用する！

時間の50％を節約し、毎日何千ものマウスクリックを減らしましょう！

---

この方法では、コンピュータがネットワークに接続されていることを確認して、ダウンロードできるようにする必要があります。 カレンダーテンプレート.

【マイアカウント】に移動し、【購入した商品を表示】をクリックします。 フィレット、クリック New 左側のペインで、をクリックします カレンダー from Office.comテンプレート。 スクリーンショットを参照してください：

次に、カレンダーフォルダをXNUMXつ選択してクリックすると、カレンダーのスタイルがいくつかあり、好きなものを選択して、をクリックします。 ダウンロード 右ペインのボタン。

カレンダーテンプレートをダウンロードすると、新しいワークブックにカレンダーが追加されます。

VBAコードで月間カレンダーを作成する

次のVBAコードを使用すると、月間カレンダーをすばやく作成できます。 次のようにしてください。

【送信】ボタンをクリックします。販売者は原則としてXNUMX日以内に回答を返信します。XNUMX日を過ぎても回答がない場合は、Artisanaryまでお問い合わせください。 ディベロッパー > ビジュアルベーシック、新しいです アプリケーション用のMicrosoftVisual Basic ウィンドウが表示されたら、をクリックします インセット > モジュール、次のコードをに入力します モジュール:

VBA：Excelで月間カレンダーを作成する

サブCalendarMaker（）
ActiveSheet.Protect DrawingObjects：= False、Contents：= False、_
シナリオ：= False
Application.ScreenUpdating = False
エラー時GoToMyErrorTrap
Range（ "a1：g14"）。Clear
MyInput = InputBox（ "カレンダーの月と年を入力"）
MyInput = ""の場合、Subを終了します
StartDay = DateValue（MyInput）
If Day（StartDay）<> 1 Then
StartDay = DateValue（Month（StartDay）＆ "/ 1 /"＆_
年（StartDay））
終了する場合
Range（ "a1"）。NumberFormat = "mmmm yyyy"
Range（ "a1：g1"）を使用
.Horizo​​ntalAlignment = xlCenterAcrossSelection
.VerticalAlignment = xlCenter
.Font.サイズ = 18
.Font.Bold = 真
.RowHeight = 35
最後に
Range（ "a2：g2"）を使用
.列幅 = 11
.VerticalAlignment = xlCenter
.Horizo​​ntalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Orientation = xlHorizo​​ntal
.Font.サイズ = 12
.Font.Bold = 真
.RowHeight = 20
最後に
Range（ "a2"）= "日曜日"
Range（ "b2"）= "月曜日"
Range（ "c2"）= "火曜日"
Range（ "d2"）= "水曜日"
Range（ "e2"）= "木曜日"
Range（ "f2"）= "金曜日"
Range（ "g2"）= "土曜日"
Range（ "a3：g8"）を使用
.Horizo​​ntalAlignment = xlRight
.VerticalAlignment = xlTop
.Font.サイズ = 18
.Font.Bold = 真
.RowHeight = 21
最後に
Range（ "a1"）。Value = Application.Text（MyInput、 "mmmm yyyy"）
DayofWeek = Weekday（StartDay）
CurYear = Year（StartDay）
CurMonth = Month（StartDay）
FinalDay = DateSerial（CurYear、CurMonth + 1、1）
CaseDayofWeekを選択します
ケース1
Range（ "a3"）。Value = 1
ケース2
Range（ "b3"）。Value = 1
ケース3
Range（ "c3"）。Value = 1
ケース4
Range（ "d3"）。Value = 1
ケース5
Range（ "e3"）。Value = 1
ケース6
Range（ "f3"）。Value = 1
ケース7
Range（ "g3"）。Value = 1
選択して終了
Range（ "a3：g8"）内の各セルについて
RowCell = cell.Row
ColCell = cell.Column
cell.Column = 1かつ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 = ""
終了
終了する場合
終了する場合
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 = ""
終了
終了する場合
終了する場合
次へ
X = 0〜5
Range（ "A4"）。Offset（x * 2、0）.EntireRow.Insert
Range（ "A4：G4"）。Offset（x * 2、0）を使用
.RowHeight = 65
.Horizo​​ntalAlignment = xlCenter
.VerticalAlignment = xlTop
.WrapText = 真
.Font.サイズ = 10
.Font.Bold = False
.Locked = False
最後に
Range（ "A3"）。Offset（x * 2、0）.Resize（2、_
7）.Borders（xlLeft）
.重量 = xlThick
.ColorIndex = xlAutomatic
最後に
Range（ "A3"）。Offset（x * 2、0）.Resize（2、_
7）.Borders（xlRight）
.重量 = xlThick
.ColorIndex = xlAutomatic
最後に
Range（ "A3"）。Offset（x * 2、0）.Resize（2、7）.BorderAround _
重み：= xlThick、ColorIndex：= xlAutomatic
次へ
If Range（ "A13"）。Value = "" Then Range（ "A13"）。Offset（0、0）_
.Resize（2、8）.EntireRow.Delete
ActiveWindow.DisplayGridlines = False
ActiveSheet.Protect DrawingObjects：= True、Contents：= True、_
シナリオ：= True
ActiveWindow.WindowState = xlMaximized
ActiveWindow.ScrollRow = 1
Application.ScreenUpdating = True
サブを終了
MyErrorTrap：
MsgBox「月と年が正しく入力されていない可能性があります。」 _
＆Chr（13）＆ "月のスペルを正しくする" _
＆ "（または3文字の省略形を使用）" _
＆Chr（13）＆ "および年の4桁"
MyInput = InputBox（ "カレンダーの月と年を入力"）
MyInput = ""の場合、Subを終了します
履歴書
End Subの

次に、をクリックします。  ボタンをクリックしてコードを実行すると、プロンプトボックスが表示され、空白のボックスに月と年を入力できます。 スクリーンショットを参照してください：

そして、 OK。 そして、新しい月間カレンダーが現在のワークシートに作成されました。 スクリーンショットを参照してください：

VBAコードは私たちのほとんどにとって難しいものであり、このVBAコードでは、月間カレンダーしか作成できません。年次カレンダーをすばやく簡単に作成したい場合、これを行う他の簡単な方法はありますか？

Kutools forExcelを使用して月次または年次カレンダーをすばやく作成する

パーペチュアルカレンダー のツール Excel用のkutools カスタマイズされた月間カレンダーまたは年次カレンダーを新しいワークブックにすばやく作成でき、各月間カレンダーは新しいワークシートに含まれます。

Kutools for Excel：300以上の便利なExcelアドインがあり、30日以内に制限なしで無料で試すことができます。 今すぐ入手

Kutools for Excelをインストールしている場合は、をクリックしてください エンタープライズ > ワークシートツール > パーペチュアルカレンダー、と パーペチュアルカレンダー ダイアログボックスが表示されます。 現在の月間カレンダーを作成する場合は、に1を入力するだけです。 月数 ボックスをクリックして データドリブン ボタン。 スクリーンショットを参照してください：

そして、現在の月間カレンダーが新しいワークブックに生成されました。

また、2012年の年間カレンダーを作成する場合は、 月数 ボックス、および最初の月を指定します ２０２０年１月 左側のペインで。 スクリーンショットを参照してください：

次に、をクリックします。 データドリブン ボタンをクリックすると、新しいワークブックに2012年のカレンダーが作成されます。

---

最高のオフィス生産性ツール

Kutools for Excelはほとんどの問題を解決し、生産性を80％向上させます

• 再利用: すばやく挿入 複雑な数式、チャート および以前に使用したものすべて。 セルを暗号化する パスワード付き。 メーリングリストを作成する そしてメールを送る...
• スーパーフォーミュラバー （複数行のテキストと数式を簡単に編集できます）; 読書レイアウト （多数のセルを簡単に読み取って編集する）; フィルター範囲に貼り付け...
• セル/行/列をマージする データを失うことなく; 分割セルコンテンツ; 重複する行/列を組み合わせる...重複セルを防止します。 範囲を比較する...
• [複製]または[一意]を選択します 行; 空白行を選択 （すべてのセルは空です）; スーパーファインドとファジーファインド 多くのワークブックで; ランダム選択...
• 正確なコピー 数式参照を変更せずに複数のセル。 参照の自動作成 複数のシートに; 箇条書きを挿入、チェックボックスなど...
• テキストを抽出、テキストの追加、位置による削除、 スペースを削除する; ページング小計の作成と印刷。 セルの内容とコメントを変換する...
• スーパーフィルター （フィルタースキームを保存して他のシートに適用します）; 高度な並べ替え 月/週/日、頻度など。 特殊フィルター 太字、斜体...
• ワークブックとワークシートを組み合わせる; キー列に基づいてテーブルをマージします。 データを複数のシートに分割; xls、xlsx、PDFをバッチ変換...
• 300 以上の強力な機能. Office / Excel 2007-2021 および 365 をサポートします。すべての言語をサポートします。 企業や組織に簡単に導入できます。 フル機能の 30 日間無料トライアル。 60日間の返金保証。

続きを読みます... 無料ダウンロード... 購入... 

---

Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作​​業をはるかに簡単にします

• Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
• 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
• 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!

続きを読みます... 無料ダウンロード... 購入...