Cara Membuat Tombol Print Macro Dari Nomor Sampai Nomor pada Aplikasi Excel
Assalamualaikum Wr. Wb.
Halo sobat GTK semua, semoga sehat dan bahagia
Kali ini saya ingin berbagi tutorial tentang excel, cara membuat tombol cetak yang bisa ditentukan dari nomor berapa sampai nomor urut berapa sesuai absensi atau nomor data.
 |
| Tombol VBA Makro Mencetak dari Nomor ke nomor sesuai ketidakhadiran |
Tombol cetak ini berguna untuk mempercepat proses pencetakan, dibandingkan harus mencetak atau (CTRL+P) satu per satu, terutama jika Anda memiliki banyak data.
Aplikasi yang akan ditambahkan tombol ini adalah aplikasi excel yang menggunakan rumus vlookupseperti permohonan Surat Keterangan Lulus, atau sejenisnya.
Baca Juga:
Baiklah tanpa panjang lebar langsung saja kita praktekkan dengan menambahkan fitur ini pada aplikasi yang sudah dibagikan sebelumnya yaitu : Aplikasi Nilai Ijazah SD Tahun 2023
Cara Membuat Tombol Print dari Angka Berapa Menggunakan Macro VBA
1. Silahkan buat terlebih dahulu kotak untuk diisi nomor kehadiran awal Dan
jumlah kehadiran terakhir.
2. Tambahkan tombol dengan menggunakan tombol, atau ikon dengan gambar cetak yang dapat Anda cari di mesin pencari Google.
“Klik kanan” —
“Tetapkan Makro” —
“baru”
3. Tambahkan Script Kode berikut:
Baca Juga:
Dim Awal, Akhir As Integer
Awal = Range("T1").Value
Akhir = Range("X1").Value
If Awal <= Akhir And Awal >= 1 Then
Application.ScreenUpdating = False
For i = Awal To Akhir
With Sheets("Form")
.Range("H1").Value = i
.PrintOut
End With
Next i
Else
MsgBox "Cek lagi Nomor yang akan dicetak...!!!!", vbCritical, "Cetak Halaman"
End If
4. Setelah itu silahkan simpan, lalu coba.
5. Jika ingin menerapkan ke aplikasi lain, tinggal ubah posisi nomor urut absen di vlookup, dan nomor awal dan nomor akhir. yang saya beri warna kuning berikut ini.
Sub Gambar6_Klik()
Redup Awal, Akhiri Sebagai Bilangan Bulat
Baca Juga:
Awal = Rentang(“T1“). Nilai
Akhir = Rentang(“X1“). Nilai
Jika Awal <= End And Beginning >= 1 Lalu
Aplikasi. Pembaruan Layar = Salah
Baca Juga:
Untuk i = Awal Sampai Akhir
dengan Seprai(“Deskripsi Lulus“)
.Jangkauan(“H1“).Nilai = i
.PrintOut
Baca Juga:
Berakhir dengan
Selanjutnya saya
kalau tidak
MsgBox “Cek lagi nomor yang akan dicetak…!!!!”, vbCritical, “Cetak Halaman”
Baca Juga:
Berakhir jika
Akhir Sub
Dengan demikian cara membuat tombol print/print di aplikasi berbasis excel dengan fitur print dari nomor berapa ke nomor berapa sesuai nomor urut data absen menggunakan VBA Macro.
Semoga bermanfaat, terutama bagi sobat yang suka mengotak-atik aplikasi berbasis excel.
Baca Juga:
Terima kasih…
www.tasadmin.id
Gabung ke Channel Whatsapp Untuk Informasi Sekolah dan Tunjangan Guru
GABUNGArtikel Terkait
