Variable
- Variable bisa didefinisikan sebagai lokasi penyimpanan/ storage yang
ada pada memory yang diperlukan agar suatu proses bisa berjalan
- Pada contoh dibawah ini variable cb digunakan untuk tempat menyimpan dari user input, dimana variabel ini bisa dimanipulasi lebih lanjut
- Suatu variabel bersifat read write artinya bisa di assign value tertentu (memakai operator =)
cb = InputBox(“masukkan bilangan yg mo dicari akar pangkat tiga-nya”)
Disini variabel cb akan diisi dengan karakter yang diisikan oleh user, misalnya 27
- dan bisa diambil valuenya untuk diproses
cbroot = CubeRoot(cb)
Disini variabel cb akan diambil nilainya (yaitu 27) dan diproses dengan fungsi Cuberoot
Declaring Variable
- Kita mendeklarasikan variabel agar program berjalan lebih efisien
dan lebih cepat, juga agar kita tidak salah dalam mengetik nama variabel
,menggunakan auto correct pada editor vba (Ctrl+Space)
- Dari gambar dibawah ini terlihat karena kita sudah men-deklarasikan variabel intLokal maka jika kita ketik “int” maka akan muncul daftar yang berisi semua variabel ,methods, properties yang berawalan “int“, nanti tinggal kita pilih yang kita butuhkan, hal ini akan mengurangi kesalahan ketik
- VBA tidak case sensitif, namun jika sudah dideklarasikan maka case variabel akan mengikuti case dideklarasi
- Juga jika dideklarasikan diawal prosedur/ awal module bisa diberi
penjelasan yang lengkap sehingga programmer bisa lebih memahami program
secara keseluruhan
Syntax :
Dim
varname[([
subscripts])] [As
type]
Dim DasarPengenaanPajak as integer
'jika tidak secara explicit ditentukan maka type data adalah variant
Dim Pajak_Terutang
'jika digabung maka harus secara explicit disebut type datanya
'dibawah ini DPP bertipe variant, PPN type integer
Dim DPP , PPN as Integer
'Kalo yang ini semuanya bertype integer
Dim DPP as integer, PPN as Integer
Dim Tarif_Pajak(1 to 3) as integer
Dim Tarif_Pajak(3) as integer
- [([subscripts])] artinya jika kita mendeklarasikan array
maka memakai kurung awal & akhir dan diisi jumlah array-nya, ingat
bahwa VB memakai dasar 0 , jadi kalo (3) artinya ada 4 nilai (0-3), kalo
(1 to 3) artinya 3 nilai yaitu 1,2,3
- Jika array tidak diberi angka (misalnya: myvalue() ) maka artinya adalah array dinamis, yang bisa berubah pada saat run time
- Kalo tidak diberi type datanya maka berarti adalah varian, varian
adalah type data yang sangat flexible , bisa disi apa aja, string,
number, boolean, dll namun speednya kurang dan boros memory
Compatibility of variables
harus diingat jika kita melakukan perhitungan antar 2 atau lebih
variabel harus diupayakan memiliki type yang sama, jika tidak akan
menimbulkan hasil yang tidak terduga
misalnya code sbb:
Sub Mix_Variable()
Dim answer As Integer
Dim num1 As Single
Dim num2 As Integer
num1 = 5.3
num2 = 6
answer = num1 * num2
MsgBox answer
End Sub
fungsi msgbox untuk dispaly hasilnya saja tapi yang penting untuk
dilihat adalah karena terdiri dari type data yang berbeda maka hasilnya
akan mengikuti yang paling kompatibel, dimana untuk kode diatas akan
dijadikan integer (hasilnya 32 bukan 31.8)
Variabel harus diisi sesuai type datanya jika tidak maka akan terjadi type mismatch error seperti Code sbb :
Sub Type_Data_Error()
Dim myVar As Integer
myVar = 10
myVar = "Testing"
End Sub
Kesalahan diatas bisa diperbaiki dengan mengganti type data menjadi
variant, karena variant bisa menampung segala macam jenis data
Variabel juga jangan diisi dengan nilai diatas jangkauannya misalnya code :
Sub out_range()
Dim myNum As Integer
myNum = 50000
End Sub
Hasilnya adalah Overflow
Scope dari variable
Scope artinya jangkauan atau luas dari variable
—
Procedure only, dideklarasikan didalam prosedur,
hanya bisa digunakan dan dikenali di dalam prosedur tersebut, begitu
program keluar dari prosedure yang bersangkutan maka nilai variabel akan
direset ke nilai awal
- Lihat code dibawah ini
Sub test_variable_lokal()
'deklarasikan variabel intLokal
Dim intLokal As Integer
'tampilkan hasilnya
MsgBox "intLokal =" & intLokal
'isi variabel dengan suatu angka
intLokal = 100
'tampilkan hasilnya
MsgBox "intLokal =" & intLokal
End Sub
- Jika sub diatas dijalankan maka akan muncul display —menyatakan
bahwa intLokal=0 jika dioke, maka akan lanjut ke code berikutnya yang
akan mengisi variabel tsb dng angka 100, lalu akan muncul display
menyatakan intLokal=100
- Karena intLokal adalah variabel bersifat lokal maka begitu kita
jalankan lagi sub diatas maka variabel tersebut akan direset, jika
integer jadi nol, jika text jadi blank, jika variant jadi null
All procedure in a Module, bisa dipakai dan dikenali oleh semua prosedur didalam suatu module, dideklarasikan diluar prosedur dan diawal module
- nilainya masih ada dan dapat dikenali oleh Sub/Fungsi lain di module tersebut
- Lihat kode dibawah ini
Dim intModule As Integer
Sub test_variable_module()
'deklarasikan variabel intLokal
Dim intLokal As Integer
'tampilkan hasilnya
MsgBox "intLokal =" & intLokal & vbCrLf & "intModule = " & intModule
'isi variabel dengan suatu angka
intLokal = 100
intModule = 200
'tampilkan hasilnya
MsgBox "intLokal =" & intLokal & vbCrLf & "intModule = " & intModule
End Sub
Sub test_variabel()
'jalankan sub test_variable_module
Call test_variable_module
'lihat apakah variabel intModule dikenali
'karena variabel intModule ber-scope module maka dikenali oleh sub/
'fungsi lain dimodule yang sama
'sebaliknya var intLokal tidak dikenal dan berisi blank/null karena variant
MsgBox "intLokal =" & intLokal & vbCrLf & "intModule = " & intModule
End Sub- Jalankan sub test_variabel
—All Procedure in All Module, bisa digunakan oleh semua prosedur dalam file VBA bersangkutan. Dideklarasikan di awal module dan diberi prefik ‘
Public’
- ini seperti scope module hanya lebih luas, karena dikenali di module lain sepanjang berada di satu workbook
Ada satu lagi deklarasi variabel yaitu
Static
Static berarti nilai dalam variabel disimpan jika kita kembali lagi
ke sub/fuction tersebut. seperti kita tahu kalau variabel
didekalarasikan di sub/fungsi maka bersifat lokal dan akan direset
setiap kali kita masuk ke sub/fungsi bersangkutan, namun jika
dideklarasikan dengan static maka nilai akan disimpan samapi workbook
diclose
Sub MySub()
Static Counter As Integer
Dim Msg As String
Counter = Counter + 1
Msg = "Number of executions: " & Counter
MsgBox Msg
End Sub
Jika prosedur itu kita jalankan maka pertama akan menghasilkan nilai
1, kita jalankan yg kedua maka akan menghasilkan nilai 2, begitu
seterusnya sampai workbook kita close baru variabel Counter akan direset
Deklarasi Object Variable
Variable bisa juga diisi dengan type data object, kenapa kita harus
mendeklarasikan object sebagai variabel? ini sebenarnya cuman masalah
kemudahan belaka, misalnya kode dibawah ini
Workbooks("myfile.xlsx").worksheets("sheet1").range("A1:V100).select
Workbooks("myfile.xlsx").worksheets("sheet1").range("A1:V100).Font.bold=true
Workbooks("myfile.xlsx").worksheets("sheet1").range("A1:V100).Font.italic=true
......dst
'lebih gampang diingat jika range diatas kita jadikan variabel
dim rngList as range
Set rngList =Workbooks("myfile.xlsx").worksheets("sheet1").range("A1:V100)
rngList.select
rngList.Font.bold=true
rngList.Font.italic=true
...dst
Ingat untuk assignment type data Object harus dengan keyword
Set
