FormulaLocal

Söz dizimi​

' Okuma
Değişken = ifade.FormulaLocal

' Yazma
ifade.FormulaLocal = Değer

• ifade: Bir Range nesnesini veren ifade; zorunludur. Örneğin Range("C2") ya da ActiveCell.
• Değer: Yazma sırasında kullanılan Variant türünde değer; zorunludur. Başında eşittir işareti olan bir metin yerel dilde yazılmış formül sayılır. Eşittir işaretiyle başlamayan metin, sayı ya da tarih normal bir sabit değer olarak girilir.

Dönüş değeri ve davranışı​

• Okurken: Hücrede formül varsa başında eşittir işareti olan metin döner. Formül yoksa hücrenin değeri döner, boş hücrede boş metin elde edilir.
• Çok hücreli aralık: Aralığın FormulaLocal değerini okumak tek bir metin değil, hücre sayısı kadar öğesi olan bir dizi verir. Bu yüzden formülü okurken genellikle tek hücre kullanın.
• Çok hücreli aralığa yazma: Tek bir metin atarsanız formül, aralığın sol üst hücresine girilmiş gibi kabul edilir ve göreli başvurular diğer hücrelere uyarlanır. Yani aralığı doldurmak için döngü gerekmez.
• Hatalı metin: İşlev adı ya da ayırıcı kullanıcının diline uymuyorsa 1004 numaralı çalışma zamanı hatası oluşur. İngilizce adlarla yazılmış bir formülü Türkçe Excel'de FormulaLocal ile atamaya çalışmak tipik örnektir.
• Dinamik dizi: Microsoft 365'teki dinamik dizi davranışı için Formula2Local özelliği vardır. FormulaLocal eski, örtük kesişim davranışıyla çalışır.

Formula ile farkı​

=EĞER(B2>100;"Yüksek";"Düşük")

=IF(B2>100,"High","Low")

1. Formülün yerel ve İngilizce metnini yan yana listeleme​

Option Explicit

Sub FormulleriListele()
    Dim ws As Worksheet
    Dim i As Long

    Set ws = ActiveSheet

    ' 2. satırdan 6. satıra kadar sonlu döngü
    For i = 2 To 6
        ' Yerel dildeki formül metni (kesme işareti metin olarak saklar)
        ws.Cells(i, 5).Value = "'" & ws.Cells(i, 4).FormulaLocal
        ' İngilizce formül metni
        ws.Cells(i, 6).Value = "'" & ws.Cells(i, 4).Formula
    Next i
End Sub

2. Yerel formülü aralığa tek atamayla yazma​

Option Explicit

Sub DurumFormuluYaz()
    Dim ws As Worksheet
    Dim yerel As String

    Set ws = ActiveSheet

    ' Formülü önce dilden bağımsız (İngilizce) yaz
    ws.Range("E2").Formula = "=IF(D2>=1,""Hedefte"",""Hedef altı"")"

    ' Aynı formülün yerel dildeki metnini oku
    yerel = ws.Range("E2").FormulaLocal

    ' Yerel metni tüm aralığa tek atamayla yaz;
    ' göreli başvurular (D2, D3, ...) otomatik uyarlanır
    ws.Range("E2:E7").FormulaLocal = yerel
End Sub

3. Yerel formül ve liste ayırıcısını sayfaya yazma​

Option Explicit

Sub YerelBicimBilgisi()
    Dim hucre As Range
    Dim ws As Worksheet

    Set ws = ActiveSheet

    For Each hucre In ws.Range("C2:C5")
        ' Formülün yerel metni (metin olarak saklanır)
        ws.Cells(hucre.Row, 4).Value = "'" & hucre.FormulaLocal
        ' Bağımsız değişkenleri ayıran karakter
        ws.Cells(hucre.Row, 5).Value = Application.International(xlListSeparator)
    Next hucre
End Sub

Kullanırken dikkat edin​

• Dile bağımlılık: FormulaLocal ile yazan bir makro, başka dilde Excel kullanan birinin bilgisayarında 1004 hatası verebilir. Makroyu başkalarıyla paylaşacaksanız formülü Formula ile yazın. FormulaLocal kullanacaksanız metni elle yazmak yerine örnek 2'deki gibi Excel'den okuyun.
• Ayırıcılar bölgesel ayarlara bağlıdır: Bağımsız değişken ayırıcısı arayüz dilinden değil, Windows bölgesel ayarlarındaki liste ayırıcısından gelir. Türkçe ayarlarda genellikle noktalı virgül, ondalık ayırıcı ise virgüldür. Bu ayarlar değiştirilmişse yerel formül metni de değişir. Mevcut ayırıcıyı öğrenmek için Application.International özelliğini kullanabilirsiniz.
• Formül metnini sayfaya yazarken kesme işareti: FormulaLocal ile okuduğunuz metni bir hücreye Value ile yazarsanız Excel metni yeniden formül olarak yorumlar. Metni olduğu gibi göstermek için başına kesme işareti ekleyin ya da hücrenin sayı biçimini önce Metin yapın.
• Çok hücreli aralıklarda okuma: Birden fazla hücreli bir aralığın FormulaLocal değeri dizi olarak döner. Bu diziyi doğrudan bir metin değişkenine atamaya çalışırsanız tür uyuşmazlığı hatası alırsınız. Hücreleri tek tek okuyun ya da For Each döngüsü kullanın.
• Yazarken sonuç hücrede formüle dönüşür: Atanan metin eşittir işaretiyle başlıyorsa formül olarak işlenir. Eşittir işareti olmayan bir metin sabit değer olur. Bu nedenle yalnızca formül yazmak istediğinizde metnin başında eşittir işareti olduğundan emin olun.
• İlgili konular:
  • Range.Formula: Formülü İngilizce işlev adlarıyla okur ve yazar.
  • Range.FormulaR1C1 ve FormulaR1C1Local: Formülü R1C1 başvuru biçiminde işler.
  • Range.Formula2 ve Formula2Local: Dinamik dizi davranışıyla formül yazar.
  • Range.FormulaArray: Dizi formülü girer.
  • Range.HasFormula: Hücrede formül olup olmadığını denetler.
  • Application.International: Liste ve ondalık ayırıcı gibi bölgesel ayarları verir.
  • Range.Value ve Range.Text: Formül yerine sonucu okumak için kullanılır.
  • TOPLA, EĞER ve YUVARLA: Yerel formül metninde karşılaşacağınız Türkçe işlev adlarından bazılarıdır.