ExecuteExcel4Macro

Söz dizimi​

sonuc = Application.ExecuteExcel4Macro(String)

• String: Zorunludur. Çalıştırılacak Excel 4.0 makro işlevi ya da formülü metin olarak verilir. Başına eşittir işareti konmaz. Başvurular A1 değil R1C1 biçiminde yazılır. Metin en fazla 255 karakter olabilir. Varsayılan değeri yoktur.

Başvuru yazımı ve dönüş değeri​

• Etkin çalışma kitabı: Çalışma kitabı adı verilmeyen başvurular, o anda etkin olan çalışma kitabına göre çözülür. Bu yüzden kodda önce ilgili sayfayı Activate ile etkinleştirmek iyi bir alışkanlıktır.
• Kapalı dosya: Kapalı bir çalışma kitabındaki hücre değeri, klasör yolu, köşeli parantez içindeki dosya adı ve sayfa adından oluşan tam başvuruyla okunabilir. Böylece dosyayı açmadan tek hücre değeri alınır.
• Dizi dönüşü: GET.WORKBOOK(1) gibi işlevler birden çok değer döndürür. Bu durumda sonuç bir diziye atanır ve LBound ile UBound ile gezilir.
• Hata: Geçersiz bir işlev ya da bağımsız değişken verilirse yöntem ya hata değeri döndürür ya da çalışma zamanı hatası oluşturur. Sonucu IsError ile denetleyin.

Sık kullanılan XLM işlevleri​

• GET.CELL(tür, başvuru): Hücre hakkında bilgi verir. Tür sayısına göre sonuç değişir: 5 hücrenin içeriğini, 6 formül metnini, 7 sayı biçim kodunu, 17 satır yüksekliğini verir. Tür 20 ise yazı tipi boyutunu değil, mantıksal bir değer döndürür (Örnek 2'de YANLIŞ). Yazı tipi adı ve boyutu gibi bilgileri tür sayılarıyla aramak yerine Font nesnesinden okumak daha güvenlidir.
• GET.WORKBOOK(1): Çalışma kitabındaki tüm sayfaların adlarını, çalışma kitabı adıyla birlikte dizi olarak döndürür. Gizli sayfalar da listede yer alır.
• Genel işlevler: SUM, MAX, COUNT gibi sıradan çalışma sayfası işlevleri de aynı yöntemle R1C1 başvurularıyla çalıştırılabilir.

1. R1C1 başvurusuyla toplam ve en yüksek değer​

Option Explicit

Sub ToplamVeEnYuksek()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Satışlar")
    ws.Activate

    ' Sayfa adı tek tırnak içinde, aralık R1C1 biçiminde yazılır
    ws.Range("C2").Value = ExecuteExcel4Macro("SUM('" & ws.Name & "'!R2C2:R6C2)")
    ws.Range("D2").Value = ExecuteExcel4Macro("MAX('" & ws.Name & "'!R2C2:R6C2)")
End Sub

2. GET.CELL ile sayı biçimi ve yazı tipi boyutu​

Option Explicit

Sub BicimBilgisiOku()
    Dim ws As Worksheet
    Dim r As Long
    Dim adres As String

    Set ws = ThisWorkbook.Worksheets("Fiyat Listesi")
    ws.Activate

    For r = 2 To 6
        ' Her satırdaki fiyat hücresinin R1C1 adresi
        adres = "'" & ws.Name & "'!R" & r & "C2"

        ' 7: sayı biçimi, 20: yazı tipi boyutu
        ws.Cells(r, 3).Value = ExecuteExcel4Macro("GET.CELL(7," & adres & ")")
        ws.Cells(r, 4).Value = ExecuteExcel4Macro("GET.CELL(20," & adres & ")")
    Next r
End Sub

3. Sayfa adlarını GET.WORKBOOK ile listeleme​

Option Explicit

Sub SayfaAdlariniListele()
    Dim ws As Worksheet
    Dim arr As Variant
    Dim i As Long
    Dim k As Long
    Dim ad As String

    Set ws = ThisWorkbook.Worksheets("Sayfa Listesi")
    ws.Activate

    ' Tüm sayfa adları dizi olarak gelir
    arr = ExecuteExcel4Macro("GET.WORKBOOK(1)")

    ' Tek sayfa varsa dizi yerine metin dönebilir
    If Not IsArray(arr) Then arr = Array(arr)

    k = 0
    For i = LBound(arr) To UBound(arr)
        k = k + 1
        ' Köşeli parantezli çalışma kitabı adını at, yalnız sayfa adını al
        ad = Mid(arr(i), InStr(arr(i), "]") + 1)
        ws.Cells(k + 1, 1).Value = k
        ws.Cells(k + 1, 2).Value = ad
    Next i

    ws.Range("C2").Value = k
End Sub

Kullanırken dikkat edin​

• Eşittir işareti kullanmayın: Yöntemin bağımsız değişkeni eşittir işaretiyle başlamamalıdır. Örneğin GET.WORKBOOK(1) yazın, eşittir işaretli biçimi yazmayın. Aksi halde işlev tanınmayabilir ve hata alırsınız.
• R1C1 biçimini unutmayın: Metin içindeki başvurular A1 biçiminde değil, R1C1 biçiminde yazılmalıdır. Satır ve sütun numarasını döngü değişkenlerinden birleştirerek oluşturmak en pratik yoldur.
• 255 karakter sınırı: Bağımsız değişken olarak verilen metin en fazla 255 karakter olabilir. Uzun klasör yolları ve sayfa adları bu sınırı aşabilir. Böyle durumlarda başvuruyu kısaltın ya da başka bir yöntem seçin.
• Sayfa etkin olmalıdır: Çalışma kitabı adı verilmeyen başvurular etkin çalışma kitabına göre çözülür. Kodu çalıştırmadan önce Activate ile ilgili çalışma kitabını ve sayfayı etkinleştirin. Yoksa beklenmedik bir kitabın değeri okunabilir.
• Güvenlik ve uyumluluk: Excel 4.0 makro dili eski bir teknolojidir. Güvenlik ayarlarında bu makrolar için ayrı bir denetim bulunur ve kötü amaçlı dosyalarda sık kötüye kullanılır. Kurumsal ortamlarda bu nedenle kısıtlanmış olabilir. Mümkünse Range, Font, Interior gibi VBA nesne modeli karşılıklarını tercih edin.
• İlgili konular:
  • Evaluate: Formül metnini A1 biçiminde çalıştıran yöntem
  • Application.Run: Makro çalıştırma yöntemi
  • Range.NumberFormat: Sayı biçim kodunu okuma ve yazma
  • Range.Font: Yazı tipi özellikleri
  • IsError: Hata değeri denetimi
  • LBound ve UBound: Dizi sınırları
  • Formüller > Tanımlı Adlar > Ad Yöneticisi (Formulas > Defined Names > Name Manager): Ad içinde XLM işlevi kullanımı
  • DOLAYLI: Metinden başvuru oluşturan çalışma sayfası işlevi