Loncat ke daftar isi utama

Bagaimana cara membuat kalender di Excel?

Kalender Excel membantu Anda melacak acara penting, seperti saat seseorang memulai pekerjaan baru atau saat ada sesuatu yang perlu disampaikan. Itu membuat melihat tanggal-tanggal ini menjadi mudah dan jelas. Dalam panduan ini, saya akan menunjukkan cara membuat kalender bulanan dan tahunan di Excel. Kita akan melihat penggunaan templat untuk pengaturan cepat dan juga cara membuatnya dari awal bagi mereka yang menginginkan kontrol lebih besar. Dengan cara ini, Anda bisa tetap teratur, baik untuk pekerjaan atau rencana pribadi.

Buat kalender tahunan dengan menggunakan Templat Kalender Excel

Cepat buat kalender bulanan atau tahunan dengan Kutools for Excel

Buat kalender bulanan dengan kode VBA


Buat kalender tahunan dengan menggunakan Templat Kalender Excel

Dengan metode ini, Anda harus memastikan bahwa komputer Anda terhubung ke jaringan, sehingga Anda dapat mengunduh file Template Kalender.

1. Pergi ke File tab, klik New tombol di panel kiri, dan klik Calendriers dari Pencarian yang disarankan. Lihat tangkapan layar:

2. pilih salah satu templat kalender yang Anda suka, klik dua kali untuk membuat kalender tahunan.

Hasil


Cepat buat kalender bulanan atau tahunan dengan Kutools for Excel

Kalender abadi alat dari kutools untuk Excel dapat dengan cepat membuat kalender bulan atau tahun yang disesuaikan dalam buku kerja baru, dan setiap kalender bulan akan dimuat dalam lembar kerja baru.

Catatan: Untuk menerapkan ini Kalender abadi fitur, pertama, Anda harus mengunduh dan menginstal Kutools untuk Excel.

Setelah menginstal Kutools for Excel, silakan klik Kutools Ditambah > Lembar Kerja > Kalender abadi. Dalam pop-up Kalender abadi kotak dialog, lakukan hal berikut:

  • Untuk membuat kalender bulanan, tentukan bulan yang ingin Anda buat kalendernya melalui Dari danUntuk daftar drop-down, dan klik membuat.
  • Untuk membuat kalender tahunan, tentukan tahun yang ingin Anda buat kalendernya melalui Dari dan Untuk daftar drop-down, dan klik membuat.
Hasil
  • Kalender bulanan:
  • Kalender tahunan:
jenis: Untuk menggunakan fitur ini, Anda harus menginstal Kutools untuk Excel pertama, silakan klik untuk mengunduh dan dapatkan uji coba gratis 30 hari sekarang.

Buat kalender bulanan dengan kode VBA

Dengan kode VBA berikut, Anda dapat dengan cepat membuat kalender bulanan. Harap lakukan sebagai berikut:

1. tekan lain + F11 kunci untuk membuka jendela Microsoft Visual Basic for Applications.

2. Akan ada jendela baru yang ditampilkan. Klik Menyisipkan > Modul, lalu masukan kode berikut di modul:

 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. Lalu klik Run tombol atau tekan F5 kunci untuk menjalankan aplikasi. Sekarang akan muncul kotak prompt, Anda dapat memasukkan bulan dan tahun di kotak kosong.

Hasil

Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Thanks guys for helping. Would like to be able to have a yearly Calendar in which I can enter items. If you can help that would be great.
This comment was minimized by the moderator on the site
Hi, How can I make it start on Monday instead? Thanks in advance
This comment was minimized by the moderator on the site
Excellent job. Billions thanks for your great design of the Excel calendar template. :lol:
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations