Excelでカレンダーを作成するにはどうすればよいですか?
Excelのカレンダーは便利なオブジェクトです。 Excelのカレンダーを使用すると、カレンダーに多くのメッセージを記録できます。 例:新入社員が入社した日、商品が配達された日など。 カレンダーを使用すると、これらのメッセージは視覚的でシンプルに見えます。 Excelで月間カレンダーまたは年次カレンダーを作成するにはどうすればよいですか?
Excelカレンダーテンプレートをダウンロードして年間カレンダーを作成する
で月間または年間のカレンダーをすばやく作成 Kutools for Excel
Excelカレンダーテンプレートをダウンロードして年間カレンダーを作成する
この方法では、コンピュータがネットワークに接続されていることを確認して、ダウンロードできるようにする必要があります。 カレンダーテンプレート.
フィレット、クリック NEW 左側のペインで、をクリックします カレンダー from Office.comテンプレート。 スクリーンショットを参照してください:
次に、カレンダーフォルダをXNUMXつ選択してクリックすると、カレンダーのスタイルがいくつかあり、好きなものを選択して、をクリックします。 Download 右ペインのボタン。
カレンダーテンプレートをダウンロードすると、新しいワークブックにカレンダーが追加されます。
VBAコードで月間カレンダーを作成する
次のVBAコードを使用すると、月間カレンダーをすばやく作成できます。 次のようにしてください。
Developer > ビジュアルベーシック、新しいです アプリケーション用の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")を使用
.HorizontalAlignment = xlCenterAcrossSelection
.VerticalAlignment = xlCenter
.Font.サイズ = 18
.Font.Bold = 真
.RowHeight = 35
最後に
Range( "a2:g2")を使用
.列幅 = 11
.VerticalAlignment = xlCenter
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Orientation = xlHorizontal
.Font.サイズ = 12
.Font.Bold = 真
.RowHeight = 20
最後に
Range( "a2")= "日曜日"
Range( "b2")= "月曜日"
Range( "c2")= "火曜日"
Range( "d2")= "水曜日"
Range( "e2")= "木曜日"
Range( "f2")= "金曜日"
Range( "g2")= "土曜日"
Range( "a3:g8")を使用
.HorizontalAlignment = 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 = 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
.HorizontalAlignment = 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 for Excel
パーペチュアルカレンダー のツール kutools for Excel カスタマイズされた月間カレンダーまたは年次カレンダーを新しいワークブックにすばやく作成でき、各月間カレンダーは新しいワークシートに含まれます。
Kutools for Excel:300以上の便利なExcelアドインがあり、30日以内に制限なしで無料で試すことができます。 今すぐ入手
あなたがインストールしている場合 Kutools for Excel、をクリックしてください Enterprise > ワークシートツール > パーペチュアルカレンダー、と パーペチュアルカレンダー ダイアログボックスが表示されます。 現在の月間カレンダーを作成する場合は、に1を入力するだけです。 月数 ボックスにフィルタを記入し、 創造する ボタン。 スクリーンショットを参照してください:
そして、現在の月間カレンダーが新しいワークブックに生成されました。
また、2012年の年間カレンダーを作成する場合は、 月数 ボックス、および最初の月を指定します 2020年1月 左側のペインで。 スクリーンショットを参照してください:
次に、をクリックします。 創造する ボタンをクリックすると、新しいワークブックに2012年のカレンダーが作成されます。
最高のオフィス生産性向上ツール
人気の機能: 重複を検索、強調表示、または識別する | 空白行を削除する | データを失わずに列またはセルを結合する | 数式なしのラウンド ... | |
スーパールックアップ: 複数の基準の VLookup | 複数の値の VLookup | 複数のシートにわたる VLookup | ファジールックアップ .... | |
詳細ドロップダウン リスト: ドロップダウンリストを素早く作成する | 依存関係のドロップダウン リスト | 複数選択のドロップダウンリスト .... | |
列マネージャー: 特定の数の列を追加する | 列の移動 | Toggle 非表示列の表示ステータス | 範囲と列の比較 ... | |
注目の機能: グリッドフォーカス | デザインビュー | ビッグフォーミュラバー | ワークブックとシートマネージャー | リソースライブラリ (自動テキスト) | 日付ピッカー | ワークシートを組み合わせる | セルの暗号化/復号化 | リストごとにメールを送信する | スーパーフィルター | 特殊フィルター (太字/斜体/取り消し線をフィルター...) ... | |
上位 15 のツールセット: 12 テキスト 工具 (テキストを追加, 文字を削除する、...) | 50+ チャート 種類 (ガントチャート、...) | 40+ 実用的 式 (誕生日に基づいて年齢を計算する、...) | 19 挿入 工具 (QRコードを挿入, パスから画像を挿入、...) | 12 変換 工具 (数字から言葉へ, 通貨の換算、...) | 7 マージ&スプリット 工具 (高度な結合行, 分割セル、...) | ... もっと |
Excel スキルを強化する Kutools for Excel、そして今までにない効率を体験してください。 Kutools for Excel 生産性を向上させ、時間を節約するための 300 を超える高度な機能を提供します。 最も必要な機能を入手するにはここをクリックしてください...
Office Tab Office にタブ付きインターフェイスを導入し、作業を大幅に簡素化します
- Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
- 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
- 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
