Örnek: myText değişkenini yazı olarak tanımlıyoruz:
Dim myText As String
Örnek: Toplam satır sayısını aşağıdaki gibi bulup değişkene atıyoruz:
Sub makro() Dim lastrow As Long lastrow = Rows.Count Debug.Print lastrow End Sub
Cevap: 1048576
Farklı değişkenleri virgül ile ayırarak tanımlamak
Sub makro() Dim last_row As Long, last_column As Long last_row = Rows.Count last_column = Columns.Count Debug.Print last_row Debug.Print last_column End Sub
Cevap:
1048576
16384
Dizi olarak değişken tanımlama
Dim my_month(1 To 12) As String my_month(1) = "Ocak" my_month(2) = "Şubat" my_month(12) = "Aralık" 'Bu şekilde tanımlanırsa başlangıç numarası 0 olur: Dim my_month(11) As String
2 boyutlu dizi olarak değişken tanımlama
Dim aylik_satislar(1 To 12, 1 To 3) As Variant
|
şirket A |
şirket B |
şirket C |
|
|
ocak |
(1,1) |
(1,2) |
(1,3) |
|
şubat |
(2,1) |
(2,2) |
(2,3) |
|
mart |
(3,1) |
(3,2) |
(3,3) |
|
nisan |
(4,1) |
(4,2) |
(4,3) |
|
mayıs |
(5,1) |
(5,2) |
(5,3) |
|
haziran |
(6,1) |
(6,2) |
(6,3) |
|
temmuz |
(7,1) |
(7,2) |
(7,3) |
|
ağustos |
(8,1) |
(8,2) |
(8,3) |
|
eylül |
(9,1) |
(9,2) |
(9,3) |
|
ekim |
(10,1) |
(10,2) |
(10,3) |
|
kasım |
(11,1) |
(11,2) |
(11,3) |
|
aralık |
(12,1) |
(12,2) |
(12,3) |
Sabit değişkenler tanımlama
Const my_yazi As String = "sabit yazı" Const my_sayi As Long = 9999
