APLIKASI EXCELFORM INPUT DATA MAHASISWA DENGAN MACRO
Membuat Macro Excel dengan menggunakan bahasa pemrograman VB sangat mudah, disini saya akan contohkan bagaimana menginput (memasukan) data Mahasiswa ke beberapa cells di excel dengan menggunakan "Form Input Data Mahasiswa". Ya setidaknya kelihatan sedikit keren! Lihat Sreenshoot Aplikasi di bawah ini
1. Buka atau klik start lalu pilih Mr. Excel
2. Untuk membuka atau memunculkan menu Developer
a. Klik menu File
b. Pilih Options > pilih Customize Ribbon
c. Pada kotak dialog Cumtomize Ribbon > pilih atau centang menu Developer
d. Kilik OK
Maka menu Developer akan muncul dan dapat berfungsi di gunakan
3. Mengaktifkan Macro Security
a. Klik menu Developer
b. Klik macro security > pilih Enable all macros ( not recommended; potentially dangerous code can run)
c. Kilk OK
4. Membuat macros
a. Klik macros pada menu developer
b. Tulis nama,seperti ninda pada kotak dialog macro name
c. Pilih Create
d. Tulis form1.show atau userform1.show , seperti contoh di bawah Sub ninda ()
Form1.show
End Sub
e. Pilih Save > tulis nama > pada save a type > pilih Excel Macro- Enable Workbook > Save
f. Kilik Insert User Form pada menu visual basic (di sebelah save)
g. Akan muncul kotak dialog User form1
h. Kilik toolbox > pilih tombol Label lalu drag pada kotak dialog User form 1
i. Pilih tombolTexbox lakukan seperti membuat tombol Label
Tombol Label : untuk nama,tgl lahir, alamat, agama, jenis kelamin, no.hp, dan jurusan
Tombol Texbox : untuk menulis atau mengisi rumus
j. Pilih save
k. Ganti nama Label 1 dengan nama pada kotak dialog properties
l. Pilih captions lalu ganti
5. Untuk membuat rumus pada tombol Texbox
a. Klik kotax texbox pada kotak userform1
b. Pada kotak dialog ptoperties > pada name
c. Ganti dengan rumus
· Nama : tnama
· Tgl lahir : tgglhr
· Alamat : talamat
· Agama : tamaga
· Jnis kelamin : tjenkel
· No. Hp : thp
· Jurusan : tjurusan
6. Untuk membuat tombol keluar dan simpan
a. Tombol keluar
· Pilih toolbox > pilih tombol Command Button > drag and drop pada kotak user form 1
· Ganti nama command button dengan keluar pada kotak dialog properties > pilih captions > lalu ganti
· Klik 2x pada kotak keluar
· Maka akan muncul kotak dialog command button 1
· lalu tulis rumus yaitu Unload Me, seperti gambar di bawah
Private Sub Command Button 1_Click ()
Unload Me
End Sub
· Pilih Save
b. Tombol Simpan
· Lakukan buat tombol simpan dengan cara yang sama membuat tombol keluar
· Dengan rumus
Dim lilik As Long
Dim ws As Worksheet
Set ws = Worksheets("sheet1")
'menemukan baris kosong pada database
lilik = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row
'check untuk sebuah kode
If Trim(Me.tnama.Value) = "" Then
Me.tnama.SetFocus
MsgBox "Isi Data Terlebih Dahulu"
Exit Sub
End If
'copy data ke database
ws.Cells(lilik, 1).Value = Me.tnama.Value
ws.Cells(lilik, 2).Value = Me.tgllhr.Value
ws.Cells(lilik, 3).Value = Me.talamat.Value
ws.Cells(lilik, 4).Value = Me.tagama.Value
ws.Cells(lilik, 5).Value = Me.tjenkel.Value
ws.Cells(lilik, 6).Value = Me.thp.Value
ws.Cells(lilik, 7).Value = Me.tjurusan.Value
'clear data
Me.tnama.Value = ""
Me.tgllhr.Value = ""
Me.talamat.Value = ""
Me.tagama.Value = ""
Me.tjenkel.Value= ""
Me.thp.Value = ""
Me.tjurusan.Value = ""
Me.tnama.SetFocus
End Sub
· Lalu Save
· Klik close pada pojok kanan atas
7. Membuat tombol Klik pada lembar kerja
· Pilih Insert pada menu developer > pilih tombol Button dengan cara di drag and drop
· Letakan pada lembar kerja
· Akan muncul kotak dialog macro name
· Tulis atau pilih dengan ninda > klik OK
. Lalu simpan dan jalankan
Selamat mencoba dan moga berhasil
kurang lebih hasilnya seperti gambar berikut :
Selanjutnya blok pada sel B7 sampai sel E7 kemudian klik kanan pilih Paste special pilih Values, perhatikan gambar berikut :
Dan hasilnya seperti gambar berikut :
