Hitam Putih: April 2017

record macro

April 24, 2017

Tutorial Record Macro

1.Ketikkan data yang akan digunakan dengan cara ketik manual. Seperti contoh dibawah:

2.Mengolah data awal agar formatnya mirip dengan format akhir yaitu dengan men-TRANSPOSE data.

Daftar pelajaran yang semula bagian baris atas diubah menjadi kolom paling kiri, sedangkan kolom nama yang tadinya berada pada kolom kiri diubah menjadi baris atas.

Cara men-TRANSPOSE:

Copy bagian yang penting saja (mata pelajaran dan nama siswa)
Tempatkan pointer pada cell dimana data tersebut akan di letakkan.
Klik kanan pada cell tadi pada pilih Transpose pada Paste Option.

3. Berikutnya kita ubah mata pelajaran yg awalnya vertikal menjadi mendatar dengan menonaktifkan rotate text up

4.Menghapus kolom dan baris yang tidak diperlukan yaitu kolom A, jangan lupa untuk mengingat urutan mata pelajaran

Sisipkan 2 baris kosong dibawah garis nama untuk judul kolom tabel.

Beri sebuah jarak 1 columns untuk membedakan semester 3 dan 4

Oh ya sedikit trik terkait fungsi iterasi yang akan kita gunakan, tambahakan pada ujung sebelah kanan kolom akhir (kolom U) tulisan apa saja misalnya stop, agar semua data terproses, nanti kalau sudah beres boleh hapus kolom akhir ini.

5.Tempatkan Active cell pada B1. Klik Use Relative References ( Pada Menu View – Tab Macros- klik Use Relatif Preferences)

6.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 menjalankan macro tinggal menggunakan shorcut tersebut.

7.Membuat satu tabel secara manual (untuk data satu siswa saja), ubahlah seperti format tabel yang kita inginkan diawal tadi. Caranya sisipkan kolom sebelah kanan siswa pertama (cell B1) sebanyak yang diperlukan (dalam contoh ini sisipkan sebanyak 8 kolom), masukkan data setiap menyisipkan 1 kolom.

8.Lakukan pekerjaan secara manual. Edit tabel sesuai kebutuhan dengan menambahkan Tulisan pada beberapa cell seperti No, Mata Pelajaran, Semester, memindah kolom tabel, memformat garis batas (border), memberikan warna cell, menulis rumus perhitungan tertentu. Jika semua sudah selesai format tabel seperti yang diharapkan, letakkan pointer pada cell pada nama siswa diurutan ke-3 .Selesai, Klik Stop recording

Demikian tutorial record macro terimakasih~

Excel

tutorial Makro data sederhana

April 24, 2017

1. Buka Microsoft Excel

2.ganti nama yg asalnya Sheet1 menjadi “PARTSDATA”

3.Kemudian kita simpan file sebagai excel makro [Save As] > [Excel Macro Enabled Workbook] ketik nama file disini saya beri nama file “data barang”

4.Langkah berikutnya membuat Macro untuk file tersebut, adapun langkah-langkah pembuatan macro sebagai berikut :
-Pada worksheet pilih menu [View] > [Macros] > [View Macros]

Kemudian isikan macro name “FORM” klik create

5. kemudian ALT+F11 untuk membuka VBA kemudian pilih [Insert] > [User Form

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

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

7.-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 (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 “Isi dulu gaes!”
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

Demikian tutorial dari saya dan saya ucapkan terima kasih~

Visual Basic

Tutorial VBA

April 22, 2017

Kali ini saya akan membagikan tutorial vba :
1.Membuka lembar kerja baru di Microsoft Excel,kemudian aktifkan VBA editor dengan menekan ALT+F11, kemudian klik menu Insert – klik UserForm

2 2.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 :

3. Membuat TextBox

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

Ganti propertis name pada Textbox menjadi seperti berikut ini:

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    TXTThnLahirAyah

Textbox15 ganti dengan    TXTPekAyah

Textbox16 ganti dengan    TXTPengAyah

Textbox17 ganti dengan    TXTAlamatOrtu

4.Membuat Combo Box untuk Jenis Kelamin, Pendidikan Ibu, dan Pendidikan Ayah klik ComboBox pada Toolbox, atur posisi ComboBox seperti berikut:

Ganti properties name menjadi seperti berikut:
ComboBox1 ganti dengan CBO CBOKelamin
ComboBox2 ganti dengan CBO CBOPendidikanIbu
ComboBox3 ganti dengan CBO CBOPendidikanAyah

5.Membuat CommandButton

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

1 6.Membuat script VBA,klik menu View pada Menu Bar dan klik Code

s

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

Dilanjutkan dengan membuat script untuk simpan data siswa

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

7.Membuat sebuah script VBA untuk “Close” pada command button, ketikkan script VBA berikut:

Private Sub CMDClose_Click()
Unload Me
End Sub

8. 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

9.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

10.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.

Excel

Penggunaan Hlookup dan Vlookup (tugas aplikom 3)

April 17, 2017

Pada postingan kali saya akan menjelaskan cara penggunaan formula VLOOKUP dan HLOOKUP pada microsoft excel. Vlookup dan Hlookup merupakan bagian dari fungsi Lookup. Lookup digunakan untuk mencari nilai pada baris atau kolom Tertentu.

Vlookup digunakan untuk mencari nilai dalam bentuk vertikal, sesuai dengan awalan huruf V yang merupakan singkatan dari Vertikal/tegak Lurus. Sedangkan Hlookup yang berawal Huruf H digunakan untuk mencari nilai dalam bentuk baris /horizontal.

Rumusnya =VLOOKUP(lookup_value;table_array;col_index_num;[range_lookup])

➤ Lookup_value : nilai yang dijadikan acuan
➤ Table_array : tabel sumber data
➤ Col_index_num : nomor kolom tempat data yang ingin dimunculkan dari tabel

Hlookup digunakan untuk menentukan suatu nilai tertentu berdasarkan kondisi dimana data diambil dari tabel sumber secara horizontal.

Rumusnya =HLOOKUP(lookup_value;table_array;row_index_num;[range_lookup])

Lookup_value : nilai yang dijadikan acuan

Table_array : tabel sumber data

Row_index_num: nomor baris tempat data yang ingin dimunculkan dari tabel.

Sebagai contoh, saya akan menggunakan table berikut

dengan referensi gaji sebagai berikut:

berikut langkah-langkahnya:

1. Syntax pertama lookup_value

Syntax lookup_value digunakan untuk menjadikan suatu range cell menjadi value yang kita inginkan.Sebagai contoh, kita ambil lookup_value nya pada range cell D6 , karena kita akan mencari nilai gaji pada tabel keseluruhannya. Nilai acuan atau lookup_value harus terdapat pada table_array. Oleh karena itu kita ambil range cell B5 yaitu kolom golongan yang membedakan besarnya jumlah gaji pokok.

2. Syntax kedua yaitu table_array

Table_array adalah tabel yang kita jadikan acuan untuk mengisi tabel gaji tersebut, kita cukup

membloknya saja untuk memasukkannya ke dalam formula setelah lookup_value.

Untuk table_array, kita harus meng-absolutkan range/table yang kita jadikan acuan dengan

menekan tombol fungsi F4. Agar nilai nya tidak berubah saat dipindahkan.

3. Syntax ketiga yaitu col_index_num

Col_index_number, menunjukkan data kolom keberapa pada table array yang akan kita ambil, berdarsarkan gambar daftar tabel gaji berikut daftarnya

untuk golongan: kolom 1

Gaji pokok : kolom 2

tunjangan : kolom 3

transport : kolom 4

4.[range_lookup]

Lalu ada range_lookup, hanya ada dua opsi dalam pengisian range_lookup ini, yaitu

TRUE atau FALSE. Jika kita menuliskan TRUE maka lookup_value yang kita cari akan

mencari nilai yang mendekati ataupun sama dengan lookup_value nya pada

table_array. Sedangkan untuk FALSE, kita akan mencari lookup_value yang nilainya

benar benar sama dengan yang ada pada table_array.

demikian tutorial sederhana dari saya..

ingat hardwork never betrays results

record macro

tutorial Makro data sederhana

Tutorial VBA

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

Penggunaan Hlookup dan Vlookup (tugas aplikom 3)

2. Syntax kedua yaitu table_array

Time

Label

Blog Archive

About Me

Most Watch

Follower