Untuk Menghindari Pemalsuan Sertifikat Resmi Lembaga Kursus Potensi Nusantara, Cek Status Alumni yang SAH Terdaftar Klik disini


AYO KURSUS KOMPUTER DAN TOEFL ONLINE (BUKTI PEMBAYARAN PESERTA KURSUS ONLINE) KLIK DISINI

TRYOUT TOEFL ONLINE GRATISS SERENTAK SEINDONESIA KLIK DISINI


IZIN KEMENDIKBUD REPUBLIK INDONESIA/ NOMOR INDUK LEMBAGA KURSUS NASIONAL: 07118.1.0035

Lembaga Kursus Potensi Nusantara Menawarkan Paket Kemitraan Berwirausaha (Kerjasama Membuka Cabang Lembaga Kursus Potensi Nusantara Baru)
Untuk Info lebih lanjut Klik Disini

Membuat Form Isian Data Sederhana berbasis Ms.Excel






Nah setelah sebelumnya saya membahas tentang bagaimana cara membuat Form input data siswa, kali ini saya akan berbagi bagaimana cara membuat Form isian data yang sederhana. Yang tentunya masih berbasis Ms.Excel dengan menggunakan VBA Project.
1. Buka file excel 2007.


d1

2. Double Klik di nama worksheet lalu ganti nama yg asalnya Sheet1 menjadi “PARTSDATA” (bisa diganti dengan nama lain). 
D2
3. Kemudian kita simpan file sebagai excel makro [Save As] > [Excel Macro Enabled Workbook] ketik nama file disini saya beri nama file “data barang”
d3
4. Langkah berikutnya membuat Macro untuk file tersebut, adapun langkah-langkah pembuatan macro sebagai berikut :
-Pada worksheet pilih menu [View] > [Macros] > [View Macros]
d4
-Isikan macro name “FORM” klik create
D5
-Klik kanan mouse pada VBA Project kemudian pilih [Insert] > [User Form]
D6
-Langkah selanjutnya adalah design form dengan Control yang akan kita gunakan adalah : Control Label, Textbox dan Command Button dan memberi nama dan caption untuk tiap label, textbox dan command button.
Label1 Caption diganti dengan “Kode”
Label2 Caption diganti dengan “Nama Barang”
Label3 Caption diganti dengan “Satuan”
Label4 Caption diganti dengan “Harga”
d7
TextBox1 Name diganti dengan “tkode”
TextBox2 Name diganti dengan “tnama”
TextBox3 Name diganti dengan “tsatuan”
TextBox4 Name diganti dengan “tharga”
d8
command button1 Caption diganti dengan “TAMBAH”
command button1 Name diganti dengan “CMDTMBH”
command button2 Caption diganti dengan “TUTUP”
command button2 Name diganti dengan “CMDTTP”
d9
-Langkah selanjutnya adalah membuat kode
1. Klik command button “TAMBAH “
2. Klik menu bar pilih view code
Atau klik kanan mouse pada tombol “TAMBAH” pilih view code
d10
3. Masukan kode dibawah ini (copy paste saja):
Private Sub CMDTMBH_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets(“PARTSDATA”)
‘menemukan baris kosong pada database
iRow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row
‘check untuk sebuah kode
If Trim(Me.tkode.Value) = “” Then
Me.tkode.SetFocus
MsgBox “Masukan Kode Barang”
Exit Sub
End If
‘copy data ke database
ws.Cells(iRow, 1).Value = Me.tkode.Value
ws.Cells(iRow, 2).Value = Me.tnama.Value
ws.Cells(iRow, 3).Value = Me.tsatuan.Value
ws.Cells(iRow, 4).Value = Me.tharga.Value
‘clear data
Me.tkode.Value = “”
Me.tnama.Value = “”
Me.tsatuan.Value = “”
Me.tharga.Value = “”
Me.tkode.SetFocus
End Sub
4. Dilanjutkan dengan pengisian code pada tombol tutup langkah seperti nomor 2 diatas dengan kode dibawah ini :
Private Sub CMDTTP_Click()
Unload Me
End Sub
5. Untuk menghindari menutup melalui tanda X pada form masukan kode dibawah ini dengan klik kanan mouse pada form dan pilih view code dan ketikan kode dibawah ini :
Private Sub UserForm_QueryClose(Cancel As Integer, _
CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
Cancel = True
MsgBox “MAKE TOMBOL ATUH KANG!”
End If
End Sub
6. Mengisi code pada module klik kanan module pilih view code dan isikan kode dibawah ini :
Sub FORM()
UserForm1.Show
End Sub
Nah jika kalian berhasil maka form isian data tersebut dapat kita gunakan, jika masih kurang atau belum berhasil, mohon perhatikan bagian koding atau cermati langkah demi langkahnyaa.
Selamat Mencobaaaaa:)
Sertifikatkan kemampuan Komputer dan Bahasa Inggris anda
Sertifikat Komputer dan TOEFL tanpa ikut kursus
, Ikuti Paket Ujian Saja

Klik Disini

PROGRAM KURSUS MASUK DESA
LEMBAGA PENDIDIKAN POTENSI NUSANTARA MEMBUKA KURSUS KOMPUTER ONLINE BERSERTIFIKAT, PAKET MICROSOFT OFFICE (WINDOWS,WORD,EXCEL,POWER POINT) DAN PAKET DESAIN GRAFIS (ADOBE PHOTOSHOP,COREL DRAW & ADOBE INDESIGN). BIAYA SANGAT TERJANGKAU, INFO LANJUT
KLIK DISINI

SERTIFIKATKAN KEMAMPUAN KOMPUTER KAMU TANPA IKUT KURSUS

TANGGAPAN PESERTA KURSUS