DIM Statemem - excel Vba

               STATEMEN DIM

                 Pengertian DIM

DIM adalah bagian dari versi awal bahasa komputer BASIC (Beginner's All Purpose Symbolic Instruction Code) yang dikembangkan oleh dua matematikawan, John George Kemeny dan Tom Kurtzasat Dartmouth College, pada tahun 1964.

FUNGSI  DIM

FUNGSI  DIM  adalah Untuk mendeklarasikan banyak jenis variabel dalam BASIC atau VBA  ,Termasuk seluruh bilangan (byte, integer atau panjang), bilangan floating-point (tunggal atau ganda), string (alfanumerik), mata uang, tanggal, Boolean dan objek.

Asal Mula DIM

DIM awalnya berdiri untuk "Dimensi" mengacu pada ukuran array (matriks variabel) atau jenis variabel yang digunakan. Lebih umum, programmer mengacu pada DIM sebagai "menyatakan" jenis variabel.
DIM  sangat pentingnya dalam versi Visual Basic, termasuk VBA di Excel
jika jenis variabel tidak dideklarasikan, default ke tipe "varian". maka
ketika kode dijalankan, jika program harus menentukan  jenis variabelnya, bila tdk ini akan  memperlambat kerja  aplikasi.

Syarat penting dalam penggunaan DIM adalah

1.Menempatkan kata-kata "Option Explicit" (tanpa tanda kutip) pada awal modul kode di VBA di Excel akan menjebak setiap upaya penggunaan variabel yang tidak dideklarasikan. Ini akan mencegah masalah nanti .

Menggunakan statement Dim sesuai type datanya
1.Type data text

Dim passpor As String
Dim Nama As String

2.Type data angka

Dim firstnum As Integer
Dim secondnum As Integer
Dim total As Integer

3.Type data tingkat

Dim Nomor As Long,
Dim Baris As Long

4.Type data tanggal

Dim BirthDay As Date
Dim Lahir As Date

5.Type data Mata uang

Dim Income As Currency
Dim gaji As Currency

Contoh Penggunaan Dim
Contoh1

Sub name ()
Dim YourName As String
Dim BirthDay As Date
Dim Income As Currency
YourName = "Alex"
BirthDay = "1 April 1980"
Income = 1000
Range("b1") = YourName
Range("b2") = BirthDay
Range("c3") = Income
End Sub

Contoh2
  
Sub Nomor_urut()
Dim Nomor As Long,
Dim Baris As Long
lNomor = 1
For lBaris = 1 To 5 Step 1
Sheets("Dataku").Range("A" & lBaris).Value = lNomor
lNomor = lNomor + 1
Next lBaris
End Sub
                                                             
Selesai
Semoga bermanfaat