Malem suhu,
Saya ingin bertanya mengenai VBA. Jadi saya sudah menemukan kode untuk merubah footer tanggal menjadi format "dd mmmm yyyy hh:mm:ss".
Namun ada kendala. Saya menginginkan footer print date nya sesuai jam aktual saya print.
mohon pencerahaanya.
saya menggunakan rumus berikut :
Sub Change_Format() ActiveSheet.PageSetup.CenterHeader = Format (Now, "MMMM DD, YYYY HH:MM:SS") End Sub
Lalu saat saya sudah tekan F5, saya edit footernya lagi di page setup untuk ditambahkan tulisan " Print Date : ".
Ternyata di hari esoknya saya print formulirnya, tanggal masih tanggal kemarin.
@Fika56 ...
Tidak ada masalah dengan script tersebut. Script tersebut bisa dijalankan. Script tersebut akan membuat header atau footer dalam bentuk, bukan dalam bentuk notasi yang dipahami Excel.
Ketika Anda buat header atau footer nya secara manual seperti berikut ini :
maka tentu yang akan muncul adalah teks yang sesuai dengan yang Anda buat tersebut. Karena, untuk menampilkan tanggal dan jam otomatis di header atau footer Excel, notasi yang digunakan adalah &[Date] (untuk tanggal) dan &[Time] (untuk jam), bukan diketik secara manual.
Seharusnya, sebelum mencetak atau sebelum menampilkan print preview nya, script di atas seharusnya dieksekusi dahulu agar yang dimunculkan adalah tanggal dan waktu terakhir. Kalau ingin menambahkan teks "Print Date : ", scriptnya bisa diubah seperti berikut untuk Center Header :
ActiveSheet.PageSetup.CenterHeader = "Print Date : " & Format (Now, "MMMM DD, YYYY HH:MM:SS")
atau untuk Center Footer,
ActiveSheet.PageSetup.CenterFooter = "Print Date : " & Format (Now, "MMMM DD, YYYY HH:MM:SS")
Demikian.
Saya sudah coba dengan script berikut kok tetap gak mau muncul waktu terakhir nya.
Sub Change_Format() ActiveSheet.PageSetup.CenterHeader = Format (Now, "MMMM DD, YYYY HH:MM:SS") End Sub
Pas di save muncul tampilan seperti gambar ini.
@Fika56 ...
Simpan file (Workbook) yang berisi macro ke dalam format XLSM, XLSB, XLS atau XLB.
Demikian.
Baik terimakasih atas bantuannya
