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