Note: The other languages of the website are Google-translated. Back to English
Masuk  \/ 
x
or
x
Daftar  \/ 
x

or

Bagaimana cara menentukan format tanggal atau waktu di header atau footer?

Biasanya, saat Anda memasukkan tanggal atau waktu ke header atau footer dengan ekstensi &[Tanggal] or &[Waktu] kode, format tanggal atau waktu didasarkan pada pengaturan kawasan yang dikontrol oleh Windows. Dalam hal ini, bagaimana Anda bisa mengubah tanggal atau format waktu tanggal sesuai kebutuhan Anda di header atau footer seperti gambar berikut yang ditampilkan?

tanggal format doc di header 1

Tentukan format tanggal atau waktu tanggal di header atau footer dengan kode VBA


panah gelembung kanan biru Tentukan format tanggal atau waktu tanggal di header atau footer dengan kode VBA

Di sini, saya akan memperkenalkan beberapa kode VBA sederhana bagi Anda untuk menyelesaikan tugas ini di Excel, lakukan hal berikut:

1. Aktifkan lembar kerja Anda yang ingin Anda sisipkan dan format tanggal di header atau footer, lalu klik Page Layout tombol di sudut kanan bawah buku kerja untuk mengaktifkan tampilan tata letak halaman, lihat tangkapan layar:

tanggal format doc di header 2

2. Tahan ALT + F11 kunci di Excel untuk membuka file Microsoft Visual Basic untuk Aplikasi jendela.

3. Klik Menyisipkan > Modul, dan tempel kode berikut di Modul Jendela.

Kode VBA: Masukkan dan format tanggal di header atau footer:

Sub add_date_header()
ActiveSheet.PageSetup.CenterHeader = Format(Date, "mmmm dd, yyyy")
End Sub

Catatan: Pada kode di atas, Anda dapat mengubah Kepala Pusat untuk KiriHeader, Pusat Footer…, Dan format tanggal mmmm hh, tttt juga bisa diubah sesuai kebutuhan.

4. Lalu tekan F5 kunci untuk menjalankan kode ini, dan format tanggal yang Anda tentukan telah dimasukkan ke dalam header atau footer sekaligus. Lihat tangkapan layar:

tanggal format doc di header 3

Tips: Jika Anda ingin memasukkan format waktu tanggal Anda sendiri ke dalam header atau footer, silakan gunakan kode di bawah ini:

Sub Change_Format()
  ActiveSheet.PageSetup.CenterHeader = Format(Now, "MMMM DD, YYYY HH:MM:SS")
End Sub

Dan Anda akan mendapatkan hasil sebagai berikut:

tanggal format doc di header 4


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 ...
  • Super Formula Bar (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-2019 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
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    C Harvey · 4 months ago
    How can I add a text string immediately before my date (in a custom format? I would like my header to be e.g. "Printed 20 May 2021 14:06:30". My current VBA code is:
    Sub Change_Format()
    ActiveSheet.PageSetup.RightHeader = Format(Now, "DD MMM YYYY HH:MM:SS")
    End Sub
  • To post as a guest, your comment is unpublished.
    Kasra · 1 years ago
    Hi, Thank You
    Can I ask you how can I change the font and size of "Date" by VBA?
    I mean with same code that you wrote for insert date into header by VBA.
    Thanks
  • To post as a guest, your comment is unpublished.
    Paula McSorley · 1 years ago
    I use a dynamic print range in my spreadsheet and generate PDFs. Oddly enough, when I execute the above VBA code snippet, it resets the dynamic print range for my current worksheet to a static range. Is there any way to avoid that?
  • To post as a guest, your comment is unpublished.
    Judy Kunz · 1 years ago
    This doesn't seem to work anymore.