Cara input data kedalam excel menggunakan macro - Mulai cepat: Memasukkan data di lembar kerja dalam Excel dengan macro. Membuat tabel dalam excel merupakan aktifitas dasar dalam pekerjaan, untuk mulai membuat tabel maka anda harus memahami pengertian kolom (COLUMN), baris (row), sel dan range

Kolom (COLUMN) dalam excel diwakili dengan huruf alfabet A, B, C dan seterusnya dengan posisi kolom adalah horizontal, makanya anda akan sering mendengar istilah kolom A, kolom B dan seterusnya. Jumlah kolom dalam excel adalah 16.384 kolom (A sampai XFD) , dan setiap versi excel mempunyai jumlah kolom yang berbeda beda

Baris (ROW) dalam excel diwakili dengan angka 1,2,3,4,5 dan seterusnya dengan posisi baris adalah vertikal, jumlah baris dalam excel versi 2007 keatas mencapai 1.048.576.

Sel dalam excel merupakan pertemuan antara kolom dan baris, misalkan sel A1, jadi artinya kolom A baris 1. Untuk melihat sel silahkan klik pada sel mana saja lalu lihat name box yang akan menunjukan alamat sel yang anda pilih

Range dalam excel merupakan nama gabungan antara beberapa kolom dan beberapa baris, atau bisa juga diartikan pertemuan beberapa kolom dan beberapa bars baris, misalnya sel A1 sampai sel D100 , jika digabungkan akan menjadi Row dengan penulisan Row A1:D100

Sebenarnya mengetahui pengertian Kolom, Baris, Sel, dan Range tidak bisa dikatakan penting tapi juga tidak bisa dikatakan tidak penting, karena selama ini admin juga tidak begitu memahami teori istilah iistilah yang digunakan dalam Microsoft excel.

Baiklah kita mulai artikel kali ini Cara input data kedalam excel menggunakan macro, karena menggunakan macro jadi kita tidak sepenuhnya berinterksi dengan worksheet (Kolom, Baris, Sel, dan Range), dan kita akan lebih banyak berinteraksi dengan jendela VBE (Visual Basic Editor) ssilahkan lihat rekomendasi artikel dibawah ini supaya anda bisa memulai belajar macro (VBA) dari awal

Baca : Dasar Dasar VBA

Baca : Entri data dengan macro (Versi lama dalam worksheet)

Cara input data kedalam excel menggunakan macro

Mengapa anda harus bisa melakukan input data kedalam excel menggunakan macro ? jika anda ingin mengetahui jawabanya maka anda harus mengetahui pengetahuan kelebihan kelebihan bekerja dengan macro dibanding harus bekerja dengan formula excel yang tidak bisa admin sebutkan disini satu persatu

Untuk memulai input data kedalam excel menggunakan macro silahkan download file latihanya pada link download dibawah ini

Download File latihan input data kedalam excel macro
Link tersedia
Mau semua fle sampel silahkan klik > disini

Silahkan buka file yang telah anda download, anda akan menemukan tabel data dalam sheet1, dengan nama kolom NIS, NAMA DEPAN, NAMA BELAKANG, L/P, TANGGAL LAHIR, ALAMAT, No HP. Silahkan tekan tombol ALT+F11 untuk masuk kejendela VBE, anda akan menemukan design form yang telah admin tentukan agar anda tidak usah susah payah membuat formnya

0

Pada design form terdapat 6 kontrol textbox dan dua kontrol optionbutton, yang mewakili masing masing kolom dalam worksheet. Optionbutton merupakan kontrol VBE yang hanya mempunyai dua value yaitu value True dan value false, karena inilah admin menggunakannya untuk menentukan kondisi jenis kelamin siswa yang memang didunia ini hanya ada dua kondisi kalau tidak Laki Laki ya Perempuan (meski zaman belakangan ini banyak ditemukan gender, akan tetapi anda tidak akan menemukan lebih dari 2 gender dalam lingkungan sekolah)

0

Jika pada satu halaman terdapat 2 atau 10 kontrol optionbutton, maka anda hanya bisa memilih satu optionbutton yang bisa bervalue True

Pada kolom NIS dan No HP ( admin juga bingung kenapa ada nomor hp dalam data siswa :D ) silahkan rubah format kolomnya dari General ke format Teks, hal ini dilakukan untuk menghindari angka 0 didepan, jika anda tidak merubah formatnya kedalam format teks maka anda tidak bisa memasukan angka nol didepan angka berikutnya

0

0

Kembali lagi ke jendela VBE, anda harus menggunakan kode macro untuk dapat menghubungkan antara form dengan worksheet

Double klik pada tombol Simpan, dan masukan kode macro dibawah ini

0

Private Sub CommandButton1_Click()
Set Asis10 = Sheets("sheet1")
i = Asis10.Cells(Asis10.Rows.Count, "A").End(xlUp).Offset(0, 0).Row

If TextBox1.Value = "" Then
MsgBox "Nama depan siswa belum diisi", _
vbOKOnly + vbCritical, "Nama depan siswa Kosong"
TextBox1.SetFocus
Exit Sub
End If
If OptionButton1.Value = True Then
JenisK = "L"
Else
JenisK = "P"
End If
With Asis10
.Cells(i + 1, 1).Value = TextBox1.Value
.Cells(i + 1, 2).Value = TextBox2.Value
.Cells(i + 1, 3).Value = TextBox3.Value
.Cells(i + 1, 4).Value = JenisK
.Cells(i + 1, 5).Value = TextBox4.Value
.Cells(i + 1, 6).Value = TextBox5.Value
.Cells(i + 1, 7).Value = TextBox6.Value
End With
End Sub

Ada bagian dari kode macro yang belum Admin bahas sebelumnya, admin mohon maaf jika membuat anda sebagai pemula menjadi agak bingung,

With .. End With : Digunakan untuk menyingkat kode , sebenarnya jika admin tidak menggunakan With .. End With maka kode Asis10 akan diulang ulang sebelum kode .Cells(i...... , setiap kode yang dibuka dengan With ... maka harus ditutup dengan End With yang merupakan batasan penyingkatan kode

i = Asis10.Cells(Asis10.Rows.Count, "A").End(xlUp).Offset(0, 0).Row : Kode yang cukup kompleks ini berfungsi untuk mencari baris yang berisi data yang paling bawah, jika anda ingin bereksperimen silhakan coba dengan membuat kotak pesan ini

Sub Kotak_Pesan ()
i = sheet1.Cells(sheet1.Rows.Count, "A").End(xlUp).Offset(0, 0).Row
Msgbox i
End Sub

Kita lanjutkan, silahkan hapus semua kode macro diatas dan ganti dengan kode macro dibawah ini


Private Sub CommandButton1_Click()
Call Cara_isi_Data_Excel
End Sub

Sub Cara_isi_Data_Excel()
Set Asis10 = Sheets("sheet1")
i = Asis10.Cells(Asis10.Rows.Count, "A"). _
End(xlUp).Offset(0, 0).Row

If TextBox1.Value = "" Then
MsgBox "Nama depan siswa belum diisi", _
vbOKOnly + vbCritical, "Nama depan siswa Kosong"
TextBox1.SetFocus
Exit Sub
End If

For Cek = 1 To WorksheetFunction.CountA(Asis10.Range("A3:A1000"))
If Format(TextBox1.Value, "@") = Format(Asis10.Cells(Cek + 2, 1).Value, "@") Then
MsgBox "NIS yang anda masukan sudah ada", _
vbOKOnly + vbCritical, "NIS ganda"
TextBox1.SetFocus
Exit Sub
End If
Next Cek

If OptionButton1.Value = True Then
JenisK = "L"
Else
JenisK = "P"
End If

With Asis10
.Cells(i + 1, 1).Value = Format(TextBox1.Value, "000000")
.Cells(i + 1, 2).Value = TextBox2.Value
.Cells(i + 1, 3).Value = TextBox3.Value
.Cells(i + 1, 4).Value = JenisK
.Cells(i + 1, 5).Value = TextBox4.Value
.Cells(i + 1, 6).Value = TextBox5.Value
.Cells(i + 1, 7).Value = Format(TextBox6.Value, "@")
End With
Call Kosongkan_Kolom
End Sub

Sub Kosongkan_Kolom()
Set Asis10 = Sheets("sheet1")
i = Asis10.Cells(Asis10.Rows.Count, "A").End(xlUp).Offset(0, 0).Row
TextBox1.Value = Format(i - 1, "0000")
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = Date
TextBox5.Value = ""
TextBox6.Value = ""
OptionButton1.Value = False
OptionButton2.Value = False
TextBox5.MultiLine = True
End Sub

Private Sub UserForm_Initialize()
Call Kosongkan_Kolom
End Sub

Admin hanya akan menerangkan fungsi menolak data ganda
For Cek = 1 To WorksheetFunction.CountA(Asis10.Range("A3:A1000"))
If Format(TextBox1.Value, "@") = Format(Asis10.Cells(Cek + 2, 1).Value, "@") Then
MsgBox "NIS yang anda masukan sudah ada", _
vbOKOnly + vbCritical, "NIS ganda"
TextBox1.SetFocus
Exit Sub
End If
Next Cek

Kode macro ini akan menolak NIS yang sama, jadi ketika kode NIS yang ada pada form sama dengan NIS yang ada pada tabel, maka sistem tidak akan menerimanya

Asis10.Range("A3:A1000") : Jika tabel anda sudah mencapai 1000 lebih maka anda harus mengganti angka 1000 dengan jumlah data yang ada pada tabel

Exit Sub : merupakan perintah untuk mengakhiri proses selanjutnya

Baca : Menolak data ganda pada excel

Silahkan coba sendiri project Cara input data kedalam excel menggunakan macro

Demikianlah Cara input data kedalam excel menggunakan macro semoga bisa dipahami, jika ada pertanyaan lain silahkan isikan pada kolom komentar, semoga bermanfaat dan selamat tahun baru 2018 hanya bagi anda yang merayakannya.
No comments