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***
"Boleh Konsultasi Masuk Jurusan Sistem Informasi via WA, DM IG, Tiktok."
|
Tips Skripsi Program Studi Sistem Informasi |
|
No comments:
Post a Comment