Note: The other languages of the website are Google-translated. Back to English

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

Tab Office Mengaktifkan Pengeditan dan Penjelajahan Tab di Office, dan Jadikan Pekerjaan Anda Lebih Mudah ...
Kutools for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%
  • 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.

panah gelembung kanan biruBuat 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:

doc-buat-kalender1

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.


panah gelembung kanan biru 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 doc-callendar-2 tombol untuk menjalankan kode, dan kotak prompt akan muncul, Anda dapat memasukkan bulan dan tahun di kotak kosong. Lihat tangkapan layar:

doc-buat-kalender2

Dan kemudian klik OK. Dan kalender bulanan baru telah dibuat di lembar kerja saat ini. Lihat tangkapan layar:

doc-buat-kalender3

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?


panah gelembung kanan biru 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:

doc-buat-kalender4

Dan kemudian kalender bulanan saat ini telah dibuat di buku kerja baru.

doc-buat-kalender5

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:

doc-buat-kalender6

Kemudian klik membuat tombol, itu akan membuat kalender tahun 2012 di buku kerja baru.

doc-buat-kalender7


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 kte 201905

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!
officetab bawah
Urutkan komentar berdasarkan
komentar (3)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Kerja bagus. Miliaran terima kasih atas desain template kalender Excel Anda yang luar biasa. :tertawa terbahak-bahak:
Komentar ini diminimalkan oleh moderator di situs
Hai, Bagaimana saya bisa memulainya pada hari Senin? Terima kasih sebelumnya
Komentar ini diminimalkan oleh moderator di situs
Terima kasih teman-teman untuk membantu. Ingin dapat memiliki Kalender tahunan di mana saya dapat memasukkan item. Jika Anda dapat membantu itu akan sangat bagus.
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan

Ikuti kami

Hak Cipta © 2009 - www.extendoffice.com. | Seluruh hak cipta. Dipersembahkan oleh ExtendOffice. | Peta Situs
Microsoft dan logo Office adalah merek dagang atau merek dagang terdaftar dari Microsoft Corporation di Amerika Serikat dan / atau negara lain.
Dilindungi oleh Sectigo SSL