Tombol Simpan VBA Excel Merancang Merancang Aplikasi Data untuk menjalankan menjalankan fungsi penyimpanan penyimpanan data sangat mudah. disini say saya menc mencob obaa untu untuk k memb member erik ikan an tuto tutori rial al sing singka katt menya enyang ngku kutt memb membua uatt apli aplika kasi si menggunakan VBA Excel denga fungsi menyimpan data dari Userorm ke !abel "ada #heet Excel. ikuti saja langkah$langkah mudah yang saya sajikan ini.
Langkah-Langkah Membuat Tombol "SIMPAN" VBA Excel : Buka Excel% pada &#heet'& rename jadi &DB&% #a(e ile dengan nama &Aplikasi Data& • dan buatlah tabel seperti contoh gambar diba)ah "ada !ab !ab De(eloper **+ Visual Visual Basic "erhatikan ,ambar diba)ah •
•
•
•
-ancanglah Userform seperti gambar diba)ah ini
#ela #elanju njutt kita kita akan akan berma bermain in di prope propert rties ies%% ganti ganti apti aption on &Use &User rorm orm'& '& dengan dengan &Aplikasi Data&% ganti /name0 !extboxnya 1 !xt2o3nduk% !xt2ama#is)a% !xtAlamat. Untu Untuk k 4pti 4ption onBu Butt tton on gant gantii /nam /name0 e0 deng dengan an 4pt5 4pt5ak akii dan dan 4pt" 4pt"er erem empu puan an.. Untu Untuk k ommandButton ganti /name0 dengan md#impan dan mdBatal. 6lik kanan pada !ombol #impan dan Vie) ode% masukkan kode untuk md#impan berikut 1 1
•
Private Sub CmdSimpan_Click() CmdSimpan_Click() Dim Baris As Long Long Dim Ws As Wo Worksheet Dim path As String String Set Ws Worksheets(!DB!) "#emukan Baris Baris Ws$Cells(%o&s$Count' Ws$Cells(%o&s$Count' )$nd(*l+p)$,--se )$nd(*l+p)$,--set(' t(' .)$%o& "peringatan Bila data tidak diisi /- +ser0orm$#*t1o/nduk$2 +ser0orm$#*t1o/nduk$2alu aluee !! ,r +ser0orm$#*t1amaSis& +ser0orm$#*t1amaSis&a$2 a$2a alue !! #hen 3sgBo* ! Lengkapi Lengkapi Data 4ang 4ang 5osong$$666!' 5osong$$666!' 78' !Aplikasi Data! *it Sub nd /- "Peringatan bila 9enis kelamin bleom di pilih /- +ser0orm$,ptLaki$2 +ser0orm$,ptLaki$2alu aluee 0alse And +ser0orm$,ptPere +ser0orm$,ptPerempuan$2 mpuan$2alu aluee 0alse #hen 3sgBo* !Pilih :enis 5elamin$$66!' 5elamin$$66!' 78' !Aplikasi !Aplikasi Data! *it Sub; nd /- /- Worksheet0unction Worksheet0unction$Count/-(Ws$%a $Count/-(Ws$%ange(!B;B!)' nge(!B;B!)' #*t1o/nduk$# #*t1o/nduk$#e*t) e*t) #hen 3sgBo* !1o$ Penda-tar Penda-tar
! Ws$Cells(Baris' ?)$2alue 3e$#*t1o/nduk$2alue Ws$Cells(Baris' >)$2alue 3e$#*t1amaSis&a$2alue /- ,ptLaki$2alu ,ptLaki$2aluee #rue #rue #hen Ws$Cells(Baris' 7)$2alue !Laki=Laki! nd /- /- ,ptPerempuan$2 ,ptPerempuan$2alu aluee #rue #rue #hen Ws$Cells(Baris' 7)$2alue !Perempuan! nd /- Ws$Cells(Baris' @)$2alue 3e$#*tAlamat$2alue 3sgBo* !Data telah Di #ambah!' #ambah!' 7' !Aplikasi Data! Data! Call CmdBatal_Click nd Sub Untuk !ombol -eset yang berfungsi mereset form pengisian data. masukkan kode berikut ini Private Sub CmdBatal_Click() CmdBatal_Click() With +ser0orm $#*t1o/nduk$2alue !! $#*t1amaSis&a$2alue !! $,ptLaki$2alue 0alse $,ptPerempuan$2alue 0alse $#*tAlamat$2alue !! nd With With nd Sub
2
•
oba jalankan fungsinya dengan menekan tombol 7. 8ika anda mengikuti dengan benar maka Aplikasi Akan Akan 8alan dengan baik.
Cari Data Dengan De ngan TextBox TextBox Tampil Tampil Di ListBox Li stBox
#alam bagi yang belajar VBA Excel secara otodidak..999 otodidak..999 #emoga apa yang saya sajikan pada blog pribadi saya ini membantu anda yang belajar otodidak membuat Aplikasi VBA Excel Exce l dengan tampilan Userorm. "erhatikan gambar ,if diatas..999 ari data dan data yang di cari akan tampil. Data yang di cari diisi pada !extBox% !extBox% dan data yang dicari tampil pada 5istBox setelah klik perintah cari. Menampilkan data yang dicari sangatlah dibutuhkan dalam sebuah aplikasi data. !ujuannya agar pengguna Aplikasi dapat dengan mudah menemukan data tertentu. tertentu. 3kuti selangkah demi selangkah agar anda juga dapat membuat perintah cari. 4k..99 #iapkan kopi..999 agar bisa santai membuat perintah seperti gambar diatas. Langkah-langkah Langkah-langkah menampilkan ata !ang i cai paa Li#tBox : Buka ile Aplikasi Data /Do)nload di "osting "osting !ombol #impan VBA Excel0% Excel0% rename • #heet: menjadi &A-3&. #elanjutnya klik !ab Data dan perhatikan pada ribbon #ort ; ilter pilih Ad(aced untuk memfilter data dengan kreteria tertentu. perhatikan gambar diba)ah.
•
"ada kotak dialog pilih &opy !o another location& isikan 5ist range dan riteria range dari #heet &DB&. "erhatikan gambar diba)ah ini
3
•
•
• •
•
Un tuk &opy !o& pilih #heet &A-3& yang merupakan tempat penempatan hasil ilter. dan kita memilih lokasi penempatan data pada &B<&. "erhatikan gambar diba)ah ini
6lik 4k untuk memfilter datanya. lihat hasil filernya dan buatlah -ange Dinamis seperti gambar diba)ah.
*4#E!=A-39>B>f1>f0?70 !ahap selanjutnya buka Visual Basic Excel !ambahkan !extBox dengan 2ame &!xtariData& dan : buah 5abel masing$masing &5bariData& dan &5b!ampil#emua& pada !extBox &!xtariData& masukkan kode berikut ini dan perhatikan gambar diba)ah kode ya.99 Private Sub #*tCariData_Change() #*tCariData +Case(#*tCariData)
4
Sheets(!DB!)$%ange(!3?!)$2alue +ser0orm$#*tCariData$#e*t nd Sub
•
• •
#elanjutnya masukkan kode berikut pada &5bariData&% dan perhatikan gambar diba)ah kode Private Sub LbCariData_Click() Dim Ws As Worksheet; Set Ws Sheets(!DB!) Dim &srekap As Worksheet; Set &srekap Sheets(!CA%/!) Dim % As %ange; Set % Ws$%ange(!ListDB!) Dim %0ilter As %ange; Set %0ilter Ws$%ange(!3;3?!) Dim %Cari As %ange; Set %Cari Ws$%ange(!3?!) Dim C As 2ariant /- Ws$0ilter3ode #hen Ws$Sho&AllData /- +ser0orm$#*tCariData$#e*t !! #hen 3sgBo* !3aa-$$$66 Anda Belum 3emasukkan 1ama Sis&a$$66!' ' !Aplikasi Data! *it Sub nd /- +ser0orm$#*tCariData$#e*t %cari %$Advanced0ilter Action;*l0ilterCop' _ Criteria%ange;%0ilter' Cop#o%ange;&srekap$%ange(!B>;0>!)' +niue;0alse ListBo*$%o&Source !%5APCA%/! nd Sub Masukkan 6ode diba)ah ini pada &5b!ampil#emu a& dan perhatikan gambar diba)ah kode Private Sub Lb#ampilSemua_Click() Dim Ws As Worksheet; Set Ws Sheets(!DB!) /- Ws$0ilter3ode #hen Ws$Sho&AllData nd /-
5
Call ListDB #*tCariData !! nd Sub •
#elesai..99 Uji Aplikasi dengan 7..99 8ika langkah yang anda ikuti sudah sesuai% Aplikasi Data akan jalan sebagaimana yang diharapkan. Demikian posting ari Data Dengan !extBox% !ampil di 5istBox. #emoga bermanfaat..99
!ampikan Data Dari 5istBox 6e !extbox Dengan Double 6lik @ VBA Excel '@1':1@@
"erhatikan gambar di atas.99 begitulah maksud saya dengan judul posting ini. Double klik pada data yang ada di 5istBox% Data pada 5istBox akan di tampilkan pada !extBox.
6
Langkah-langkah menampilkan ata ai Li#tBox ke TextBox engan $ouble klik : Buka Visual Basic ile Aplikasi Data yang pernah di jelaskan /!ombol #impan VBA • Excel0 6lik kanan pada 5istBox dan pilih Vie) ode. "erhatikan gambar diba)ah ini •
•
•
Masukkan kode diba)ah ini seperti yang terlihat pada gambar diatas Private Sub ListBo*_DblClick(B2al Cancel As 3S0orms$%eturnBoolean) ,n rror %esume 1e*t Dim da-tar As Long Dim Ws As Worksheet; Set Ws Worksheets(!DB!) With 3e$ListBo* da-tar $List/nde* /- da-tar ,r da-tar $ListCount #hen ListDB lse #*t1o/nduk$2alue $List(da-tar' ) #*t1amaSis&a$2alue $List(da-tar' ?) /- $List(da-tar' >) !Laki=Laki! #hen ,ptLaki$2alue #rue; ,ptPerempuan$2alue 0alse /- $List(da-tar' >) !Perempuan! #hen ,ptPerempuan$2alue #rue; ,ptLaki$2alue 0alse nd /- #*tAlamat$2alue $List(da-tar' 7) nd With nd Sub #elesai% oba jalankan..99
7
%ange $inami# 6esempatan ini saya akan berbagi cara membuat range dinamis. Disini saya rasa bagi kita yang belajar otodidak copy dan copas ajha. dan ikuti saya aplikasi yang sudah pernah kita buat pada posting Tombol Simpan VBA Excel. "ada ile terdahulu kita sudah membuat tabel dan isi tabel yang kita input dengan menggunakan Userorm dengan fungsi !ombol #impan. berikut cara membuat range dinamis yang akan kita gunakan untuk keperluan tertentu dalam rancangan Userorm kemudian hari% seperti penggunaan range dinamis pada 5istBox untuk menampilkan data yang telah di simpan. 5angkah$langkah membuat range dinamis Buka ile Excel yang telah kita buat pada posting Tombol Simpan VBA Excel Blok tabel yang akan digunakan sebagai range 6lik kanan dan pilih 2ame -ange seperti pada gambar diba)ah ini •
•
•
#elanjutkannya akan muncul kotak dialaog 2e) 2ame dan Ubah 2ame jadi &5istDB& dan ubah -efers !o menjadi range dinamis berikut dan perhatikan gambar
•
,00S#(DB6EAE?F.F.FC,+1#A(DB6E;E)F@) 3kuti saja% seperti pada gambar% untuk penjelasan detail saya sendiri tidak paham. 6arena saya hanya mengunakan logika asal bisa berfungsi. 8
!ampilkan Data di 5istBox di Userorm VBA Excel : VBA Excel @17'1@@
"ada posting terdahulu kita sudah membahas tentang cara membuat Tombol Simpan VBA Excel menggunakan Userorm VBA Excel. "ada kesempatan ini lanjutannya% jadi masih
pake aplikasi yang terdahulu kita rancang% saya akan mencoba menguraikan cara membuat 5istBox yang dapat menampilkan data yang telah disimpan. ikuti langkah$langkah yang saya sajikan ini selangkah demi selangkah. Anda pasti bisa membuat Aplikasi..99 Langkah-langkah membuat Li#tBox : Buka kembali Excel ang telah kita rancang pada posting !ombol #impan VBA Excel • Buatlah sebuah range dinamis baca posting ara Membuat -ange Dinamis • Buka Visual Basic dan tambahkan 5istBox pada Userorm #eperti pada gambar • berikut ini
•
Untuk "roperties biarkan saja jangan di ubah baik 5abel maupun 5istBox. #etelah siap di rancang% klik kanan pada Userorm pilih Vie) ode dan Masukkan 6ode diba)ah ini% perhatikan gambar diba)ah kode..99 Sub ListDB() With +ser0orm$ListBo*
9
$ColumnCount @ $ColumnGeads 0alse $ColumnWidths !?@F@@F..FH.FI.! $%o&Source !ListDB! $3ultiSelect -m3ultiSelectSingle $BoundColumn . nd With nd Sub Private Sub +ser0orm_/nitialiJe() Call ListDB nd Sub
'. #elesai% Agar saat setelah !ombol #impan di klik langsung terlihat datanya pada 5istBox kita tambahkan kode pada md#impan dengan code berikut sebelum End #ub Call ListDB Demikian yang bisa saya share pada kesempatan ini tentang cara membuat 5istBox agar menampilkan data dari #heet. #emoga bermanfaat terutama bagi yang belajar otodidak seperti saya.
Peintah &ai otomati# Melalui TextBox
10
"erintah cari data sangat diperlukan dalam sebuah aplikasi% perintah cari memudahkan user menemukan data yang di inginkan. #alah satu dari sekian banyak cara perintah cari data% mencari data melalui !extBox. #imak baik$baik dan ikuti langkah$langkah yang saya sajikan ini Langkah-langkah membuat peintah cai ata : Buka file excel yang sudah pernah kita rancang sejak posting !ombol #impan • !ambahkan 5abel% ubah caption 5abel menjadi &5bari& dan 3nput 3con dalam 5bari • supaya memperindah Aplikasi . 5ihat gambar di ba)ah
• •
Do)nload 3con Vie) jika tidak ada stock persedian 5ihat gambar diba)ah setelah icon ditambahkan pada label terlihat lebih profesional bukan CC99
11
•
•
•
Berikutnya klik kanan pada 5bari pilih Vie) ode dan masukkan kode berikut ini Private Sub LbCari_Click() ,n rror %esume 1e*t Dim Ws As Worksheet Dim 5ode' Cari As 2ariant Dim Baris As Long Set Ws Worksheets(!DB!) 5ode 3e$#*t1o/nduk$#e*t With Ws$%ange(!B>;B..!) Set Cari $0ind(5ode' Lookat;*lWhole) /- 1ot Cari /s 1othing #hen Baris Cari$%o& With +ser0orm$#*t1o/nduk$2alue Ws$Cells(Baris' ?)$2alue$#*t1amaSis&a$2alue Ws$Cells(Baris' >)$2alue /- Ws$Cells(Baris' 7)$2alue !Laki=Laki! #hen ,ptLaki$2alue #rue; /- Ws$Cells(Baris' 7)$2alue !Perempuan! #hen ,ptPerempuan$2alue #rue;$#*tAlamat$2alue Ws$Cells(Baris' @)$2alue nd With nd /- nd With nd Sub #elesai..99 8alankan Aplikasi dengan mencari data sis)a. ketikkan 2o 3nduk #is)a dan klik 3con. Data akan di tampilkan dalam !extBox 8ika ingin pencarian otomatis% setelah 2o 3nduk #is)a diketikkan pada !extBox anda tekan enter data akan muncul otomatis dalam !extBox lainnya% Buatlah kode berikut ini pada !xt2o3nduk Private Sub #*t1o/nduk_A-ter+pdate() Call LbCari_Click nd Sub
12
Demikian sedikit pencerahan tentang pencarian data menggunakan !extBox% semoga bisa di amalkan menurut kepercayaan masing$masing.. hehehe..99 !ombol apus Userorm VBA Excel
#eperti terlihat pada gambar diatas% perintah hapus data yang di pilih dari Userorm. sebelumnya harus diperhatikan bah)a untuk memasukkan data dari 5istBox ke !extbox sudah pernah kita bahas pada posting Tampilkan $ata $ai Li#tBox 'e TextBox $engan $ouble 'lik . Data yang dipilih dengan double klik dari 5istBox akan tampil ke !extBox. #elanjutnya kita akan menggunakan perintah hapus untuk menghapus data. "osting ini merupakan kelanjutannya dalam membuat sebuah aplikasi dengan perintah dari Userorm VBA Excel. Langkah-langkah membuat Tombol (apu# $ai )#e*om : Buka Visual Basic ile Aplikasi Data /!ombol #impan VBA Excel0 • !ambahkan ommandbutton pada Userorm% ganti /2ame0 menjadi &mdapus&. • #elanjutnya 6lik kanan pada mdpus pilih Vie) ode. "erhatikan gambar diba)ah •
•
Masukkan kode berikut ini untuk perintah hapus data Private Sub CmdGapus_Click() Dim Ws As Worksheet Dim 5ode As 2ariant Dim Baris As Long Dim C As %ange /- #*t1o/nduk$#e*t !! #hen 13
3sgBo* !Double 5lik +ntuk /nput Data 4ang Akan Gapus$$66!' ' !Aplikasi Data! *it Sub; nd /- /- 3sgBo*(!Anda 4akin Akan 3enghapus Data ; ! K #*t1amaSis&a$#e*t' vb4es1o 78' !Aplikasi Data!) vb4es #hen Set Ws Worksheets(!DB!) 5ode 3e$#*t1o/nduk$2alue With Ws$%ange(!B7;B...!) Set C $0ind(5ode' LookAt;*lWhole) /- 1ot C /s 1othing #hen Baris C$%o& Ws$Cells(Baris' )$2alue !! Ws$Cells(Baris' ?)$2alue !! Ws$Cells(Baris' >)$2alue !! Ws$Cells(Baris' 7)$2alue !! Ws$Cells(Baris' @)$2alue !! C$ntire%o&$Delete nd /- nd With 3sgBo* !Data #elah Di Gapus!' 7' !Aplikasi Data! lse 3sgBo* !Gapus Data #elah Di Batalkan!' ' !Aplikasi Data! nd /- Call CmdBatal_Click Call ListDB nd Sub
#elesai..99 8alankan Aplikasinya...99 bila sudah mengikuti dengan benar tombol hapus data akan berfungsi sebagaimana mestinya. Demikian sedikit penjelasan dari saya yang belajar otodidak cara membuat aplikasi dengan menggunakan VBA Excel. #emoga menjadi referensi buat anda yang membutuhkan. •
Userorm Muncul 4tomatis 6etika Excel Dibuka
14
ara membuat Userorm Muncul 4tomatis #aat Excel dibuka agar keliatan ull Aplikasi sangat mudah. #imak dan ikuti langkah$langkah berikut ini 1 Buka jendela Visual Basic •
"erhatikan gambar di atas pada 8endela "roject Explorer 6lik : kali &!hisorkbook& dan muncul jendela ode masukkan kode berikut "ri(ate #ub orkbookF4pen/0 Userorm'.#ho) End #ub •
Agar Userorm aktif otomatis dan )orkbook tersembunyi% masukkan kode seperti di ba)ah ini pada &!hisorkbook&
•
"ri(ate #ub orkbookF4pen/0 Application.Visible * alse Userorm'.#ho) Application.Visible * !rue End #ub Demikian penjelasan tentang cara membuat Userorm Muncul 4tomatis 6etika Excel dibuka. #emoga bisa bermanfaat.
15
5AMA2 5A32 Menampilkan Data "encarian Dengan &Enter !extbox& "erhatikan ,ambar di Ba)ah ini.
Buat lah !extbox dan juga Button yang akan menghubungkan dengan "encarian Data yang nanti nya akan di tampilkan%setelah itu buat ormG kelanjutan dari form< yang telah kita buat sebelum nya. Buatlah !ampilan ormG sesuai dengan !abel ields pada orm' atau terserah anda !abel ields mana yang nanti nya ingin anda !ampilkan dalam "encarian. Misalkan di sini saya hanya ingin 2anti nya akan menampilkan pencarian Untuk jenis &2o andphone& nya saja yang sudah masuk%maka tampilan formG nya tampak seperti pada ,ambar di ba)ah ini.
#etelah itu kita masukan #ource ode nya seperti pada keterangan saya di ba)ah ini. '. Masukan #ource ode di ba)ah ini ke dalam !extbox. hapus "rocedure dari & Private Sub #e*t_Change()! menjadi 5ePress seperti di ba)ah ini. Private Sub #e*t_5ePress(5eAscii As /nteger) #e*t$Set0ocus /- 5eAscii vb5e%eturn #hen Command@$Set0ocus Dim a As /nteger a #e*t$SelStart 16
#e*t$#e*t StrConv(#e*t$#e*t' vbProperCase) #e*t$SelStart a With Data rsdata6operator 0orm7$#e*t7 rsdata6harga nd /- nd With #e*t kosong nd Sub
<. #etelah itu masukan #ource ode di ba)ah ini ke dalam !extbox' pada ormG hapus "rocedure dari &"ri(ate #ub !ext'Fhange/0& menjadi 6ey"ress seperti di ba)ah ini. agar semua perintah cukup di lakukan hanya dengan menekan &E2!E-& Private Sub #e*t_5ePress(5eAscii As /nteger) /- 5eAscii vb5e%eturn #hen Command$Set0ocus nd Sub 2ah..99 #ampai di situ memasukan #ource ode sudah selesai%silahkan anda &-un& "rogram nya%lalu Anda coba masukan data yang ingin anda cari pada !extbox "encarian%nampak hasil nya seperti pada gambar di ba)ah ini.
17
5akukan saja semua nya dengan menekan &Enter& dalam pencarian%supaya anda tidak terlalu ribet dengan geseran mouse. ontoh !ombol apus Data dari Database dengan VBA Excel Menghapu# ata ai ataba#e merupakan salah satu pengeolahan data yang standar dibuat
oleh seorang programer VBA. 6arena menghapus data sangat penting ketika data tidak dibutuhkan untuk itu saya akan membagikan bagaimana cara menghapus data dari database. "ada tutorial ini sebenarnya ada kaitannya dengan tutorial saya pada cara membuat tombol simpan disertai coding nya. #ilakan yang belum tahu dan ingin belajar lihat caranya pada link diba)ah
ini
Contoh #ombol Simpan dengan coding 2BA
!ombol hapus data yang saya maksud adalah bagaimana membuat data yang telah dientri ke dalam database melalui tombol #impan yang pernah saya bahas beberapa hari yang lalu dan tentunya jika sudah disimpan ke dalam database user tidak perlu lagi untuk masuk ke )orksheet melainkan programer harus menyediakan salah satu tombol untuk menghapusnya. !utorial Membuat !ombol apus Data dari Database. #ebenarnya untuk membuat hapus data Anda harus memahami logika algoritma seperti kata para master excel namun pada kesempatan kali ini saya tidak akan membahas tentang hal
18
tersebut. Anda bisa cari materi lain di internet yang membahas sumber mengenai masalah tersebut. Untuk bisa membuat tombol hapus data dari database saya mempunya orm yang sudah jadi dan mudah$mudahan dengan tampilan form ini akan ada gambaran buat Anda untuk melangkah Berikut
kedalam contoh
pembuatan
userform
yang
coding sudah
atau
script
VBA
nya.
disertai
tombol
apus
Data.
Dari tampilan tersebut kita akan menghapus data dan apabila tombol apus kita klik maka muncul peringatan atau konfirmasi bah)a data tersebut akan dihapus. "enghapusan disini maksudnya bukan menghapus semua data tetapi kita akan mencari data yang akan dihapus kemudian jika ketemu data tersebut dan apabila Anda klik tombolnya maka data atau record yang
dipilih
akan
dihapus.
6enapa kebanyakan sebuah aplikasi baik itu berbasis VBA atau aplikasi lainnya seorang proggramer memberikan pesan konfirmasi penghapusan dataC al ini bertujuan untuk mengingatkan user atau pengguna apakah data yang dipilih benar$benar akan dihapus karena jika
sudah
terlanjur
user
tidak
bisa
mengembalikan
data
tersebut
kembali.
19
'on+ima#i
pe#an
penghapu#an
#epeti
apa
!ang
imak#u,
#aya memiliki sebuah pesan untuk konfirmasi kepada user jika user telah mengklik tombol hapus
maka
muncul
pesan
seperti
berikut
ini
6etika data ditemukan dan dipilih oleh user maka muncul sebuah pesan seperti diatas% jika dipilih 2o proses penghapusan dibatalkan tetapi jika pilih es maka proses penghapusan dilakukan. 5alu bagaimana coding untuk membuat hapus record data tersebutC "roses penghapusan tentunya data tersebut hapus sudah dientri dan masuk ke dalam database jika Anda data akan dihapus berarti Anda harus mencarinya. #ilakan simak tutorial saya mengenai Script Cari Data Sis&a Ini contoh coing hapu# %eco $ata engan VBA 3nilah contoh coding untuk membuat hapus Private ,n Dim Dim Set
data
Sub rror Psan Ws Ws
Dim shtSeason Dim c //DSopir$2alue 3sgBo* !Silakan Cari /D Sopir /DSopir$Set0ocus lse
saya
maksud
#ombolGapusS,pir_Click() #er9adi5esalahan String Worksheet Worksheets(!DataSopir!)
As As #erlbih
yang
Dahulu!'
Worksheet %ange !! #hen vb/n-ormation' !/n-o!
Psan 1amaSopir$#e*t ! = Akan dihapus dari database' Anda akinO ! /3sgBo*(Psan' vbNuestion vb4es1o' _ !5on-irmasi Penghapusan!) vb4es #hen Set Set c$%esiJe(' 3sgBo* Call
shtSeason c
!Data
Sheets(!DataS,pir!) shtSeason$Columns()$0ind(/DSopir$#e*t) >)$Delete Shi-t;*l+p Berhasil Dihapus!' vb,5,nl 5osongkanSopir 20
nd nd #er9adi5esalahan; /DSopir$2alue nd Sub
/- /-
!!
6emunculan pesan konfirmasi penghapusan data record disini Anda harus menyisipkan perintah seperti yang telah dituliskan diatas. Dan jika Anda pilih a maka muncul pesan &Data
berhasil
dihapus&.
8ika penghapusan data berhasil maka Anda harus mengosongkan textbox dengan cara menambahkanMoule 'o#ongkanSopi . dan saya lampirkan juga coding 6osongkan#opir untuk Module
data Untuk
yang Mengosongkan
ada Data
pada jika
textbox.
apus
#ub
Berhasil
6osongkan#opir/0
With
Data+tama $/DSopir$2alue
$1amaSopir$2alue
!!
$#empatLahirSopir$2alue
!!
!!
$#glLahirSopir$2alue
!!
$BlnLahirSopir$2alue
!!
$#hnLahirSopir$2alue
!!
$+murSopir$2alue
!!
$5elaminSopir$2alue
!!
$AgamaS,pir$2alue
!!
$GPSopir$2alue
$AlamatSopir$2alue
!! !!
$1/5Sopir$2alue
!!
$S/3S,pir$2alue
!!
nd
With
nd Sub
8ika Anda mengerti tentang VBA H Macro Excel tentunya hal ini sudah tidak asing lagi maksud dari coding diatas namun jangan kha)atir saya akan menjelaskan salah satu maksud dari
script
VBA
diatas
.3D#opir.Value% merupakan 2ame dari sebuah textbox Anda bisa merubahnya dengan nama lain sesuai dengan keinginan pada properties di VBA editor. 8ika ingin sesuai dengan contoh buatan saya ini Anda harus mengganti setiap 2ame textbox yang sesuai dengan coding diatas. #elama
21
Kumpulan Koe !B" #x$el Dasar %ang &a'i( Dipela'ari '
Macro Excel VBA AIA$ "-32!EMA35
VBA merupakan Visual Basic of Application dimana VBA ini sangat membantu sekali dalam mengolah data Excel. 8ika Anda mahir Excel maka akan sangat hebat apabila dikolaborasikan dengan kode$kode VBA. 8ika Anda baru belajar tentang kode$kode VBA berikut contoh dasar kode
VBA
excel
bagi
pemula.
#electing J**6ode
VBA
Memilih
:
baris
ke
ba)ah
sel
aktif
ke
dan
:
kolom
ke
kanan1
ActiveCell$,--set(>' ?)$Select
J**6ode
VBA
"ilih
dari
baris
terakhir
dari
daftar1
%ange(Selection' Selection$nd(*lDo&n))$Select
22
J**6ode
VBA
"ilih
dari
sel
saat
ini
untuk
kolom
terakhir
dari
daftar1
%ange(Selection' Selection$nd(*l#o%ight))$Select
J**6ode
VBA
"ilih
sel
terakhir
dari
)orksheet1
Selection$SpecialCells(*lLastCell)$Select
"asting J**6ode
VBA
2ilai
rumus
"aste%
bukan
rumus1
%ange(!A>!)$Cop %ange(!D?!)$PasteSpecial Paste;*l2alues
J**6ode VBA "aste ke dalam sel dan memindahkan isi aslinya ke sel berikutnya1 Selection$/nsert Shi-t;*l#o%ight
olumns and -o)s J**6ode
VBA
Menyembuntikan
6olom1
Selection$ntireColumn$Gidden #rue
J**6ode
VBA
Menyisipkan
6olom1
VBA
Menghapus
6olom1
Columns(!1;1!)$/nsert
J**6ode
Columns(!B;!)$ntireColumn$Delete
J**6ode
VBA
Menyisipkan
baris
baru
di
cell
saat
ini1
Selection$ntire%o&$/nsert
23
J**6ode
VBA
menghapus
baris
baru
di
cell
saat
ini1
Selection$ntire%o&$Delete
J**6ode
VBA
Mengatur
lebar
kolom1
Selection$ntireColumn$ColumnWidth .
J**6ode
VBA
Mengatur
tinggi
baris
Selection$%o&Geight ?$?@
J**6ode
VBA
Mengatur
tinggi
baris
dengan
ukuran
isi1
Selection$%o&s$Auto0it
ell ormatting J**6ode
VBA
rap
!eks
Selection$Wrap#e*t 0alse
J**6ode
VBA
Mengahpus
)arna
Selection$/nterior$Color/nde* *l1one
J**6ode
VBA
mengatur
ukuran
huruf
Selection$0ont$SiJe 8
J**6ode
VBA
mengatur
format
tanggal
dan
)aktu
Selection$1umber0ormat !mm=dd= hh;mm A3P3!
J**6ode
VBA
mengatur
angka
desimalHpecahan
Selection$1umber0ormat !Q'QQ.!
24
J**6ode
VBA
perataan
tengah
Selection$GoriJontalAlignment *lLe-t
J**6ode
VBA
rata
ba)ah
Selection$2erticalAlignment *lBottom
J**3ndented
text1
Selection$/ndentLevel >
J**6ode
VBA
apus
isi
tapi
tidak
format1
Selection$ClearContents
J**6ode
VBA
apus
isi
dan
format1
Selection$Clear
Display J**6ode
VBA
Menyembunyikan
akti(itas
sementara
makro
berjalan1
Application$Screen+pdating 0alse
J**6ode
VBA
Matikan
lansiran
otomatis1
Application$DisplaAlerts 0alse
J**6ode
VBA
untuk
reeKe
panes1
ActiveWindo&$0reeJePanes #rue
J**6ode Dim str#ime
VBA str#ime
!ampilkan as
berjalan String'
0ormat(1o&()'
makro str#ime? !mm=dd=
berapa as
lama1 String hh;33;ss!) 25
Rput
other
str#ime?
macro 0ormat(1o&()'
code
here
!mm=dd=
hh;33;ss!)
3sgBo* !lapsed #ime ! K DateDi--(!n!' str#ime' str#ime?)
-ange 2ames J**6ode
VBA
menamai
range
ActiveWorkbook$1ames$Add 1ame;!
J**6ode
VBA
menuju
ke
alamat
range
%ange(!
J**kode
VBA
Dim 0or
menghapus
nama
range
n ach
)orkbook
as n
/n
aktif ,b9ect
ActiveWorkbook$1ames
n$Delete 1e*t
"athHile 2ame J**6ode
VBA
menyisimpan
nama
lokasi
pathHfile
kedalam
file
ActiveCell$2alue ActiveWorkbook$0ull1ame
J**kode
VBA
untuk
3nsert
footer
ActiveSheet$PageSetup$Center0ooter ActiveWorkbook$0ull1ame
26
"i(ot !ables J***6ode VBA Menghapus item yang tidak terpakai di tabel pi(ot ketika data telah berubah1 Dim 0or
pt
As
Pivot#able'
ach
0or
&s
ach
&s /n
Worksheet
ActiveWorkbook$Worksheets
pt
pt$PivotCache$3issing/temsLimit
As
/n
&s$Pivot#ables
*l3issing/tems1one
1e*t
pt
1e*t &s
orksheets J**6ode
VBA
Menambahkan
Dim 0or
tanggal
untuk
sht ach
judul
setiap
)orksheet1
As sht
/n
Worksheet ActiveWorkbook$Worksheets
sht$Select %ange(!A!)$2alue
%ange(!A!)$2alue
K
!
through
!
K
strDate
1e*t sht
#emoga bermanfaat. dan untuk melihat contoh penggunaan kode VBA lebih lengkap silakan lihat )P$ATE :
contoh "embuatan 'olek#i
'oe
3nput VBA
Data untuk
dengan Belaa
Maco
VBA $a#a
./0./0/1.2
27
oding untuk opy "aste -ange Sub %ange
Cop%ange(
)
(TA;B.U)$Cop
Destination;%ange(TD;.U)
nd Sub
6ode Menampilkan "osisi ell yang Aktif Sub AlamatCell( baris
kolom 3sgbo*
) ActiveCell$%o&
baris
ActiveCell$Column
K
T'U
K
kolom
nd Sub
6ode VBA untuk format tebal huruf dan pe)arnaan Sub 3erubah0ont( Selection$0ont$Bold
Selection$0ont$Color/nde*
#rue
" >
) untuk
"
menebalkan
untuk
me&arna
huru- merah
nd Sub
oding VBA merubah "roperties 5istbox /8umlah kolom% -o)source% 8umlah kolom dan ukuran kolom. Private Sub +ser0orm_/nitialiJe() With
+ser0orm$ListBo*
$%o&Source
$ColumnCount
!ListData!
$ColumnWidths
nd
@ !>H'I@'.'.'@.! With
nd Sub
oding Menuju #heet tertentu Sheets()$Select
28
atau
bisa
juga
gunakan
Sheets$Select
Contoh Lain ; Sheets(!Sheet!)$Select
oding VBA menyembunyikan #heet' Sheet$2isible *lSheet2erGidden oding VBA menampilkan 3nput Box
/nputBo*(TSilakan 3asukan 1ama AndaU)
ontoh oding Menyisipkan atau menambah baris diatas range tertentu %ange(TAU)$Select " Pilih
range
Selection$ntire%o&$/nsert " sisipkan baris diatas range A
oding VBA menyimpan nama file
ActiveWorkbook$SaveAs 0ilename;UD;VLatihan2BA$*lsU
ontoh oding ormat !anggal pada !extbox Private Sub #e*tBo*$2alue
#e*tBo*_Change()
0ormat(#e*tBo*$2alue'
!ddmm!)
nd Sub
oding opy 5istbox' ke 5istbox : Dim Dim
ListBo*?$ColumnCount
i
As
Long
9
As
Long
ListBo*$ColumnCount
29
