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 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.
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:
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
Terkait artikel
Bagaimana cara membuat kalender daftar drop-down (pemilih tanggal) di Excel?
Dengan kalender drop down di lembar kerja Excel, Anda dapat dengan mudah memilih tanggal tertentu darinya tanpa mengetik secara manual. Tutorial ini menunjukkan kepada Anda cara membuat kalender di lembar kerja Excel menggunakan Kontrol ActiveX.
Bagaimana cara memunculkan kalender saat mengklik sel tertentu di Excel?
Artikel ini membahas tentang memunculkan kalender ketika mengklik sel dalam rentang tertentu, lalu memasukkan tanggal ke dalam sel yang dipilih secara otomatis setelah memilih tanggal di kalender.
Bagaimana cara membuat janji temu dari lembar Excel ke kalender Outlook?
Terkadang, Anda mungkin perlu membuat janji di kalender Outlook, tetapi pernahkah Anda mencoba membuat daftar janji di lembar kerja Excel, lalu mengimpornya ke kalender Outlook seperti gambar di bawah ini?
Bagaimana cara membuat kalender bulanan dinamis di Excel?
Artikel ini akan menunjukkan kepada Anda metode membuat kalender bulanan dinamis di Excel secara detail.
Alat Produktivitas Kantor Terbaik
Kutools for Excel - Membantu Anda Menonjol Dari Kerumunan
Kutools for Excel Membanggakan Lebih dari 300 Fitur, Memastikan Apa yang Anda Butuhkan Hanya Dengan Sekali Klik...
Tab Office - Aktifkan Pembacaan dan Pengeditan dengan Tab di Microsoft Office (termasuk Excel)
- Satu detik untuk beralih di antara lusinan dokumen terbuka!
- Kurangi ratusan klik mouse untuk Anda setiap hari, ucapkan selamat tinggal pada tangan mouse.
- Meningkatkan produktivitas Anda sebesar 50% saat melihat dan mengedit banyak dokumen.
- Menghadirkan Tab Efisien ke Office (termasuk Excel), Sama Seperti Chrome, Edge, dan Firefox.