Cara Membuat Aplikasi Input Data Mahasiswa dengan Macro

Cara Membuat Aplikasi Input Data Mahasiswa dengan Macro

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