Langkah-‐langkah pembuatan macro atau form catatan pelanggan dalam ms.excel 2013, antara lain : 1. Buka file excel 2. Double klik di nama worksheet lalu ganti nama dari “Sheet1” menjadi “Home”, ”Sheet2” menjadi “List Car”, ”Sheet3” menjadi “Customer List” 3. Klik Insert lalu Shapes, dan atur hingga menjadi gambar seperti dibawah ini : 4. Lalu klik Worksheet “List Car” dan buat kolom seperti ini :
5. Kemudian simpan file sebagai excel macro. Klik file save as lalu pilih Excel-‐Macro Enabled Workbook.
Langkah berikutnya membuat macro file, sebagai berikut. 1. 2. 3. 4.
Pada worksheet pilih menu view lalu klik tab Macros lalu pilih view Macros. Isikan Macro name “FORM_CUSTOMER”, lalu klik create. Klik kanan pada VBA Project, pilih insert, lalu UserForm. Langkah selanjutnya men-‐design form dengan Control yang ada, diantaranya ada Control Label, TextBox, ComboBox, dan Command Button. Ganti setiap nama caption dalam label sesuai dengan form yang akan kita jadikan sebagai input-‐an.
5. Setelah Label, TextBox, ComboBox, dan Command Button dibuat, ubah menjadi : • Label1 Caption diganti menjadi “NO” • Label2 Caption diganti menjadi “NAMA PELANGGAN” • Label3 Caption diganti menjadi “TANGGAL PEMINJAMAN” • Label4 Caption diganti menjadi “NO KTP” • Label5 Caption diganti menjadi “ALAMAT” • Label6 Caption diganti menjadi “MOBIL YANG DI RENTAL” • Label7 Caption diganti menjadi “LAMA SEWA (JAM)”
Label8 Caption diganti menjadi “HARGA /12JAM” Label9 Caption diganti menjadi “TOTAL HARGA” TextBox1 Name Diganti dengan “TXTNO” TextBox2 Name Diganti dengan “TXTNAMA” TextBox3 Name Diganti dengan “TXTTANGGAL” TextBox4 Name Diganti dengan “TXTKTP” TextBox5 Name Diganti dengan “TXTALAMAT” TextBox6 Name Diganti dengan “TXTLAMA” TextBox7 Name Diganti dengan “TXTHARGA” Text Box8 Name Diganti dengan “TXTTOTAL” ComboBox1 Diganti dengan “CBOMOBIL” Command Button 1 Caption diganti dengan “TAMBAH”, Name diganti dengan “CMDTAMBAH” • Command Button2 Caption diganti dengan “PROSES”, Nam diganti dengan “CMDPROSES” • Command Button3 Caption diganti dengan “CARI”, Name diganti dengan “CMDCARI” • Command Button4 Caption diganti dengan “HAPUS”, Nam diganti dengan “CMDHAPUS” • Command Button5 Caption diganti dengan “CLOSE”, Name diganti dengan “CMDCLOSE” 6. Atur design sesuai yang di inginkan • • • • • • • • • • • •
7. Langkah selanjutnya memberi kode untuk setiap commond button yang dibuat, Dengan cara klik kanan pada useform1 lalu pilih view kode.
8. Selanjutnya masukan kode berikut,
9. Kode di atas apabila diinputkan sebagai berikut, Public Sub kosong() TXTNO.Text = "" TXTNAMA.Text = "" TXTTANGGAL.Text = "" TXTKTP.Text = "" TXTALAMAT.Text = "" CBOMOBIL.Text = "" TXTLAMA.Text = "" TXTHARGA.Text = "" TXTTOTAL.Text = "" End Sub Public Sub aktifform() TXTNO.Enabled = True TXTNAMA.Enabled = True TXTTANGGAL.Enabled = True TXTKTP.Enabled = True TXTALAMAT.Enabled = True CBOMOBIL.Enabled = True TXTLAMA.Enabled = True End Sub Public Sub nonaktifform() TXTNO.Enabled = False
TXTNAMA.Enabled = False TXTTANGGAL.Enabled = False TXTKTP.Enabled = False TXTALAMAT.Enabled = False CBOMOBIL.Enabled = False TXTLAMA.Enabled = False End Sub Public Sub mobil() CBOMOBIL.Clear CBOMOBIL.AddItem "AVANZA" CBOMOBIL.AddItem "XENIA" CBOMOBIL.AddItem "APV" CBOMOBIL.AddItem "INNOVA" CBOMOBIL.AddItem "HONDA JAZZ" CBOMOBIL.AddItem "HONDA BRIO" CBOMOBIL.AddItem "NEW HONDA CITY" CBOMOBIL.AddItem "ALL NEW CIVIC" End Sub Private Sub cmdcari_Click() x = InputBox("MASUKAN NAMA YANG DICARI!!") Range("A4").Select Do While ActiveCell.Value <> "" And ActiveCell.Value <> x ActiveCell.Offset(1, 0).Select Loop If ActiveCell.Value <> x Then MsgBox "DATA TIDAK KETEMU" Else Call tampil End If End Sub Private Sub cmdclose_Click() x = MsgBox("Anda yakin mau keluar?", vbYesNo + vbQuestion, "Peringatan") If x = vbYes Then Unload Me End Sub Private Sub cmdhapus_Click() x = MsgBox("Anda Yakin Mau Menghapus Record Ini?", vbYesNo + vbCritical, "Peringatan") If x = vbYes Then ActiveCell.EntireRow.Delete End If
End Sub Public Sub tampil() TXTNO.Text = ActiveCell.Value ActiveCell.Offset(0, 1).Select TXTNAMA.Text = ActiveCell.Value ActiveCell.Offset(0, 1).Select TXTTANGGAL.Text = ActiveCell.Value ActiveCell.Offset(0, 1).Select TXTKTP.Text = ActiveCell.Value ActiveCell.Offset(0, 1).Select TXTALAMAT.Text = ActiveCell.Value ActiveCell.Offset(0, 1).Select CBOMOBIL.Text = ActiveCell.Value ActiveCell.Offset(0, 1).Select TXTLAMA = ActiveCell.Value ActiveCell.Offset(0, 1).Select TXTHARGA.Text = ActiveCell.Value ActiveCell.Offset(0, 1).Select TXTTOTAL.Text = ActiveCell.Value ActiveCell.Offset(0, 1).Select End Sub Private Sub CMDPROSES_Click() TXTTOTAL.Text = Val(TXTLAMA.Text) * Val(TXTHARGA.Text) / 12 End Sub Private Sub cmdtambah_Click() Dim irow As Long Dim ws As Worksheet Set ws = Workbooks("145134006-‐UAS-‐1AMP.xlsm").Worksheets("CUSTOMER LIST") irow = ws.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row If Trim(Me.TXTNO.Text) = "" Then Me.TXTNO.SetFocus MsgBox "Masukan No !!", vbOKOnly Exit Sub
End If ws.Cells(irow, 1).Value = Me.TXTNO.Text ws.Cells(irow, 2).Value = Me.TXTNAMA.Text ws.Cells(irow, 3).Value = Me.TXTTANGGAL.Text ws.Cells(irow, 4).Value = Me.TXTKTP.Text ws.Cells(irow, 5).Value = Me.TXTALAMAT.Text ws.Cells(irow, 6).Value = Me.CBOMOBIL.Text ws.Cells(irow, 7).Value = Me.TXTLAMA.Text ws.Cells(irow, 8).Value = Me.TXTHARGA.Text ws.Cells(irow, 9).Value = Me.TXTTOTAL.Text Me.TXTNO.Text = "" Me.TXTNAMA.Text = "" Me.TXTTANGGAL.Text = "" Me.TXTKTP.Text = "" Me.TXTALAMAT.Text = "" Me.CBOMOBIL.Text = "" Me.TXTLAMA.Text = "" Me.TXTHARGA.Text = "" Me.TXTTOTAL.Text = "" Me.TXTNO.SetFocus End Sub Private Sub TXTHARGA_Change() If CBOMOBIL.Text = "INNOVA" Then TXTHARGA.Text = 400000 ElseIf CBOMOBIL.Text = "HONDA JAZZ" Then TXTHARGA.Text = 400000 ElseIf CBOMOBIL.Text = "AVANZA" Then TXTHARGA.Text = 250000 ElseIf CBOMOBIL.Text = "XENIA" Then TXTHARGA.Text = 250000 ElseIf CBOMOBIL.Text = "APV" Then TXTHARGA.Text = 250000 ElseIf CBOMOBIL.Text = "HONDA BRIO" Then TXTHARGA.Text = 300000 ElseIf CBOMOBIL.Text = "NEW HONDA CITY" Then TXTHARGA.Text = 400000 ElseIf CBOMOBIL.Text = "ALL NEW CIVIC" Then TXTHARGA.Text = 750000 Else: TXTHARGA.Text = 0 End If End Sub
Private Sub TXTTANGGAL_Change() End Sub Private Sub TXTTOTAL_Change() End Sub Private Sub UserForm_Initialize() Range("A5").Select Call mobil Call tampil End Sub Private Sub userform_queryclose(cancel As Integer, closemode As Integer) If closemode = vbFormControlMenu Then cancel = True MsgBox "Gunakan Icon Close", vbOKOnly End If End Sub 10. Setelah selesai kita kembali ke worksheet. 11. Kemudian buat tombol untuk mengaktifkan form form yang dibuat seperti My Profile, List Car dan Customer List.
12. Lalu pada sheet customer list buat form untuk mengaktifkan inputan data dan juga tombol untuk kembali ke menu utama (home). Caranya sebagai berikut. • Klik insert • Klik shapes lalu pilih jenis yang di inginkan • Untuk mengganti nama klik kanan pilih Edit text dan Ganti dengan “INPUT DATA” • Lalu klik kanan dan pilih assign macro • Kemudian pilih sesuai dengan macro yang kita buat untuk inputan data • Lalu klik oke 13. Lalu langkah berikutnya pada sheet customer list buat tabel untuk mengisi atau menginput daftar pelanggan. Gambarnya sebagai berikut.
14. Lalu klik “Input Data” untuk mulai memasukan data nama alamat atau identitas pelanggan. Setelah di inputkan klik tambah, 15. Dan seterusnya untuk memasukan identitas pelanggan, dengan input klik tambah. Input klik tambah sampai daftar pelanggan kita inputkan semua.
16. Jika input data masuk ke dalam tabel yang telah dibuat dan berurut sesuai dengan no urutan, maka inputan data yang dimasukan adalah benar. 17. Begitulah langkah-‐langkah membuat aplikasi macro di ms.office excel 2013.
