Ini dia Script untuk membuat Label Undangan secara otomatis dari ribuan nama-nama undangan.
y = 1
x = 1
nama = “kosong”
alamat = “kosong”
ynama = 0
ydi = 0
yalamat = 0
lompat = 1
nlompat = 1
jbaris = 2
jlabel = 0
Jlembar = 1
Sheets(2).Select
ActiveWindow.DisplayGridlines = False
Sheets(2).Copy , Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = “Lembar1”
Do While nama <> “”
nama = Sheet1.Cells(x + 1, 1)
alamat = Sheet1.Cells(x + 1, 2)
lompat = lompat + 1
jlabel = jlabel + 1
If nama = “” Then Exit Do
If jlabel > 12 Then
jlabel = 1
Jlembar = Jlembar + 1
y = 1
Sheets(2).Copy , Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = “Lembar” & Jlembar
End If
If y > 1 Then
If lompat = 2 Then
ynama = y – 1
ydi = y
yalamat = y + 1
y = y + 3 + jbaris
End If
Sheets(Sheets.Count).Cells(ynama, nlompat) = nama
Sheets(Sheets.Count).Cells(ydi, nlompat) = “Di”
Sheets(Sheets.Count).Cells(yalamat, nlompat) = alamat
Sheets(Sheets.Count).Cells(ynama, nlompat).Font.Bold = True
Sheets(Sheets.Count).Cells(yalamat, nlompat).HorizontalAlignment = xlCenter
Else
ynama = y
ydi = y + 1
yalamat = y + 2
Sheets(Sheets.Count).Cells(ynama, nlompat) = nama
Sheets(Sheets.Count).Cells(ydi, nlompat) = “Di”
Sheets(Sheets.Count).Cells(yalamat, nlompat) = alamat
Sheets(Sheets.Count).Cells(y, nlompat).Font.Bold = True
Sheets(Sheets.Count).Cells(yalamat, nlompat).HorizontalAlignment = xlCenter
y = y + 4 + jbaris
End If
If lompat > 3 Then
lompat = 1
nlompat = lompat
Else
nlompat = nlompat + 2
End If
x = x + 1
CommandButton1.Caption = x
Loop
‘Sheets(Sheets.Count).Select
End Sub
Copy Script tersebut dan Paste pada Jendela VBA yang sudah dikosongkang tadi. Setelah itu, Buka kembali Lembar excel Sheet1 yang Sudah ada Tombolnya tadi. Lalu Kita sudah siap Eksekusi Tombolnya, Namun jika excel masih dalam mode Design kita tidak bisa melakukan klik. Caranya tinggal klik “Design Mode” Lihat Gambar.
Kini Tombol Sudah Siap di Eksekusi, untuk mengubah script silahkan klik kembali “Design Mode” nya. Anda bisa mengembangkan sendiri sesuai keinginan dan kreatifitas anda menjadi hal yang lebih menajubkan lagi.
Akhirnya selesai juga, Selamat mencoba..
Jangan Lupa Menghapus Sheet hasil Proses (Lembar1,Lembar2, dst..) untuk mencobanya kembali.
Jika masih bingung silahkan tanya-tanya di mari ya..?
Berhubung Microsoft Excel yang Debroo gunakan adalah Versi Freeware alias gratisan, jadi tidak dapat menyimpan SourceCode didalamnya. Tapi untuk formatnya masih bisa tersimpan. tinggal inputin Script secara manual seperti cara diatas.
Berikut Contoh Excelnya yang Bisa Anda Download
Script tetap anda masukkan secara manual.
