Cara Membuat Faktur Pembayaran SPP Dengan Macro Microsoft Excel 2010

Nabung Emas dan Reksadana Online Rp 10.000

1.      Buka Microsoft Excel 2010

2.      Simpan dengan Save as type: Excel Macro-Enabled Workbook

3.      Nama file name bebas, misal: Faktur SPP Macro

4.      Buatlah desain seperti ini:

5.      Klik Developer

6.      Klik Visual Basic

7.      Klik Insert – UserForm

8.      Buatlah desain seperti ini:

Cara Menyisipkan Tulisan No:

a.       Klik icon A di Toolbox (ditandai merah)

b.      Klik di area kosong pada form

c.       Klik caption pada panel properties (Ditandai merah)

d.      Ketik: No.

e.       Silahkan ulangi langkah a sampai d untuk menyisipkan Jenis Biaya, Besar, dan Jumlah Angsuran.

Cara Menyisipkan Kotak Putih (TextBox)

a.       Klik TextBox di ToolBox (Ditandai hijau)

b.      Klik di belakang tulisan “No.”

c.       Ulangi langkah a-b untuk menyisipkan TextBox lainnya

Cara Menyisipkan Tombol Simpan (CommandButton)

a.       Klik CommandButton di ToolBox (Ditandai hitam)

b.      Klik di bawah tulisan “Jumlah Angsuran”

c.       Klik caption di panel properties

d.      Ketik: “Simpan”

e.       Ulangi langkah a-d untuk membuat tombol “Tutup”

9.      Klik dua kali pada tombol Simpan

10.  Akan mucul gambar seperti ini:

11.  Ketik script berikut:

Sheet1.Activate

For x = 1 To 100

    If Sheet1.Cells(5 + x, "B") = "" Then

        Sheet1.Cells(5 + x, "b") = TextBox1

        Sheet1.Cells(5 + x, "c") = TextBox2

        Sheet1.Cells(5 + x, "d") = TextBox3

        Sheet1.Cells(5 + x, "e") = Val(TextBox4)

        Sheet1.Cells(5 + x, "f") = "=rc[-2]*rc[-1]"

       

        If MsgBox("Isi lagi", vbYesNo, "Isi") = vbYes Then

            TextBox1 = ""

            TextBox2 = ""

            TextBox3 = ""

            TextBox4 = ""

            TextBox1.SetFocus

            x = 100

        Else

            Sheet1.Activate

            End

        End If

    End If

    Next x

12.  Save

13.  Klik Run

14.  Akan muncul gambar seperti ini:

15.  Silahkan ketik data pada UserForm1

No.	Jenis Biaya	Besar	Jumlah Angsuran
1	Angsuran 1	500	1
2	Angsuran 2	500	3
3	Angsuran 3	500	2

Catatan:

Kolom Bayar akan muncul (terisi) secara otomatis

16.  Agar tombol Tutup aktif (dapat digunakan), double klik tombol tersebut

17.  Ketik script:

Me.Hide

Sumber:

Dedi Royadi. 2009. Langkah Mudah Microsoft Excel 2007. Jakarta: Lentera Ilmu Cendekia.

***Selesai***

"Investasi Emas dan Reksadana, Untung Mana?."

Youtube: Katabah Com: Menuju 1 jt Konten :)