Aplikasi Input Data Siswa Menggunakan Macro Excel

Aplikasi Excel Form Input Data Siswa 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


Langkah yang harus dilakukan untuk membuat Aplikasi Input Data Mahasiswa dengan Form ini adalah

1. Buat tabel data mahasiswa yang terdiri dari: Nama (cells A2), TmptTgl/lhr (cells B2), Alamat (Cells C2), Jns Kelamin (Cells D2), Agama (Cells E2), No Hp(Cells F2), dan Jurusan (cells G2).

2. Buka VB Editor yang ada di menu Developer  dengan cara klik Developer kemudian klik VB(visual Basic).setelah itu klik insert Userform.
   *Gunakan tombol label untuk membuat label seperti : nama, kelas , alamat atau lain2 yang anda butuhkan
   *Gunakan tombol texsbox untuk kolom pengisian dari label yang kita buat
   *Gunakan tombol commandbutton untul membuat TOMBOL SIMPAN DAN TOMBOL KELUAR
3. Dengan menggunakan Toolbox seperti gambar di bawah Buat Form input data mahasiswa seperti terlihat gambar di bawah ini

4. Langkah berikutnya tambahkan script di bawah ini  pada Tombol Simpan/Tambah.

Private Sub simpan_Click()

Dim aziz As Long

Dim ws As Worksheet

Set ws = Worksheets("MI")

'menemukan baris kosong pada database

aziz = ws.Cells(Rows.Count, 1) _

  .End(xlUp).Offset(1, 0).Row

'check untuk sebuah kode

If Trim(Me.t1.Value) = "" Then

  Me.t1.SetFocus

  MsgBox "Isi Data Terlebih Dahulu"

  Exit Sub

End If

'copy data ke database

ws.Cells(aziz, 1).Value = Me.t1.Value

ws.Cells(aziz, 2).Value = Me.t2.Value

ws.Cells(aziz, 3).Value = Me.t3.Value

ws.Cells(aziz, 4).Value = Me.t4.Value

ws.Cells(aziz, 5).Value = Me.t5.Value

ws.Cells(aziz, 6).Value = Me.t6.Value

ws.Cells(aziz, 7).Value = Me.t7.Value

'clear data

Me.t1.Value = ""

Me.t2.Value = ""

Me.t3.Value = ""

Me.t4.Value = ""

Me.t5.Value = ""

Me.t6.Value = ""

Me.t7.Value = ""

Me.t1.SetFocus

End Sub

5. Langkah berikutnya tambahkan script di bawah ini  pada Tombol Keluar/Tambah.

Private Sub keluar_Click()

Unload Me

End Sub

6. Langkah berikutnya tambahkan script di bawah ini  pada Form1.

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)If CloseMode = vbFormControlMenu Then

Cancel = True

MsgBox "Apakah Yakin Anda Mau Keluar Dari Program Ini, Tekan Tombol KELUAR!"

  End If

End Sub

7.Agar form yang kita buat bisa tampil pada exel maka di perlukan kode untuk pemanggil dengan kode seperti berikut


Private Sub UserForm_Click()
form1.Show
End Sub

selanjutnya membuat tombol pemanggil pada exel , pilih insert shapes pilih bentuk yang anda sukai  kemudian klik kanan pilih assign macro pilih nama form yang kita buat tadi kemudian klik OK.

8.Simpan dan Jalankan Macro. Selesai

Assalamualaikum wr.wb
Bagi temen-temen yang sering menggunakan program pengolahan data dari MS.WINDOWS yaitu MS.Excel tentu tidak jauh dari mengisi data-data ke dalam work sheet (lembar kerja) pada kolom dan baris. Untuk mempermudah dalam pengisian apalagi jika datanya banyak alangkah lebih baik kita menggunakan form. Menggunakan form akan lebih simple karena ente tidak harus selalu kembali ke kolom awal jika baris pada kolom terakhir sudah selesai di input. Keuntungan lain adalah adanya peringatan atau validasi tertentu yang akan sangat membantu bagi user.
Pada contoh kali ini ane akan share cara membuat form menggunakan ms.excel dengan kasus transaksi penjualan barang untuk lebih jelasnya silahkan lihat gambar di bawah ini masbro.



Source Code:

Private Sub ComboBox1_Click()
If ComboBox1.ListIndex = 0 Then
TextBox5.Text = 3000000
ElseIf ComboBox1.ListIndex = 1 Then
TextBox5.Text = 5000000
ElseIf ComboBox1.ListIndex = 2 Then
TextBox5.Text = 2500000
ElseIf ComboBox1.ListIndex = 3 Then
TextBox5.Text = 1000000
ElseIf ComboBox1.ListIndex = 4 Thenv TextBox5.Text = 1500000
ElseIf ComboBox1.ListIndex = 5 Then
TextBox5.Text = 1300000
ElseIf ComboBox1.ListIndex = 6 Then
TextBox5.Text = 500000
End If
End Sub

Private Sub CommandButton1_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("data")

'menemukan baris kosong pada database
iRow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row

'cek untuk sebuah kode If Trim(Me.TextBox1.Value) = "" Then
Me.TextBox1.SetFocus
MsgBox "Masukan Tanggal Transaksi"
Exit Sub
End If

'copy ke database
ws.Cells(iRow, 1).Value = Me.TextBox1.Value
ws.Cells(iRow, 2).Value = Me.TextBox2.Value
ws.Cells(iRow, 3).Value = Me.ComboBox1.Value
ws.Cells(iRow, 4).Value = Me.TextBox5.Value
ws.Cells(iRow, 5).Value = Me.TextBox6.Value
ws.Cells(iRow, 6).Value = Me.TextBox7.Value

'Clear Data
Me.TextBox2.Value = ""
Me.ComboBox1.Value = ""
Me.TextBox5.Value = ""
Me.TextBox6.Value = ""
Me.TextBox7.Value = ""
Me.TextBox2.SetFocus
End Sub

Private Sub CommandButton2_Click()
Unload Me
End Sub

Private Sub CommandButton3_Click()
TextBox7.Text = TextBox5.Text * TextBox6.Text
End Sub

Private Sub TextBox5_Change()
TextBox5.Value = Format(TextBox5, "###,##0.00")
End Sub

Private Sub TextBox7_Change()
TextBox7.Value = Format(TextBox7, "###,##0.00")
End Sub

Private Sub UserForm_Activate()
Me.TextBox1.Value = Date
Me.ComboBox1.AddItem "LCD TV 32 INCH"
Me.ComboBox1.AddItem "LCD TV 49 INCH"
Me.ComboBox1.AddItem "LEMARI ES 2 PINTU"
Me.ComboBox1.AddItem "RAK PIRING"
Me.ComboBox1.AddItem "MESIN CUCI"
Me.ComboBox1.AddItem "VACUM CLEANER"
Me.ComboBox1.AddItem "DVD"
End Sub

Aplikasi Excel Form Input Data Siswa dengan Macro

Posted by syamsudin bonlap on 00.04

Membuat Macro Excel dengan menggunakan bahasa pemrograman VB sangat mudah, disini saya akan contohkan bagaimana menginput (memasukan) data siswa ke beberapa cells di excel dengan menggunakan "Form input data siswa". Ya setidaknya kelihatan sedikit keren hehe.... Lihat Sreenshoot Aplikasi di bawah ini


Langkah yang harus dilakukan untuk membuat Aplikasi Data Siswa dengan Form ini adalah

1. Buat tabel data siswa yang terdiri dari NIS (cells A2), Nama (cells B2), Jenis Kelamin (Cells C2), dan Kelas (cells D2)

2. Buka VB Editor yang ada di menu Developer. Anda bisa lihat bagaimana memasukan script vb di excel

3. Copy script di bawah ini pada module1

Sub FORM()
UserForm1.Show
Sheets("sheet1").Select
End Sub

Private Sub bukasheet()
Sheets("DATABASE").Select
UserForm1.Show
End Sub

4. Dengan menggunakan Toolbox seperti gambar di bawah Buat Form input data siswa seperti terlihat gambar di bawah ini

5. Langkah berikutnya tambahkan script di bawah ini

Private Sub CMDTMBH_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("DATABASE")

'menemukan baris kosong pada database siswa
iRow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row

'check untuk sebuah nis
If Trim(Me.tnis.Value) = "" Then
Me.tnis.SetFocus
MsgBox "Masukan NIS terlebih dahulu"
Exit Sub
End If

'copy data ke database siswa
ws.Cells(iRow, 1).Value = Me.tnis.Value
ws.Cells(iRow, 2).Value = Me.tnama.Value
ws.Cells(iRow, 3).Value = Me.tkelamin.Value
ws.Cells(iRow, 4).Value = Me.tkelas.Value

'clear data siswa
Me.tnis.Value = ""
Me.tnama.Value = ""
Me.tkelamin.Value = ""
Me.tkelas.Value = ""
Me.tnis.SetFocus

End Sub

Private Sub CMDTTP_Click()
Unload Me
End Subhttp://www.blogger.com/img/blank.gif

Private Sub UserForm_QueryClose(Cancel As Integer, _
CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
Cancel = True
MsgBox "Gunakan Tombol TUTUP PROGRAM untuk Keluar"http://www.blogger.com/img/blank.gif
End If
End Sub

6. Simpan dan Jalankan macro. Lihat cara menjalankan macro di Ms. Excel
7. Selesai

MEMBUAT FORM ISIAN DATA SEDERHANA DI EXCEL

Januari 8, 2011 by ndienross | 96 Comments
Terkadang kita merasa jenuh mengisi table di excel, untuk membuang kejenuhan mengisi data saya coba iseng iseng membuat form sederhana untuk sekedar membuang kejenuhan…..
Selanjutnya anda bias mengembangkan sesuai dengan kebutuhan…….
Adapun langkah-langkah pembuatan form sebagai berikut :
1. Buka file excel 2007
2. Double Klik di nama worksheet lalu ganti nama yg asalnya Sheet1 menjadi “PARTSDATA” (ini mah klo saya, klo anda terserah tapi perlu diingat namanya untuk pembuatan code)
3. Pada Row 1 kolom kita buat nama heading untuk tabelnya seperti tampak pada gambar dibawah ini :

4. Kemudian kita simpan file sebagai excel makro….klik file save as pilih Excel Macro Enabled Workbook….ketik nama file disini saya beri nama file “data barang”
Langkah berikutnya membuat Macro untuk file tersebut, adapun langkah-langkah pembuatan macro sebagai berikut :
1. Pada worksheet pilih menu view klik tab Macros pilih view macros :

2. Isikan macro name : “FORM” klik create :

3. Klik kanan mouse pada VBA Project
4. Pilih insert
5. Pilih user form :


Langkah selanjutnya adalah design form dengan Control yang akan kita gunakan adalah : Control Label, Textbox dan Command Button seperti tampak pada gambar berikut :

Langkah selanjutnya adalah member 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”

TextBox1 Name diganti dengan “tkode”
TextBox2 Name diganti dengan “tnama”
TextBox3 Name diganti dengan “tsatuan”
TextBox4 Name diganti dengan “tharga”

command button1 Caption diganti dengan “TAMBAH”
command button1 Name diganti dengan “CMDTMBH”
command button2 Caption diganti dengan “TUTUP”
command button2 Name diganti dengan “CMDTTP”

atur sedemikian rupa hingga tampak seperti gambar dibawah ini

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


3. Masukan kode dibawah ini (biar gak cape copy paste saja code dibawah ini):
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
Sekarang kita kembali ke worksheet kmudian kita akan membuat tombol untuk mengaktifkan form…terserah dmana saja menyimpannya…

Buat rectangle seperti digambar tersebut untuk memasukkan kode klik kanan mouse pada rectangle tersebut lalu pilih “Assign Macro” lalu pilih form…..selesai sudah…jika benar sesuai urutan maka akan tampak seperti ini…..jangan lupa simpen ya….selamat mencoba….

contoh file klik disini

Penomoran otomatis

Biasanya didalam suatu program aplikasi yang berbasis bisnis mengharuskan seorang programer membuat penomoran otomatis, hal ini didukung karena dengan adanya nomor otomatis tersebut petugas data entry tidak perlu mengetik lagi dan al hasil pekerjaan dari operator akan semakin singkat, hemat dan efisien. penomoran otomatis juga dimaksudkan untuk field yang unix atau berbeda dengan yang lain, maka diperlukan pembeda atau penomoran otomatis yang pada dasarkan tidak akan pernah sama karena terus bertambah.

Buat form baru dengan nama= no_otomatis, caption= penomoran otomatis

Buat satu buah data pada form, adapun propertise yang diganti adaalah:

• Databasename = (cari letak/path sebuah database yang sudah dibuat)
• Recordsetype = pilih yang 0- table
• Recordsource = pilih nama tabel

Buatlah satu textbox dengan nama = txtnomor dan text= dihapus
Buatlah satu Commandbutton dengan nama= cmdtambah dan caption=New

Buat Procedur atau methode tambah seperti berikut:

Sub tambah()
Dim urutan As String * 3
Dim hitung As Byte
With Me.data1.Recordset
If .RecordCount = 0 Then
urutan = "101"
Else
.MoveLast
hitung = Val(!nokamar) + 1
urutan = "1" & Right("00" & hitung, 2)
End If
txtnomor.text= urutan
End With
End Sub

Private Sub_cmdtambah_click()
me.tambah
endsub