Membuat kartu anggota dengan memanfaatkan VBA Ms. Excel

Pertama, desain dulu tampilan kartu anggota yang diinginkan, salah satu contohnya seperti di bawah ini

format file yang disarankan adalah *.png atau *.wmf atau format file lain yang mendukung background transparan

Pembuatan desain kartu bisa dengan menggunakan aplikasi Corel Draw atau Adobe Photoshop ataupun yang lain… tergantung user

setelah itu, masukkan/insert gambar tersebut ke dalam file excel yang sudah kita buat

untuk sementara, kolom/field/data-data yang digunakan hanya No Induk, Nama, kelas dan barcode no induk anggota .. untuk foto tidak disertakan dulu, layout bisa seperti di bawah ini

untuk script/code program VBAnya bisa seperti ini

Sub Cetak_KTA()
With Sheets("cetak dan DATA")
 
'Looping pencetakan sebanyak 5 kali
For a = 0 To 5
'pengisian data pada cell pencetakan kartu anggota yang sudah tersedia
.Cells(4 + (a * 8), 2) = ActiveCell.Offset(0, 2).Value
.Cells(5 + (a * 8), 2) = ActiveCell.Offset(0, 0).Value &amp; " / " &amp; ActiveCell.Offset(0, 3).Value
 
ActiveCell.Offset(0, 1).Select
b = ActiveCell.Address
Selection.Copy
 
Select Case a
Case 0
Range("C7").Select
ActiveSheet.Paste
Case 1
Range("C15").Select
ActiveSheet.Paste
Case 2
Range("C23").Select
ActiveSheet.Paste
Case 3
Range("C31").Select
ActiveSheet.Paste
Case 4
Range("C39").Select
ActiveSheet.Paste
Case 5
Range("C47").Select
ActiveSheet.Paste
End Select
Range(b).Select
ActiveCell.Offset(0, -1).Select
ActiveCell.Offset(1, 0).Select
Next
 
.PrintPreview
If MsgBox("Cetak", vbQuestion + vbYesNo, "Diens_Macro") = vbYes Then
Sheet1.PrintOut From:=1, To:=1, Copies:=1, Collate:=True
Else
ActiveCell.Offset(-6, 0).Select
End If
 
End With
End Sub

Microsoft, Ms Excel

This entry was posted on Wednesday, April 15th, 2009 and is filed under Programming, Tips Trik. You can follow any responses to this entry through RSS 2.0. You can leave a response, or trackback from your own site.

#1 by mustafa at June 13th, 2009

salam kenal mas…desain kartunya bagus jadi pingin ne..tp saya tidak ngerti desain kek gitu…bleh gx ya minta yg udah mas desain…makasih

Quote

#2 by Gunantoro at March 25th, 2010

Pak Software Untuk Membuat Kartu Anggota ada gak,,kalo bs yang gratisan,,soale saya googling koq gak nemu2,,makasih

#3 by admin at March 26th, 2010

@mustafa: gampang, insya Allah di posting q berikutnya q share code-nya
@Gunantoro: kalo aku masih lebih suka customizing sendiri, kombinasi Corel, Ms. Excel dan VBA

No Such of File