Prodi Sistem Informasi | Belajar HTML dan PHP | Skripsi SI
Pesantren Katabah
1000 Penghafal Quran
Pengobatan Ruqyah Mandiri
Sistem Informasi (S1)
Manajemen Informatika
Blog | Kontak | Siap Kerja | Sertifikat | PrivacyPolicy | Inggris Arab | Daftar Isi

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

"Boleh Konsultasi Masuk Jurusan Sistem Informasi via WA, DM IG, Tiktok."
Tips Skripsi Program Studi Sistem Informasi

No comments:

Post a Comment