CARA MEMBUAT VBA INPUT DATA BARANG MENGGUNAKAN MACRO PADA MS.EXCELL

Assalamualaikum WR WB

Halo gan !!
Kali ini saya kembali membahas tentang tutorial membuat VBA atau (Visual Basic Application)
nah kali ini saya mencontohkan tentang pembuatan applikasi input data Barang.

Langsung saja CEKIDOT !!

1. Membuat Macro

-Pada worksheet pilih menu [View] > [Macros] > [View Macros]

-Isikan macro name “FORM” klik create

-Klik kanan mouse pada VBA Project kemudian pilih [Insert] > [User Form]

-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”

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”

-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 

Teman- teman bisa langsung copy paste aja 

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

pengisian code pada tombol tutup 

Private Sub CMDTTP_Click()
Unload Me
End Sub

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

Mengisi code pada module klik kanan module pilih view code dan isikan kode dibawah ini :

Sub FORM()
UserForm1.Show
End Sub

Nah sekian tadi tutorial tentang membuat VBA input data Barang

Jangan lupa untuk save file nya dengan option Macro-Enable.

Sekian dari saya, semoga bermanfaat

Wassalamualaikum WR WB

Link : Download File

Read More

CARA MEMBUAT RECORD MACRO PADA MS.EXCELL

Asslamualaikum WR WB

Halo gan !!
Khozin Fuadi kembali lagi nih
Kali ini saya akan kembali membahas tentang Macro pada MS.Excell
fungsi macro itu sendiri bukan hanya untuk membuat VBA seperti yang kita bahas pada postingan sebelumnya. Tetapi juga untuk membuat suatu record yang dapat membantu mengerjakan suatu pekerjaan berulang-ulang:). Benar bahwa pekerjaan yang kita lakukan berulang-ulang dikarenakan data yang mesti kita olah sangat banyak, tentu membosankan dan melelahkan. Hal ini juga sangat memerlukan banyak waktu. Dengan record macro kita bisa merekam proses kerja kemudian menerapkannya untuk hal serupa sehingga dalam waktu yang sangat-sangat singkat pekerjaan olah data bisa diselesaikan.

Langsung saja saya kasih tau ni cara membuat Record Macro.

Cekiidoooott !!!

1. Membuat data yang mau diolah secara keseluruhan.

buatlah data seperti dibawah, saya contohkan membuat data nilai semester.

nah dari data diatas akan dibuat menjadi seperti dibawah ini :

caranya ada di tahap selanjutnyaa .

2. Menyederhanakan data sumber

Pekerjaan yang dapat kita lakukan adalah mengolah data awal tersebut salah satunya dengan men-TRANSPOSE data agar formatnya mirip dengan format akhir. Ini adalah salah satu langkah alternatif bagi orang awam. Dalam hal ini daftar mata pelajaran semula berada di bagian baris atas diubah menjadi bagian kolom paling kiri, sedangkan kolom nama yang tadinya berada pada kolom kiri diubah menjadi bagian baris di atas.

Cara men-TRANSPOSE:

1.    Kopi bagian yang penting saja (dalam contoh ini saya hanya mengkopi range mata pelajaran dan nama siswa).

2.    Tempatkan pointer pada cell dimana data tersebut akan di letakkan.

3.    Klik kanan pada cell tadi pada pilih Transpose pada Paste Option.

3. membuat MACRO (merekam LANGKAH KERJA  dengan RECORD MACRO)

1.    Tempatkan Active cell pada A1. Pastikan menge-klik Use Relative References (pada tab menu View -> tab Macros -> klik spin (segitiga kecil) pilih Use Relative References.

2.    Kemudian klik Record Macro… kalau kita sudah siap melakukannya, maka akan muncul popup menu isian, isikan seperlunya, jangan lupa memberi nama macro dan membuat shortcut ctrl+…(saya contohkan Ctrl+w). Ini bertujuan jika hendak menjalan macro kita tinggal menggunakan shorcut tersebut.

3.    Berikutnya adalah membuat satu tabel secara manual (untuk data satu siswa saja), ubahlah seperti format tabel jadi (seperti ilustrasi 1 di atas). Caranya sisipkan kolom sebelah kanan siswa pertama (cell A1) sebanyak yang diperlukan (dalam contoh ini saya sisipkan sebanyak 8 kolom).

4.    Lakukan pekerjaan secara manual: bisa menambahkan Tulisan pada beberapa cell seperti No, Mata Pelajaran, Semester 3, 4, 5 dll, memindah kolom tabel, memformat garis batas (border), memberikan warna cell, menulis rumus perhitungan tertentu dll sesuai format tabel yang kita harapkan. Jika semua sudah selesai format tabel seperti yang diharapkan, letakkan pointer pada cell pada nama siswa diurutan ke-3 . Selesai…. Silahkan Klik Stop recording… toolbar-nya ada pada bagian saat kita Record Macro… atau dibagian kiri bawah halaman lembar kerja Excel kita.

5.    Sampai disini kita bisa mencoba kerja macro untuk tabel siswa ke dua, caranya tempatkan pointer pada cell nama siswa ke-3; Tekan shorcut key Ctrl+w seperti yang anda tentukan sebelumnya (saat akan me-record macro).

6.    Jika hasilnya persis tabel yang kita buat namun berisi data siswa ke-2 maka itu berarti pekerjaan kita telah benar.

7.    Nah kalau siswanya banyak sekali anggaplah 2000 siswa maka kita perlu menekan Ctrl+w tadi sebanyak sisa-nya yang belum dibuatkan tabel. Caranya klik menu macro -> view macro – klik edit dan tambahkan baris (setelah baris komentar yg ditandai awal dengan ‘…..) ketikkan:

Do Until Activecell.Value=""

dan pada bagian bawah sebelum end sub tulisan

Loop 

<code diatas> diganti dengan copy code dari atas sampai end.

Selesaii !! itulah tadi tutorial tentang membuat record macro

sekian dari saya

semoga bermanfaat

Wasslamualaikum WR WB

Link File  Download

Read More

CARA MEMBUAT APLIKASI BERBASIS VISUAL (VBA) INPUT DATA SISWA DENGAN MACRO PADA MS.EXCELL

Assalamualaikum WR WB

Saya Khozin Fuadi kembali lagi untuk berbagi ilmu nih ! Kali ini saya akan membahas tentang Macro Pada MS.Excell.

Apa itu Macro ? Macro adalah salah satu fasilitas yang ada pada MS.Excell yang memungkinkan penggunanya untuk membuat sebuah VBA (Visual Basic for Applications) untuk membuat suatu aplikasi yang dapat memudahkan proses imput data. Pada contoh kali ini saya akan membuat suatu tutorial “Cara membuat aplikasi imput data siswa” menggunakan VBA/Macro pada MS.Excell.

Langsung saja ini dia tahapan-tahapan yang harus diikuti :

1. Membuka VBA

Setelah membuka MS.Excell langsung saja tekan kombinasi pada keyboard yaitu tombol ALT + F11. Lalu akan muncul tampilan seperti ini.

 2. Membuat suatu UserForm

Membuat userform cukup dengan membuka menu insert lalu klik UserForm. UserForm adalah basis kita untuk membuat VBAnya seperti kanvas untuk melukis. Kita dapat mengeditnya sesuai keinginan.

3 3.       Membuat Label

Cara membuat label adalah dengan menggunakan Toolbox yang ada disebelah Userform kita.

Lalu ganti caption pada label dengan mengklik tulisan “label 1” sekali dan buatlah label lagi sampai terbentuk menjadi seperti ini :

4.      4.  Membuat TextBox

Selanjutnya ialah membuat textbox sebagai field yang akan diisikan pada saat proses entry datanya. Untuk membuat textbox bisa mengklik pada toolbox dan menyeret pada userform. Jangan lupa mengganti nama textbox sesuai label yang diisi misalnya untuk NIS dapat diganti dengan “TXTNis”.

Lalu buat lah textbox sesuai yang diinginkan

Dan gantilah setiap nama dari textbox susai dengan Label yang telah dibuat. Hal ini juga bertujuan untuk memudahkan membuat code pada userform.

Textbox1 ganti dengan    TXTNis
Textbox2 ganti dengan    TXTNama
Textbox3 ganti dengan    TXTTempatLahir
Textbox4 ganti dengan    TXTTglLahir
Textbox5 ganti dengan    TXTALamat
Textbox6 ganti dengan    TXTNISN
Textbox7 ganti dengan    TXTHP
Textbox8 ganti dengan    TXTSKHUN
Textbox9 ganti dengan    TXTIjasah
Textbox10 ganti dengan    TXTNamaIbu
Textbox11 ganti dengan    TXTThnLahirIbu
Textbox12 ganti dengan    TXTPekIbu
Textbox13 ganti dengan    TXTNamaAyah
Textbox14 ganti dengan    TXTThnAyah
Textbox15 ganti dengan    TXTPekAyah
Textbox16 ganti dengan    TXTPengAyah
Textbox17 ganti dengan    TXTAlamatOrtu

5.       5. Membuat ComboBox

ComboBox adalah suatu field pengisian data tetapi telah disediakan beberapa opsi atau pilihan yang tinggal kita pilih. Cara membuatnya tinggal mengklik combobox pada ToolBox dan menyeretnya ke userform. Pada contoh kali ini kita gunakan untuk memasukan data “Jenis Kelamin” dan “Pendidikan”.

Nah kalau sudah dibuat ganti nama combobox sesuai label
ComboBox1 ganti dengan CBO CBOKelamin
ComboBox2 ganti dengan CBO CBOPendidikanIbu
ComboBox3 ganti dengan CBO CBOPendidikanAyah

Hasil akhir dari UserFormnya kira-kira seperti ini

6.       6. Membuat CommandButton

CommandButton adalah tombol yang memberikan instruksi sesuai script yang dibuat.kita dapat membuat commandbutton melalui ToolBox dan menyeretnya ke userform.

Buatlah seperti gambar diatas dan ganti namanya menjadi "TBLSimpan", "TBLCariData", CMDClose".

7.       7. Membuat Script VBA

Nah pada tahap ini kita akan membuat script atau barisan bahasa pemograman yang berisi perintah untuk melakukan sesuatu.

Silahkan buka tampilan scriptnya dengan meng klik kanan pada userform dan klik view code. Akan tampil seperti berikut.

kemudian tuliskan script berikut untuk membuat initial pada UserForm

Private Sub UserForm_Initialize()

With CBOKelamin

    .AddItem "Laki-Laki"

    .AddItem "Perempuan"

End With

With CBOPendidikanIbu

    .AddItem "Tidak Sekolah"

    .AddItem "SD"

    .AddItem "SMP"

    .AddItem "SMA"

    .AddItem "D1"

    .AddItem "D2"

    .AddItem "D3"

    .AddItem "S1"

    .AddItem "S2"

    .AddItem "S3"

End With

With CBOPendidikanAyah

    .AddItem "Tidak Sekolah"

    .AddItem "SD"

    .AddItem "SMP"

    .AddItem "SMA"

    .AddItem "D1"

    .AddItem "D2"

    .AddItem "D3"

    .AddItem "S1"

    .AddItem "S2"

    .AddItem "S3"

End With

End Sub

Selanjutnya kita akan membuat sebuah script VBA untuk simpan data siswa silakan ketikkan script VBA nya di bawah ini

Private Sub TBLSimpan_Click()

Dim iRow As Long

Dim Ws As Worksheet

Set Ws = Worksheets("databasesiswa")

'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.TXTNis.Value) = "" Then

  Me.TXTNis.SetFocus

  MsgBox "Masukan NIS terlebih dahulu Kang.."

  Exit Sub

End If

'copy data ke database siswa

Ws.Cells(iRow, 1).Value = Range("X1").Value

Ws.Cells(iRow, 2).Value = Me.TXTNis.Value

Ws.Cells(iRow, 3).Value = Me.TXTNama.Value

Ws.Cells(iRow, 4).Value = Me.TXTTempatLahir.Value

Ws.Cells(iRow, 5).Value = Me.TXTTglLahir.Value

Ws.Cells(iRow, 6).Value = Me.CBOKelamin.Value

Ws.Cells(iRow, 7).Value = Me.TXTAlamat.Value

Ws.Cells(iRow, 8).Value = Me.TXTNISN.Value

Ws.Cells(iRow, 9).Value = Me.TXTHP.Value

Ws.Cells(iRow, 10).Value = Me.TXTSKHUN.Value

Ws.Cells(iRow, 11).Value = Me.TXTIjasah.Value

Ws.Cells(iRow, 12).Value = Me.TXTNamaIbu.Value

Ws.Cells(iRow, 13).Value = Me.TXTThnLahirIbu.Value

Ws.Cells(iRow, 14).Value = Me.TXTPekIbu.Value

Ws.Cells(iRow, 15).Value = Me.CBOPendidikanIbu.Value

Ws.Cells(iRow, 16).Value = Me.TXTNamaAyah.Value

Ws.Cells(iRow, 17).Value = Me.TXTThnAyah.Value

Ws.Cells(iRow, 18).Value = Me.TXTPekAyah.Value

Ws.Cells(iRow, 19).Value = Me.CBOPendidikanAyah.Value

Ws.Cells(iRow, 20).Value = Me.TXTPengAyah.Value

Ws.Cells(iRow, 21).Value = Me.TXTAlamat.Value

'clear data siswa

Me.TXTNis.Value = ""

Me.TXTNama.Value = ""

Me.TXTTempatLahir.Value = ""

Me.TXTTglLahir.Value = ""

Me.CBOKelamin.Value = ""

Me.TXTAlamat.Value = ""

Me.TXTNISN.Value = ""

Me.TXTHP.Value = ""

Me.TXTSKHUN.Value = ""

Me.TXTIjasah.Value = ""

Me.TXTNamaIbu.Value = ""

Me.TXTThnLahirIbu.Value = ""

Me.TXTPekIbu.Value = ""

Me.CBOPendidikanIbu.Value = ""

Me.TXTNamaAyah.Value = ""

Me.TXTThnAyah.Value = ""

Me.TXTPekAyah.Value = ""

Me.CBOPendidikanAyah.Value = ""

Me.TXTPengAyah.Value = ""

Me.TXTAlamatOrtu.Value = ""

Me.TXTNis.SetFocus

'Simpan data

Application.ActiveWorkbook.Save

End Sub

Membuat perintah CLOSE silakan ketikkan script nya dibawah ini dengan cara double klik tombol CLOSE

Private Sub CMDClose_Click()

Unload Me

End Sub

Membuat sebuah validasi data untuk textbox yang berisi data angka agar data yang diinput hanya berupa data angka buka hurfu. Apabila data yang dimasukan pada textbox bukan berupa data angka maka secara otomatis akan menampilkan pesan error dan ini dia script nya

Private Sub HanyaAngka()

    If TypeName(Me.ActiveControl) = "TextBox" Then

        With Me.ActiveControl

            If Not IsNumeric(.Value) And .Value <> vbNullString Then

                MsgBox "Maaf, Masukan data angka saja"

                .Value = vbNullString

            End If

        End With

    End If

End Sub

Anda bisa menggunakan variasi apabila ketika textbox aktif atau dipilih maka warna akan berubah. Ini dia script nya. Script ini juga akan menghasilkan perintah error yang merupakan pemanggilan prosedur dari tahap  diatas.

Private Sub TXTNISN_Change()

HanyaAngka

End Sub

Private Sub TXTHP_Change()

HanyaAngka

End Sub

Private Sub txtnis_Enter()

TXTNis.BackColor = &H80000005

End Sub

Private Sub txtnis_Exit(ByVal Cancel As MSForms.ReturnBoolean)

HanyaAngka

TXTNis.BackColor = &HE0E0E0

End Sub

Private Sub txtnama_enter()

TXTNama.BackColor = &H80000005

End Sub

Private Sub txtnama_Exit(ByVal Cancel As MSForms.ReturnBoolean)

TXTNama.BackColor = &HE0E0E0

End Sub

Private Sub txttempatlahir_enter()

TXTTempatLahir.BackColor = &H80000005

End Sub

Private Sub txttempatlahir_Exit(ByVal Cancel As MSForms.ReturnBoolean)

TXTTempatLahir.BackColor = &HE0E0E0

End Sub

Private Sub txttgllahir_enter()

TXTTglLahir.BackColor = &H80000005

End Sub

Private Sub txttgllahir_Exit(ByVal Cancel As MSForms.ReturnBoolean)

TXTTglLahir.BackColor = &HE0E0E0

End Sub

Private Sub txtalamat_Enter()

TXTAlamat.BackColor = &H80000005

End Sub

Private Sub txtalamat_Exit(ByVal Cancel As MSForms.ReturnBoolean)

TXTAlamat.BackColor = &HE0E0E0

End Sub

Private Sub cbokelamin_Enter()

CBOKelamin.BackColor = &H80000005

End Sub

Private Sub cbokelamin_Exit(ByVal Cancel As MSForms.ReturnBoolean)

CBOKelamin.BackColor = &HE0E0E0

End Sub

Private Sub txtnisn_Enter()

TXTNISN.BackColor = &H80000005

End Sub

Private Sub txtnisn_Exit(ByVal Cancel As MSForms.ReturnBoolean)

TXTNISN.BackColor = &HE0E0E0

End Sub

Private Sub txthp_Enter()

TXTHP.BackColor = &H80000005

End Sub

Private Sub txthp_Exit(ByVal Cancel As MSForms.ReturnBoolean)

TXTHP.BackColor = &HE0E0E0

End Sub

Private Sub txtskhun_Enter()

TXTSKHUN.BackColor = &H80000005

End Sub

Private Sub txtskhun_Exit(ByVal Cancel As MSForms.ReturnBoolean)

TXTSKHUN.BackColor = &HE0E0E0

End Sub

Private Sub txtijasah_Enter()

TXTIjasah.BackColor = &H80000005

End Sub

Private Sub txtijasah_Exit(ByVal Cancel As MSForms.ReturnBoolean)

TXTIjasah.BackColor = &HE0E0E0

End Sub

Private Sub txtnamaibu_Enter()

TXTNamaIbu.BackColor = &H80000005

End Sub

Private Sub txtnamaibu_Exit(ByVal Cancel As MSForms.ReturnBoolean)

TXTNamaIbu.BackColor = &HE0E0E0

End Sub

Private Sub txtthnlahiribu_Enter()

TXTThnLahirIbu.BackColor = &H80000005

End Sub

Private Sub txtthnlahiribu_Exit(ByVal Cancel As MSForms.ReturnBoolean)

TXTThnLahirIbu.BackColor = &HE0E0E0

End Sub

Private Sub txtpekibu_Enter()

TXTPekIbu.BackColor = &H80000005

End Sub

Private Sub txtpekibu_Exit(ByVal Cancel As MSForms.ReturnBoolean)

TXTPekIbu.BackColor = &HE0E0E0

End Sub

Private Sub cbopendidikanibu_Enter()

CBOPendidikanIbu.BackColor = &H80000005

End Sub

Private Sub cbopendidikanibu_Exit(ByVal Cancel As MSForms.ReturnBoolean)

CBOPendidikanIbu.BackColor = &HE0E0E0

End Sub

Private Sub txtnamaayah_Enter()

TXTNamaAyah.BackColor = &H80000005

End Sub

Private Sub txtnamaayah_Exit(ByVal Cancel As MSForms.ReturnBoolean)

TXTNamaAyah.BackColor = &HE0E0E0

End Sub

Private Sub txtthnayah_Enter()

TXTThnAyah.BackColor = &H80000005

End Sub

Private Sub txtthnayah_Exit(ByVal Cancel As MSForms.ReturnBoolean)

TXTThnAyah.BackColor = &HE0E0E0

End Sub

Private Sub txtpekayah_Enter()

TXTPekAyah.BackColor = &H80000005

End Sub

Private Sub txtpekayah_Exit(ByVal Cancel As MSForms.ReturnBoolean)

TXTPekAyah.BackColor = &HE0E0E0

End Sub

Private Sub cbopendidikanayah_Enter()

CBOPendidikanAyah.BackColor = &H80000005

End Sub

Private Sub cbopendidikanayah_Exit(ByVal Cancel As MSForms.ReturnBoolean)

CBOPendidikanAyah.BackColor = &HE0E0E0

End Sub

Private Sub txtpengayah_Enter()

TXTPengAyah.BackColor = &H80000005

End Sub

Private Sub txtpengayah_Exit(ByVal Cancel As MSForms.ReturnBoolean)

TXTPengAyah.BackColor = &HE0E0E0

End Sub

Private Sub txtalamatortu_Enter()

TXTAlamatOrtu.BackColor = &H80000005

End Sub

Private Sub txtalamatortu_Exit(ByVal Cancel As MSForms.ReturnBoolean)

TXTAlamatOrtu.BackColor = &HE0E0E0

End Sub

8.       Membuat WorkSheet sebagai penyimpan data

Untuk tahap terakhir silakan buat sebuah Worksheet untuk menyimpan database yang telah disimpan apabila menekan tombol simpan data maka data siswa akan tersimpan pada sheet yang telah ditentukan misalnya saya ganti sheet untuk menyimpan database dengan nama "DatabaseSiswa"

Selesai !!

Sudah selesai tahapan pembuatan Visual Basic Application dengan menggunakan Macro pada MS.Excell

Silahkan klik RUN untuk mencoba menggunaka VBA nya.

Jangan lupa save file Macronya dengan mengganti formatnya menjadi seperti ini

Agar pada saat kita ingin membuka lagi dapat tertera juga macro yang kita buat.

Sekian dari saya Khozin Fuadi

Semoga Bermanfaat

Untuk Download Filenya :

File EXCELL

Tutorial

Wassalamualaikaum WR WB       

Read More