Cara Mencetak Banyak Halaman Data Vlookup Dengan Macro Excel

 Mencetak Banyak Halaman Data Vlookup Dengan Macro Excel - Mencetak data ataupun laporan merupakan tahap akhir untuk menghasilkan apa yang telah di input dalam sebuah aplikasi. Pada hasil cetak atau hasil print dapat diketahui hasil olah yang telah dilakukan aplikasi.


Pada posting ini kita akan mencoba membuat experiment cara mencetak banyak data yang ditampilkan oleh Vlookup. Mencetak banyak data sesuai dengan urutan Vlookup yang ada pada database.

Gambar Tampilan Cetak Banyak Halaman
Mencetak data dengan halaman tertentu berdasarkan data yang dihasilkan oleh Vlookup secara otomatis walaupun data yang akan dicetak belum ditampilkan pada form tampilan Vlookup. 

Mengerti maksud Admin.?? Maksudnya begini broe jika belum mengerti, Jika data yang ada pada tabel database sebanyak 100, Selanjutnya setiap kali ingin melihat data Vlookup tentu kita akan menggantikan nomor urut yang menjadi acuan Vlookup. 

Data yang ditampilkan pada form Vlookup itu cuma satu. Jika ingin mencetak data dari nomor 1 hingga nomor 10 itu bagaimana?? Ya itulah yang akan Admin paparkan disini yaitu Cara Mencetak Banyak Halaman Data Vlookup Dengan Macro Excel

Dalam membuat aplikasi Vba Excel terutama dengan menggunakan formula Vlookup sering sekali kita mencetak satu persatu data yang tampil pada form Vlookup. Caranya cukup mudah, setelah kita memasukkan nomor urut pada cell yang dijadikan acuan Vlookup selanjut nya tinggal pencet tombol Control + P.

Namun jika datanya banyak seperti saya terangkan pada dua paragram awal. Sebanyak 100 data yang akan diprint maka kita akan menggunakan keyboard dengan tombol Ctrl + P sebanyak 100 kali.

Bagaimana jika kita dapat melakukan hal yang dilakukan 100 kali itu dengan beberapa kali saja. Dengan memasukkan nomor urut dari halaman 1 hingga halaman 10 kita print, selanjutnya kita print lagi nomor 11 hingga halaman nomor 20 begitu seterusnya.gitu lebih meringakan pekerjaan.

Ketika printer mencetak halaman-halaman yang kita perintahkan, kita sempat minum kopi broe..!! 

Cara Mencetak Banyak Halaman Data Vlookup Dengan Macro Excel :
  • Buka Excel anda dan buatlah tabel database pada sheet1 sebagaimana terlihat pada gambar format gif diatas pada sheet DataBase. Ubah nama Sheet1 menjadi DataBase
  • Buatlah 2 range dengan dengan cara klik pada tab Formulas dan pilih Define Name. Selanjutnya akan muncul kotak dialog Define Name, isikan Name dan Refers to dengan ketentuan sebagai berikut :
Name : "DataNilai" dan  Refers to : "=DataBase!$A$4:$H$15"
Name : "DataNama" dan Refers to : "=DataBase!$C$4:$C$15"
  • Selanjutnya kita akan membuat form untuk menampilkan data secara Vlookup. Buatlah tabel form pada sheet2 untuk menampilkan data Vlookup seperti yang terlihat pada gambar format gif diatas. Ganti nama sheet2 menjadi Form.
  • Tambahkan sebuah Spin Button (Form Controls) letakkan pada kolom C, Selanjunya kita tambahkan 3 buah Combo Box(Form Controls) dengan cara klik tab Developer selanjutnya klik insert dan pilih pada element yang ingin dimasukkan, klik dan drag di area worksheet. Letakkan Combo Box(Form Controls) tersebut pada kolom D secara berurutan. tambahkan juga sebuah Command Button(ActiveX Controls). Perhatikan gambar dibawah..!!
    Gambar Form Cetak Banyak Halaman Data Vlookup
    • Klik kanan pada Spin Button(Form Controls) pilih Format Control. Setelah kotak dialog Format Control muncul pilih pada tab Control isikan pada Current value "1", Minimum value "1", Maximum value dengan sejumlah data yang ingin ditampilkan. Isikan pada Cell Link "$B$1". Pada gambar Cell link ditunjukkan oleh nomor 1 yang menjadi acuan vlookup. Tombol Spin Button disini bertujuan untuk mengubah angka yang ada pada B1.
    • Klik kanan pada Combo Box(Form Controls)  yang pertama dan pilih Format Control, Setelah kotak dialog Format Control muncul pilih tab Control isikan pada Input Range "DataNama" dan Cell link "$B$1". Tombol ini berfungsi untuk memperlihatkan daftar nama sesuai dengan urutan nomor yang keluar pada B1, Selain itu jika pengguna menggunakan daftar urutan nama untuk memunculkan Vlookup  maka nomor urut juga akan muncul pada B1.
    • Klik kanan pada Combo Box(Form Controls) yang kedua dan pilih Format Control, setelah kotak dialog Format Control muncul pilih tab Control isikan pada Input Range "DataNama" dan pada Cell link "$C$3". Cell C3 akan menjadi acuan halaman awal (Dari) yang akan diberikan perintah print.
    • Klik kanan pada combo Box(Form Controls) yang ketiga dan pilih Format Control, setelah kotak dialog Format Control muncul pilih tab control isikan pada Input range "DataNama" dan pada Cell link "$C$5". Cell C5 merupakan halaman akhir (Hingga) dalam perintah print beberapa halaman. 
    • Perhatikan gambar diatas. Pada gambar diatas terdapat beberapa keterangan yaitu 1 acuan dari vlookup, 2 acuan cetak data dari halaman, dan 3 acuan cetak data hingga halaman. 
    • Selanjutnya tempatkan formula Vlookup berikut ini pada Cell masing-masing sesuai dengan contoh gambar diatas.
    Pada Cell B8 "=VLOOKUP($B$1;DataNilai;2;1)"
    Pada Cell D8 "=VLOOKUP($B$1;DataNilai;3;1)"
    Pada Cell C10 "=VLOOKUP($B$1;DataNilai;4;1)"
    Pada Cell C11 "=VLOOKUP($B$1;DataNilai;5;1)"
    Pada Cell C12 "=VLOOKUP($B$1;DataNilai;6;1)"
    Pada Cell C13 "=VLOOKUP($B$1;DataNilai;7;1)"
    Pada Cell C14 "=VLOOKUP($B$1;DataNilai;8;1)"
    Pada Cell C15 "=AVERAGE(C10:C14)"
    • Jika fungsi dari Vlookup sudah berfungsi sebagaimana diharapkan. maka selanjutnya menempatkan kode makcro yang berfungsi memberikan perintah cetak atau print beberapa atau banyak halaman sesuai angka halaman yang di input. Klik kanan pada Command Button(ActiveX Controls) pilih View Code dan masukkan kode dibawah ini.



      Private Sub CommandButton1_Click()
      Dim Phon, Akhee As Integer
      Phon = Range("C3").Value
      Akhee = Range("C5").Value

      If Phon <= Akhee And Phon >= 1 Then
      Application.ScreenUpdating = False
          For i = Phon To Akhee
              With Sheets("Form")
                  .Range("B1").Value = i
                  .PrintOut
              End With
          Next i
      Else
          MsgBox "Cek lagi Nomor yang akan dicetak...!!!!", vbCritical, "Cetak Halaman"
      End If
      End Sub
      • Jika sudah memasukkan kode diatas pada Command Button(ActiveX Controls) maka langkah selanjutnya silahkan menguji aplikasi yang sudah dibuat. tuliskan nomor atau pilih data pada keterangan Dari (Cell C3) dan Sampai (Cell C5).
      • Jika anda sudah mengikuti semua langkah-langkah sesuai dengan apa yang admin paparkan disini maka tombol untuk mencetak banyak halaman data Vlookup sudah dapat difungsikan.
      Demikian posting tentang Cara Mencetak Banyak Halaman Data Vlookup Dengan Macro Excel.

      Jika posting ini dirasakan ada manfaatnya silahkan dishare pada teman-teman lain agar mereka juga tau caranya.

      Sampaikan kritikan saran dan pengembangan kode lainnya yang berkenaan dengan tombol perintah cetak banyak halaman pada kolom komentar yang tersedia.


      Semoga posting Cara Mencetak Banyak Halaman Data Vlookup Dengan Macro Excel dapat menjadi referensi bagi yang mencari informasi membuat tombol cetak.

      Cara Mengatasi Komputer Tidak Muncul Di Network Win 10

      Iseng nyoba nginstall Windows 10 LTSC di salah satu komputer client yang kemarin troubel, proses instalasi & aktivasi serta setting network berjalan lancar, tapi timbul masalah dengan file sharing dan bahkan network tidak muncul komputer lain dalam satu jaringan.
      Komputer lain dalam satu jaringan tidak muncul

      Setelah nyobain beberapa tutorial dari dari internet akhirnya nemu juga trik mujarab yang cukup mudah seperti ini :

      Buka  jendela command prompt
      Kemudian ketik
      optionalfeatures.exe 
      tekan  Enter

      Scroll kebawah hingga :
      SMB 1.0/CIFS File Sharing Support 
      Centang pada SMB 1.0/CIFS Client 
      Hilangkan centang pada SMB 1.0/CIFS Automatic Removal
      Hilangkan centang pada SMB 1.0/CIFS Server

      Klik OK, kemudian Restart Komputer

      Chek Network , maka semua komputer yang terhubung dalam 1 jaringan udah tampak
      OK, masalah satu udah kelar, ternyata timbul masalah baru lagi, yakni dari sekian komputer ternyata ada beberapa yang tidak bisa dibuka folder sharingnya , komputer dengan OS Windows XP dan Windows Server 2003 bisa dibuka dengan lancar tapi folder sharing dari komputer dengan OS Windows 7 tidak bisa dibuka sama sekali, padahal di komputer lain semuanya lancar. 
      Sebenarnya untuk komputer user hal ini nggak jadi masalah, toh yang penting folder sharing bisa dibuka dari billing dan proses pengeprinan tetap lancar, tapi masalahnya database koleksi film ada di komputer billing (sedangkan file film, musik & software di komputer server data-center), hal ini tentu menimbulkan masalah pada software untuk menampilkan koleksi film pada komputer user.


      Sumber: http://crossfire-net.blogspot.com/2019/03/cara-mengatasi-komputer-tidak-muncul-di.html#ixzz62PsYywUB

      Membuka Pasword VBA Project Excel

      Langsung saja ikuti langkah-langkah berikut :
      1. Siapkan file .xlsm yang akan dibuka paswordnya. (sebagai contoh saya menggunakan nama file Unlock_VBA Project)
      2. Buatlah file tersebut menjadi sebuah file .rar / .zip
      3. Kemudian buka file rar/zip tersebut. Rename file .xlsm menjadi .rar /.zip
      4. Kemudian buka file tersebut. cari file vbaproject.bin didalam folder xl kemudian buka dengan notepad (boleh di extract dulu).
      5. Cari "DPB", bisa gunakan  Ctrl+F pada keyboard anda lalu rubah menjadi DPX. jadi hanya merubah huruf "B menjadi X" lalu save.
      6. Kemudian rubah kembali file rar/zip tadi menjadi .xlsm

      7. Sekarang coba dibuka lagi filenya dalam kondisi normal dan tanpa pasword VBA Project. OKE.

      Jika cara ini sudah selesai, tapi Worksheet juga ikutan di Pasword. silahkan coba cara yang ini Cara Unprotect Sheet Microsoft Excel Tanpa Password

      Sudah cukup sekian saja postingan kali ini tentang  Cara Membuka Pasword VBA Project Excel (.xlsm) hanya dengan merubah satu huruf, semoga bermanfaat.

      Maaf kalau postingan ini bersumber dari : https://ghozalibumiayu.blogspot.com/2014/09/cara-membuka-pasword-vba-project-excel.html

      Membuka Proteksi Password Office Excel

      Untuk mengamankan file Office Excel agar tidak sembarangan orang bisa mengubah datanya maka kita proteksi dengan membuat password. Karena jika file Office Excel telah dibenamkan password (Protect Sheet) didalamnya maka sedikitpun orang lain tidak akan bisa mengubah file tersebut kecuali mengetahui passwordnya. Lalu bagaimana jika suatu saat kita sendiri lupa akan password tersebut? Sehingga kita sendiri kesulitan untuk kembali mengubah (edit) file Office Excel. Jangan khawatir karena disini saya akan memberikan cara mudah untuk membuka kembali proteksi password file Office Excel tersebut. Cara ini sama sekali kita tidak perlu menggunakan software lainnya. Kita cukup menggunakan Microsoft Office Excel untuk melakukan Unprotect Password tersebut.
      Banyak alasan untuk membuka proteksi password Office Excel, misal seperti yang sudah diterangkan diatas karena lupa. Atau bahkan mungkin kita menemukan file Office Excel yang harus kita edit datanya sedangkan file tersebut diproteksi oleh orang lain. Kemudian kita kesulitan untuk menanyakan password tersebut kepada orang yang telah membuat passwordnya. Maka solusi satu-satunya adalah dengan melakukan cara yang akan saya bahas disini.
      Yang kita butuhkan untuk melakukan Unprotect Office Excel hanya serangkaian script atau kode saja. Kode tersebut berfungsi untuk menghilangkan proteksi pada file Office Excel. Cara kerjanya sangat simple dan tidak akan membutuhkan waktu lama untuk melakukannya.

      Berikut Cara Membuka Proteksi Password Office Excel Tanpa Software

      Biasanya jika kita membuka file Office Excel yang telah ditentukan password (proteksi) didalamnya maka ketika kita melakukan klik ganda pada salah satu kolom layar kerja maka akan tampil peringatan seperti ini :
      Membuka Proteksi Password Office Excel (2)
      Itu tandanya adalah file Office Excel yang sedang kita buka telah diproteksi oleh pembuatnya. File tersebut sama sekali tidak akan bisa kita edit sebelum kita membuka atau menghilangkan proteksinya. Sementara selama file masih diproteksi, maka file tersebut hanya bisa kita baca dan lihat saja.
      Kemudian jika kita lihat di menu Review maka akan jelas terlihat pada bagian Changes disitu tertera tulisan Unprotect Sheet. Fitur itu fungsinya adalah untuk membuka proteksi password Office Excel. Masalahnya jika kita tahu passwordnya maka tidak akan dipusingkan dengan hal ini. Namun jika sebaliknya kita lupa atau tidak tahu karena file ini dibuat oleh orang lain lalu bagaimana?
      Membuka Proteksi Password Office Excel (3)
      Santai saja dan saya yakin jika Anda sudah selesai membaca artikel ini maka Anda akan tersenyum sendiri. Karena ternyata untuk mengatasi masalah ini sangatlah mudah.
      Caranya silakan Anda buka file Office Excel yang telah diproteksi tersebut kemudian Anda tekan Alt+F11 pada keyboard. Fungsi tombol kombinasi Alt+F11 ini adalah untuk mengaktifkan layar kerja Microsoft Visual Basic. Kemudian Anda klik pilih menu Insert dan Module.
      Membuka Proteksi Password Office Excel (4)
      Anda copy kode dibawah ini dan paste-kan pada layar kerja Module yang tadi telah Anda aktifkan.
      Sub InternalPasswords()
Dim i As Integer, j As Integer, k As Integer
Dim l As Integer, m As Integer, n As Integer
Dim i1 As Integer, i2 As Integer, i3 As Integer
Dim i4 As Integer, i5 As Integer, i6 As Integer
On Error Resume Next
For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
ActiveWorkbook.Unprotect Chr(i) & Chr(j) & Chr(k) & _
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) _
& Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) _
& Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
If ActiveWorkbook.ProtectStructure = False Then
If ActiveWorkbook.ProtectWindows = False Then
If ActiveSheet.ProtectContents = False Then
Exit Sub
End If
End If
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
End Sub
      Membuka Proteksi Password Office Excel (5)
      Langkah selanjutnya adalah Anda klik pilih Sheet yang didalamnya terdapat password atau yang akan kita jebol proteksinya. Disini atau dalam contoh saya akan membuka proteksi Sheet yang bernama Contoh.
      Kemudian Anda klik pilih lagi tombol Run Macro atau lebih cepat lagi Anda bisa menekan tombol F5 pada keyboard.
      Membuka Proteksi Password Office Excel (6)
      Maka Anda akan dihadapkan pada kotak dialog Macros dengan perintah InternalPasswords. Disini kita tidak banyak yang harus dilakukan, kita cukup klik pilih Run. Tunggu beberapa saat karena kode yang telah kita benamkan pada Module tadi sedang bekerja untuk menghilangkan proteksi file Office Excel. Lamanya proses Run Macro ini tergantung ukuran file Office Excel yang sedang Anda Unprotect.
      Membuka Proteksi Password Office Excel (7)
      Jika proses Run Macro sudah selesai dengan sempurna, silakan Anda tutup (close) layar kerja Microsoft Visual Basic dan kembali perhatian Anda pada layar kerja Sheet yang semula diproteksi. Anda lihat menu Review, jika sudah berubah menjadi Protect Sheet maka proses membuka proteksi password Office Excel ini telah sukses.
      Membuka Proteksi Password Office Excel (8)
      Silakan Anda coba untuk mengedit atau melakukan perubahan pada layar kerja file Office Excel tersebut. Saya yakin sekarang file Office Excell sudah tidak diproteksi lagi.
      Bagaimana mudah bukan? Silakan selamat mencoba trik Membuka Proteksi Password Office Excel ini. Semoga Anda berhasil melakukannya dan saya harap gunakan trik ini untuk tindakan yang baik bukan untuk menjebolkan file Office Excel orang lain yang dilindungi dengan proteksi. Maaf kalo ini saya coba copas dari : https://info-menarik.net/cara-membuka-proteksi-password-office-excel/.

      Selamat Tinggal

      Jalan remang-remang diterangi oleh bulan
      Sebenarnya kemana kah kita akan pergi?
      Bulan pun lambat laun menghilang didanau itu
      Sekarang tunjukkan lah masa depan yang tak pasti itu pada kami

      Kita takut pada sesuatu yang berharga yang terus berdatangan
      Kita terus hidup dengan berdiam diri, tapi….
      Jika memang takdir… ingin memisahkan kita berdua

      Meski harus menghancurkan dunia sekalipun, ku akan tetap melindungimu
      Meski kutahu mimpi ini akan cepat berlalu
      Kutetap ingin hidup dengan seseorang
      Meski kutahu aku akan mendapatkan penderitaan
      Kuingin berada disamping seseorang


      Selamat tinggal..........



      Kita pasti akan mencegah perpisahan itu terjadi

      Selamat Tinggal Moon Town

      Di jalan yang diterangi bulan dengan samarnya
      Kira-kira ke manakah kita berdua akan pergi?
      Bulan yang bergetar di danau dengan samarnya
      Bayangkanlah masa depan yang belum terlihat

                             Memiliki hal berharga hanya membuatku takut
                             Meski pun hidup menutup diri, kita tetap saja bertemu
                             Meski pun nantinya takdir mencoba memisahkan kita
                             Aku ingin menjagamu meski harus menghancurkan dunia

      Meski pun kutahu itu adalah mimpi sesaat
      Aku ingin hidup bersama seseorang
      Meski pun aku mengetahui sakitnya kehilangan
      Aku selalu mengharapkan seseorang

      Selamat tinggal, selamat tinggal

                             Di jalan yang diterangi bulan dengan samarnya
                             Kira-kira ke manakah kita berdua akan pergi?
                             Pada malam bulan purnama tanpa ada suara
                             Sesuatu telah menghilang di kota yang lembab ini

      Taman yang penuh kenangan dan jembatan yang berkarat
      Bahkan suara nyanyianmu juga terlupakan di kejauhan
      Jika tak mencinta, kita takkan kehilangan apa pun
      Meski kita yang kesepian sudah lama mengetahui hal itu

                             Meski pun kutahu itu adalah mimpi sesaat
                             Aku ingin hidup bersama denganmu
                             Meski pun aku mengetahui sakitnya kehilangan
                             Aku ingin terus mencintai dirimu

      Hingga saat-saat yang terakhir...

      Sesuatu yang berbentuk telah menghilang
      Karena kota ini berlalu dengan begitu cepat
      Kita akan bertemu di suatu tempat
      "Bulannya sangat indah ya"

                             Air mata lembabmu yang mengalir
                             Menetes di atas bunga forget-me-not
                             Lima belas malam penuh kesedihan itu
                             Telah menghapus segalanya

      Selamat tinggal, selamat tinggal
      Melampaui "selamat tinggal" ini, ah......

      Rasa

      Tak kenal maka tak Cinta
      Karena Cinta semua menjadi buta
      Untuk apa diteruskan jika memang tak cinta
      Pada hakikatnya Cinta itu apa

                                Hari demi hari
                                Bulan demi bulan
                                Tahun pun silih berganti
                                Tapi tak menemukan jawaban

      Menikah itu adalah nasib
      Mencintai itu sebuah takdir
      Kamu bisa berencana menikah dengan siapa
      Tapi kamu tidak bisa berencana mencinta dengan siapa

                                Untuk apa aku mempertahankan seseorang
                                Jika ia pergi dengan orang lain

                                Karena Cinta memang tak harus dipaksakan
                                Karena berjuang tak sebercanda itu
      Langganan: Postingan (Atom)
      Blogger Template by Clairvo