Bagaimana cara membuat kalender di Excel?
Kalender di Excel adalah objek yang berguna. Dengan kalender di Excel, Anda dapat merekam banyak pesan di kalender. Seperti: tanggal karyawan baru bergabung, tanggal pengiriman barang, dan lain-lain. Dengan kalender, pesan-pesan ini akan terlihat visual dan sederhana. Bagaimana cara membuat kalender bulanan atau kalender tahunan di Excel?
Buat kalender tahunan dengan mengunduh Template Kalender Excel
Buat kalender bulanan dengan kode VBA
Cepat buat kalender bulanan atau tahunan dengan Kutools for Excel
- Gunakan Kembali Apa Pun: Tambahkan rumus, bagan, dan hal lain yang paling sering digunakan atau rumit ke favorit Anda, dan gunakan kembali dengan cepat di masa mendatang.
- Lebih dari 20 fitur teks: Ekstrak Nomor dari String Teks; Ekstrak atau Hapus Bagian dari Teks; Ubah Angka dan Mata Uang ke Kata Bahasa Inggris.
- Gabungkan Alat: Beberapa Buku Kerja dan Lembar menjadi Satu; Gabungkan Beberapa Sel / Baris / Kolom Tanpa Kehilangan Data; Gabungkan Baris dan Jumlah Duplikat.
- Alat Pisah: Membagi Data Menjadi Beberapa Lembar Berdasarkan Nilai; Satu Buku Kerja ke Beberapa File Excel, PDF atau CSV; Satu Kolom ke Beberapa Kolom.
- Tempel Melewati Baris Tersembunyi / Difilter; Hitung Dan Jumlah dengan Warna Latar Belakang; Kirim Email Hasil Personalisasi ke Beberapa Penerima secara Massal.
- Filter Super: Buat skema filter tingkat lanjut dan terapkan ke setiap lembar; Jenis menurut minggu, hari, frekuensi, dan lainnya; SARING dengan tebal, rumus, komentar ...
- Lebih dari 300 fitur canggih; Bekerja dengan Office 2007-2021 dan 365; Mendukung semua bahasa; Penerapan yang mudah di perusahaan atau organisasi Anda.
Buat kalender tahunan dengan mengunduh Template Kalender Excel
Dengan metode ini, Anda harus memastikan bahwa komputer Anda terhubung ke jaringan, sehingga Anda dapat mengunduh file Template Kalender.
Pergi ke Fileklik New di panel kiri, dan klik Kalender dari Template Office.com. Lihat tangkapan layar:
Kemudian Anda dapat memilih satu folder kalender, dan klik di atasnya, akan ada beberapa gaya kalender, pilih yang Anda suka, dan klik unduh di panel kanan.
Setelah mengunduh templat kalender, Anda akan mendapatkan kalender di buku kerja baru.
Buat kalender bulanan dengan kode VBA
Dengan kode VBA berikut, Anda dapat dengan cepat membuat kalender bulanan. Harap lakukan sebagai berikut:
Klik Pengembang > Visual Basic, Baru Microsoft Visual Basic untuk aplikasi jendela akan ditampilkan, klik Menyisipkan > Modul, dan masukkan kode berikut ke dalam Modul:
VBA: buat kalender bulanan di Excel
Sub Pembuat Kalender ()
ActiveSheet.Protect DrawingObjects: = False, Isi: = False, _
Skenario: = Salah
Application.ScreenUpdating = Salah
Pada Kesalahan GoTo MyErrorTrap
Rentang ("a1: g14"). Hapus
MyInput = InputBox ("Ketik Bulan dan tahun untuk Kalender")
Jika MyInput = "" Kemudian Keluar dari Sub
StartDay = DateValue (MyInput)
If Day (StartDay) <> 1 Then
StartDay = DateValue (Bulan (StartDay) & "/ 1 /" & _
Tahun (StartDay))
End If
Rentang ("a1"). NumberFormat = "mmmm yyyy"
Dengan Rentang ("a1: g1")
.HorizontalAlignment = xlCenterAcrossSelection
.Perataan Vertikal = xlCenter
.Font.Ukuran = 18
.Font.Bold = Benar
.RowHeight = 35
Berakhir dengan
Dengan Rentang ("a2: g2")
.Lebar Kolom = 11
.Perataan Vertikal = xlCenter
.Perataan Horizontal = xlTengah
.Perataan Vertikal = xlCenter
.Orientasi = xlHorizontal
.Font.Ukuran = 12
.Font.Bold = Benar
.RowHeight = 20
Berakhir dengan
Rentang ("a2") = "Minggu"
Rentang ("b2") = "Senin"
Rentang ("c2") = "Selasa"
Rentang ("d2") = "Rabu"
Rentang ("e2") = "Kamis"
Rentang ("f2") = "Jumat"
Rentang ("g2") = "Sabtu"
Dengan Rentang ("a3: g8")
.Perataan Horizontal = xlKananR
.Perataan Vertikal = xlTop
.Font.Ukuran = 18
.Font.Bold = Benar
.RowHeight = 21
Berakhir dengan
Rentang ("a1"). Nilai = Teks Aplikasi (Input Saya, "mmmm yyyy")
DayofWeek = Hari Kerja (StartDay)
CurYear = Tahun (StartDay)
CurMonth = Bulan (StartDay)
FinalDay = DateSerial (CurYear, CurMonth + 1, 1)
Pilih Case DayofWeek
Kasus 1
Range ("a3"). Nilai = 1
Kasus 2
Range ("b3"). Nilai = 1
Kasus 3
Range ("c3"). Nilai = 1
Kasus 4
Rentang ("d3"). Nilai = 1
Kasus 5
Range ("e3"). Nilai = 1
Kasus 6
Range ("f3"). Nilai = 1
Kasus 7
Rentang ("g3"). Nilai = 1
End Select
Untuk Setiap sel Dalam Rentang ("a3: g8")
RowCell = sel. Baris
ColCell = sel. Kolom
Jika cell.Column = 1 Dan cell. Row = 3 Then
ElseIf cell.Column <> 1 Kemudian
Jika cell.Offset (0, -1) .Value> = 1 Then
cell.Value = cell.Offset (0, -1) .Value + 1
Jika cell.Value> (FinalDay - StartDay) Lalu
cell.Value = ""
Keluar Untuk
End If
End If
ElseIf cell.Row> 3 Dan cell.Column = 1 Then
cell.Value = cell.Offset (-1, 6) .Value + 1
Jika cell.Value> (FinalDay - StartDay) Lalu
cell.Value = ""
Keluar Untuk
End If
End If
Next
Untuk x = 0 ke 5
Rentang ("A4"). Offset (x * 2, 0) .EntireRow.Insert
Dengan Rentang ("A4: G4"). Offset (x * 2, 0)
.RowHeight = 65
.Perataan Horizontal = xlTengah
.Perataan Vertikal = xlTop
.WrapText = Benar
.Font.Ukuran = 10
.Font.Bold = Salah
.Locked = Salah
Berakhir dengan
Dengan Range ("A3"). Offset (x * 2, 0) .Resize (2, _
7). Perbatasan (xlLeft)
.Berat = xl Tebal
.ColorIndex = xlAutomatic
Berakhir dengan
Dengan Range ("A3"). Offset (x * 2, 0) .Resize (2, _
7). Perbatasan (xlRight)
.Berat = xl Tebal
.ColorIndex = xlAutomatic
Berakhir dengan
Rentang ("A3"). Offset (x * 2, 0) .Resize (2, 7) .BorderAround _
Berat: = xlThick, ColorIndex: = xlAutomatic
Next
Jika Rentang ("A13"). Nilai = "" Kemudian Rentang ("A13"). Offset (0, 0) _
.Resize (2, 8) .EntireRow.Delete
ActiveWindow.DisplayGridlines = Salah
ActiveSheet.Protect DrawingObjects: = True, Isi: = True, _
Skenario: = Benar
ActiveWindow.WindowState = xlMaximized
ActiveWindow.ScrollRow = 1
Application.ScreenUpdating = Benar
Keluar dari Sub
SayaErrorTrap:
MsgBox "Anda mungkin tidak memasukkan Bulan dan Tahun Anda dengan benar." _
& Chr (13) & "Eja Bulan dengan benar" _
& "(atau gunakan singkatan 3 huruf)" _
& Chr (13) & "dan 4 digit untuk Tahun"
MyInput = InputBox ("Ketik Bulan dan tahun untuk Kalender")
Jika MyInput = "" Kemudian Keluar dari Sub
Lanjut
End Sub
Kemudian klik 
tombol untuk menjalankan kode, dan kotak prompt akan muncul, Anda dapat memasukkan bulan dan tahun di kotak kosong. Lihat tangkapan layar:
Dan kemudian klik OK. Dan kalender bulanan baru telah dibuat di lembar kerja saat ini. Lihat tangkapan layar:
Kode VBA sulit bagi kebanyakan dari kita, dan dengan kode VBA ini, Anda hanya dapat membuat kalender bulanan, jika Anda ingin membuat kalender tahunan dengan cepat dan mudah, adakah metode sederhana lain untuk melakukannya?
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.
Kutools untuk Excel: dengan lebih dari 300 add-in Excel yang praktis, gratis untuk dicoba tanpa batasan dalam 30 hari. Dapatkan Sekarang
Jika Anda telah menginstal Kutools for Excel, silakan klik Enterprise > Alat Lembar Kerja > Kalender abadi, Dan Kalender abadi kotak dialog akan ditampilkan. Jika Anda ingin membuat kalender bulanan saat ini, cukup masukkan 1 di Jumlah bulan kotak dan klik membuat tombol. Lihat tangkapan layar:
Dan kemudian kalender bulanan saat ini telah dibuat di buku kerja baru.
Dan jika ingin membuat kalender tahunan tahun 2012, silahkan masukkan angka 12 pada Jumlah bulan kotak, dan menentukan bulan pertama untuk Januari, 2012 di panel kiri. Lihat tangkapan layar:
Kemudian klik membuat tombol, itu akan membuat kalender tahun 2012 di buku kerja baru.
Alat Produktivitas Kantor Terbaik
Kutools for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%
- Reuse: Masukkan dengan cepat rumus, bagan yang kompleks dan apa pun yang pernah Anda gunakan sebelumnya; Enkripsi Sel dengan kata sandi; Buat Milis dan mengirim email ...
- Bilah Formula Super (dengan mudah mengedit beberapa baris teks dan rumus); Membaca Tata Letak (membaca dan mengedit sel dalam jumlah besar dengan mudah); Tempel ke Rentang yang Difilter...
- Gabungkan Sel / Baris / Kolom tanpa kehilangan Data; Pisahkan Konten Sel; Gabungkan Baris / Kolom Duplikat... Mencegah Sel Duplikat; Bandingkan Rentang...
- Pilih Duplikat atau Unik Baris; Pilih Baris Kosong (semua sel kosong); Temukan Super dan Temukan Fuzzy di Banyak Buku Kerja; Pilih Acak ...
- Salinan Tepat Beberapa Sel tanpa mengubah referensi rumus; Buat Referensi Otomatis ke Beberapa Lembar; Sisipkan Poin, Kotak Centang, dan lainnya ...
- Ekstrak Teks, Tambahkan Teks, Hapus berdasarkan Posisi, Hapus Space; Membuat dan Mencetak Subtotal Paging; Konversi Konten Antar Sel dan Komentar...
- Filter Super (simpan dan terapkan skema filter ke sheet lain); Penyortiran Lanjutan menurut bulan / minggu / hari, frekuensi dan lainnya; Filter Khusus dengan huruf tebal, miring ...
- Gabungkan Workbooks dan WorkSheets; Gabungkan Tabel berdasarkan kolom kunci; Pisahkan Data menjadi Beberapa Lembar; Konversi Batch xls, xlsx dan PDF...
- Lebih dari 300 fitur canggih. Mendukung Office / Excel 2007-2021 dan 365. Mendukung semua bahasa. Penerapan yang mudah di perusahaan atau organisasi Anda. Fitur lengkap Uji coba gratis 30 hari. Jaminan uang kembali 60 hari.
Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah
- Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
- Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
- Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!
