Contoh Penggunaan Pernyataan Dim VBA

Contoh Penggunaan DIM

Dim [variable name] As [Type]           

Dim count As Long          

Dim amount As Currency          

Dim name As String        

Dim visible As Boolean   

Dim [variable name] As String * [size]                     

Dim s As String * 4           

Dim t As String * 10                     

Dim [variable name] As Variant         

Dim [variable name]                   

Dim var As Variant          

Dim var                   

Dim [variable name] As New [object   type]           

Dim coll As New Collection       

Dim coll As New Class1  

Dim [variable name] As [object type]           

Set [variable name] = New [object type]     

Dim coll As Collection     

Set coll = New Collection                       

Dim coll As Class1

Set coll = New Class1      

Dim [variable name]([first] To [last] ) As [Type]  

Dim arr(1 To 6) As Long           

Dim [variable name]() As [Type]        

ReDim [variable name]([first] To [last])     

Dim arr() As Long

ReDim arr(1 To 6)           

Dim [variable name] As New [item]  

Dim dict As New Dictionary     

Dim [variable name] As [item]

Set [variable name] = New [item]      

Dim dict As Dictionary   

Set dict = New Dictonary          

Dim [variable name] As Object           

Set [variable name] = CreateObject("[library]")              

Dim dict As Object           

Set dict = CreateObject("Scripting.Dictionary")   

           

Mengenal data type Variable in VBA

Mengenal Type data Variable in VBA

1.Jenis Data Non-Numerik

Tipe data ini hanya dapat menampung data non-numerik. Ini adalah tipe data non-numerik yang umum yaitu String, Boolean, Variant, Object.

String:

Ini dapat menampung dua jenis nilai string di dalamnya yaitu String dengan panjang tetap dan string dengan panjang variabel.

Boolean:

 Booleans dalam VBA adalah nilai-nilai logis mis. TRUE atau FALSE.

Varian:

Dapat menyimpan data numerik dan non-numerik.

Objek:

Variabel objek adalah produk Microsoft.

Misalnya dalam objek excel adalah "Lembar Kerja, Buku Kerja, Rentang". Objek Microsoft adalah "MS Word, MS PowerPoint, dan MS Outlook".

2.Jenis Data Numerik

Tipe data ini hanya dapat menyimpan data numerik.

Di bawah ini adalah tipe data numerik Yaitu

Byte, Integer, Long, Single, Double, Date, Currency, Decimal.

Byte:

 Ini adalah variabel kapasitas kecil di mana variabel yang dideklarasikan dapat menyimpan nilai dari 0 hingga 255.

Integer:

Ini adalah versi perbaikan dari tipe data Byte. Ini dapat menyimpan nilai dari -32768 hingga 32768. Jika ada nilai desimal yang diberikan, maka akan dikonversi ke nilai integer terdekat. Misalnya, 5,55 akan dikonversi menjadi 6 dan 5,49 akan dikonversi menjadi 5.

Long

 Di mana tipe data Integer membatasi nilainya pada 32768 LONG dapat menampung angka yang sangat panjang dari -2,147.483.648 hingga 2.147.483.648.

Single

 Jenis data tunggal dapat menampung dua tempat desimal -3.402823E + 38 hingga -1.401298E-45 untuk nilai negatif dan 1.401298E-45 hingga 3.402823E + 38 untuk nilai positif.

Double

Jenis data ganda dapat menampung lebih dari dua tempat desimal yaitu hingga 14 tempat desimal. -1.79769313486232e + 308 hingga -4.94065645841247E-324 untuk nilai negatif dan 4.94065645841247E-324 hingga 1.79769313486232e + 308 untuk nilai positif.

Date

 Tipe data ini hanya dapat menyimpan nilai DATE.

Currency

Tipe data ini dapat menyimpan nilai dari -922.337.203.685.477.5808 hingga 922.337.203.685.447.5807.

Decimal

 Jenis data desimal dapat menampung hingga 28 tempat desimal. Ini dapat berlaku dari +/- 79.228.162.514.264.337.593.543.950.335 jika tidak ada desimal yang digunakan +/- 7.9228162514264337593543950335.

Contoh Penerapannya

Sub Sample1()

Dim A As Integer

Dim B As Integer

Dim C As Double

A = 5

B = 10

C = A / B

MsgBox C

End Sub

    Sub Examples()

  '1. VARIABEL DASAR

    'Mendeklarasikan variabel dasar

    Dim name As String

    Dim count As Long

    Dim amount As Currency

    Dim eventdate As Date

    Dim userid As String * 8

  

    ' 2. VARIANT

    Dim var As Variant

    Dim var

   

    ' 3. OBJECT

        'Mendeklarasikan suatu objek

    Dim sh As Worksheet

    Dim wk As Workbook

    Dim rg As Range

  

    Dim coll1 As New Collection

    Dim o1 As New Class1

  

    Dim coll2 As Collection

    Dim o2 As Class1

  

    Set coll2 = New Collection

    Set o2 = New Class1

  

    Dim dict As Object

    Set dict = CreateObject("Scripting.Dictionary")

  

    ' 4. ARRAY

    Dim arrScores(1 To 5) As Long

    Dim arrCountries(0 To 9) As String

  

    Dim arrMarks() As Long

    Dim arrNames() As String

  

    ReDim arrMarks(1 To 10) As Long

    ReDim arrNames(1 To 10) As String

End Sub