VBA Excel Cetak Dari Nomor Sampai Nomor

Bagaimana Cara Mencetak Dokumen Excel Dari Nomor Sampai Nomor Menggunakan VBA Excel ?

Rumus Mencetak Dokumen Excel Dari Nomor Sampai Nomor

Ada beberapa cara yang dapat kita gunakan untuk Mencetak dokumen excel, mulai dari menggunakan tombol Ctrl+P pada keybord, menggunakan Print Preview (Ctrl+F2) hingga menggunakan Kode Macro VBA.

Nah..pada kesempatan kali ini dolanan excel ingin membahas Cara Mencetak Dokumen Excel Dari Nomor Sampai Nomor Menggunakan Kode Macro VBA Excel.

Contoh : VBA Excel cetak nomor sampai nomor

Berikut alur dan penjelasannya

Kode Macro Excel Mencetak Dokumen Dari Nomor Sampai Nomor

1. Buka Microsoft Excel Anda

Buatlah data seperti dibawah ini

	A	B	C	D
1	Nomor Urut	Nama Peserta	Juara	Kategori
2	1	Jihan Ayunda	1	Sastra Puisi
3	2	Zakiya El Zahro	2	Matematika
4	3	Fita Alfiana	1	Fisika
5	4	Edo Airlangga	1	Musik Acoustic Sholawat
6	5	Farhan As Syuyuti	2	Fokalis Sholawat

3. Buat data seperti dibawah ini

	A	C	E	F
8	PIAGAM PENGHARGAAN		Cetak Dari Nomor	1
9	DI BERIKAN KEPADA			4
10
11	NAMA
12	....................
13
14	JUARA 1
15	..............................
16
17		Bojonegoro, 25 Mei 2019
18	Kepala	Sekretaris
19	.................	......................

4. Blog range A8:D19 kemudian Set Print Area pada bagian Page Layout

5. Jika sudah, buatlah 1 buah tombol CommandButton lewat menu Developer > Insert > ActiveX Controls

6. Klik kanan tombol tersebut dan pilih View Code

7. Salin Kode Macro dibawah ini dan tmpelkan pada jendela VBA Excel Anda

Dim Awal, Akhir As Integer Awal = Range("F8").Value Akhir = Range("F9").Value If Awal <= Akhir And Awal >= 1 Then Application.ScreenUpdating = False For i = Awal To Akhir With Sheets("Sheet1") .Range("F7").Value = i .PrintOut End With Next i Else Pesan = MsgBox("Cek lagi Nomor yang akan dicetak...!!!!", vbOKCancel, "Error Cetak") End If

Maka akan tampak seperti gambar dibawah ini

8. Salin formula di bawah ini pada range A12

=IF($F$7="";"";VLOOKUP($F$7;$A$2:$D$6;2;0))

9. Salin formula di bawah ini pada range A14

="SEBAGAI JUARA "&IF($F$7="";"";VLOOKUP($F$7;$A$2:$D$6;3;0))

10. Salin formula di bawah ini pada range A15

=IF($F$7="";"";VLOOKUP($F$7;$A$2:$D$6;4;0))

11. Simpan file ini dengan extensi .xlsb (Excel Binary Workbook) dan beri nama "VBA Excel Mencetak Dokumen Dari Nomor Sampai Nomor

Jika Anda melakukan langkah-langkah diatas dengan benar dan sesuai serta penempatan kode juga pas, maka sistem akan berjalan normal sesuai instruksi yang Anda berikan melalui Kode dan Rumus tersebut diatas.

File Penerapan Untuk Pemahaman Mendalam