Modül 2: VBA'nın Temelleri

Sabitler (Const) Nedir?

Şu ana kadar Dim komutuyla "Değişken" kutuları oluşturduk. Adı üzerinde, bu kutuların içindeki değerler kod çalışırken değişebilir. Ancak Pi sayısı (3.14) veya KDV Oranı (%20) gibi verilerin kodun ilerleyen satırlarında yanlışlıkla değiştirilmesi tam bir felakettir.

Const (Sabit) Nasıl Tanımlanır?

İçindeki değeri mühürleyip kilitlemek istediğiniz kutuları Dim yerine Const (Constant - Sabit) komutuyla oluşturursunuz. Tanımlandığı satırda içindeki değeri vermek zorundasınız. Bir daha asla değiştirilemez!

Yazım Kuralı ve Profesyonel İpucu

Sabitler şu formatta tanımlanır:
Const KDV_ORANI As Double = 0.20

Pro İpucu: Profesyonel yazılımcılar, binlerce satır kodun arasında hangisinin değişken hangisinin sabit olduğunu tek bakışta anlamak için Sabit isimlerini TAMAMEN BÜYÜK HARFLE yazarlar. (Örn: PI_SAYISI, MAX_SATIR).

Canlı Simülatör: Sabit KDV Koruması

Aşağıdaki makroda net fiyata KDV ekleyerek brüt fiyatı buluyoruz. KDV oranı bir Const ile mühürlenmiştir.
Önce Kodu Çalıştır butonuna basın. Ardından, kodun ortasında birinin KDV oranını bozmaya çalıştığı o meşhur senaryoyu görmek için Sabiti Bozmayı Dene butonuna tıklayın.

Visual Basic Editörü

Module1 (Code)

Sub BrütFiyatHesapla()
    ' Mühürlü Sabit (Değiştirilemez)
    Const KDV_ORANI As Double = 0.20

    ' Normal Değişken (Değiştirilebilir)
    Dim netFiyat As Double
    netFiyat = 5000

    ' Hatalı Müdahale Girişimi (Simülasyonda test edin)
    ' KDV_ORANI = 0.50

    ' Hesapla ve Yazdır
    Range("B1").Value = netFiyat
    Range("B2").Value = KDV_ORANI
    Range("B3").Value = netFiyat * (1 + KDV_ORANI)
End Sub

Canlı Excel Sayfası

Net Fiyat:

KDV (Sabit):

Brüt Toplam:

Önceki VBA Dersleri If - Then - Else Koşulları

Excel Formül

Sabitler (Const) Nedir?

Const (Sabit) Nasıl Tanımlanır?

Yazım Kuralı ve Profesyonel İpucu

Canlı Simülatör: Sabit KDV Koruması