Ekspresi | Belajar HTML dan PHP | Sunda | Kontak | Gmail | Uang Adsense
Kemahasiswaan Kilas Santai
PMB Online STMIK Jabar 2021
STMIK JABAR
LP3I Tasikmalaya
STAI Al-Falah
Pengobatan Ruqyah
Belajar Pemrograman PHP, MySQL, Framework CI, Domain, Hosting, CMS Wordpress, Framework Laravel. Yang Penting ada menu DAFTAR ISI
Inkubator | Daftar Isi | Bisnis Bitcoin | Tools Penting | PrivacyPolicy | Inggris Arab

Sunday, May 4, 2014

Cara Membuat Faktur Pembayaran SPP Dengan Macro Microsoft Excel 2010


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
 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***


"Bitcoin and Forex are high risk business. We must join them smartly."
Belajar Bahasa Inggris dan Arab di Telegram dan FB Gratis!
Youtube: Katabah Com: Menuju 1 jt Konten :)

No comments:

Post a Comment