ThisWorkbook

Söz dizimi​

Set kitap = Application.ThisWorkbook
' Kısa yazım (aynı sonucu verir)
Set kitap = ThisWorkbook

• Application (ifade): Application nesnesini temsil eden ifade; isteğe bağlıdır, yazılmazsa içinde bulunulan Excel uygulaması kullanılır.
• Dönüş değeri: Kodun bulunduğu çalışma kitabını gösteren bir Workbook nesnesi. Özellik salt okunurdur, yani ThisWorkbook değerine başka bir kitap atayamazsınız.
• Parametre: Özelliğin parametresi yoktur; sonrasında Worksheets, Names, Close gibi Workbook üyelerini nokta ile kullanırsınız.

ThisWorkbook ile ActiveWorkbook farkı​

• Tek kitapla çalışırken: İkisi çoğunlukla aynı kitabı gösterir.
• Birden çok kitap açıkken: Başka bir kitabı Workbooks.Open ile açıp etkinleştirdiğinizde ActiveWorkbook o kitaba geçer, ThisWorkbook ise makro kitabınız olarak kalır.
• Eklenti (.xlam) içinde: ThisWorkbook eklentinin kendi dosyasını gösterir; kullanıcının üzerinde çalıştığı kitap için ActiveWorkbook kullanılır.

Önemli üyeler ve kullanım yerleri​

• Worksheets / Sheets: Kitaptaki sayfalara adla ya da sıra numarasıyla erişim sağlar.
• Names: Kitaptaki tanımlı adları verir.
• Name: Kitabın dosya adını verir.
• Saved: Kitapta kaydedilmemiş değişiklik olup olmadığını belirtir.
• Save, Close, Activate: Kitabı kaydeden, kapatan ya da etkinleştiren yöntemlerdir.

ThisWorkbook modülü ve olay yordamları​

• Workbook_Open: Kitap açıldığında çalışır.
• Workbook_BeforeClose: Kitap kapanmadan önce çalışır.
• Workbook_SheetChange: Kitaptaki herhangi bir sayfada hücre değeri değiştiğinde çalışır; değişen sayfa Sh, hücre aralığı Target parametresiyle gelir.
• Workbook_SheetSelectionChange: Herhangi bir sayfada seçim değiştiğinde çalışır.

1. Kendi kitabınızdaki sayfaya güvenle yazma​

Option Explicit

Sub TutarHesapla()
    Dim ws As Worksheet
    Dim son As Long, i As Long

    ' Etkin kitap ne olursa olsun, kodun bulunduğu kitaptaki sayfa alınır
    Set ws = ThisWorkbook.Worksheets("Satış Özeti")

    ' A sütunundaki son dolu satırı bul
    son = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

    For i = 2 To son
        ws.Cells(i, "E").Value = ws.Cells(i, "C").Value * ws.Cells(i, "D").Value
    Next i
End Sub

2. Kitap bilgilerini okuma ve ActiveWorkbook ile karşılaştırma​

Option Explicit

Sub KitapBilgisi()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Kontrol")

    ' Kitaptaki çalışma sayfası sayısı
    ws.Range("B2").Value = ThisWorkbook.Worksheets.Count

    ' Kitaptaki ilk sayfanın adı
    ws.Range("B3").Value = ThisWorkbook.Worksheets(1).Name

    ' ThisWorkbook ile etkin kitap aynı nesne mi?
    ws.Range("B4").Value = (ThisWorkbook Is ActiveWorkbook)
End Sub

3. ThisWorkbook modülünde olay yordamı​

Option Explicit

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Dim alan As Range
    Dim hucre As Range

    ' Yalnızca Stok Takip sayfasındaki değişiklikler işlenir
    If Sh.Name <> "Stok Takip" Then Exit Sub

    Set alan = Intersect(Target, Sh.Range("B2:B11"))
    If alan Is Nothing Then Exit Sub

    On Error GoTo Bitir
    Application.EnableEvents = False

    For Each hucre In alan.Cells
        Sh.Cells(hucre.Row, "D").Value = hucre.Value * Sh.Cells(hucre.Row, "C").Value
    Next hucre

Bitir:
    Application.EnableEvents = True
End Sub

Kullanırken dikkat edin​

• ThisWorkbook yalnızca kodun bulunduğu kitabı gösterir: Başka bir dosyayı yönetecekseniz onu bir Workbook değişkenine atayın (örneğin Workbooks koleksiyonundan ya da Workbooks.Open sonucundan). ThisWorkbook başka bir kitaba çevrilemez.
• Sayfa başvurularında ThisWorkbook kullanın: Worksheets ya da Range başvurusunu kitap belirtmeden yazarsanız Excel etkin kitabı kullanır. Birden çok kitap açıkken bu, verilerin yanlış kitaba yazılmasına yol açabilir. Kendi sayfalarınız için başvuruyu ThisWorkbook.Worksheets ile başlatmak güvenlidir.
• Eklentilerde davranış: Kod bir Excel eklentisinde (.xlam) çalışıyorsa ThisWorkbook eklenti dosyasının kendisidir; kullanıcının açık kitabı değildir. Kullanıcı kitabı için ActiveWorkbook kullanın ve işlemden önce null olup olmadığını denetleyin.
• Olay yordamlarının yeri: Workbook_Open, Workbook_SheetChange gibi olay yordamları yalnızca ThisWorkbook modülünde çalışır. Standart modüle yazılırsa sıradan bir yordam olur ve olay oluştuğunda tetiklenmez. Olayları dışarıdan çağırmak yerine içinde değişiklik yapan yordamlarda Application.EnableEvents özelliğini kapattıysanız hata durumunda da yeniden açtığınızdan emin olun.
• Kod adı ile ThisWorkbook: ThisWorkbook, Excel'in kitaba verdiği sabit kod adıdır ve sayfa kod adları (Sheet1 gibi) gibi kitap adından bağımsızdır. Kitabı yeniden adlandırsanız ya da farklı kaydetseniz de kod içindeki ThisWorkbook başvurusu çalışmaya devam eder.
• İlgili konular:
  • ActiveWorkbook: Etkin çalışma kitabını döndüren özellik.
  • Workbooks: Açık tüm kitapların koleksiyonu; Open ve Add yöntemleri.
  • Workbook nesnesi: Name, Saved, Close, Save gibi kitap üyeleri.
  • Worksheets ve Sheets: Kitaptaki sayfa koleksiyonları.
  • Workbook_Open ve Workbook_SheetChange: ThisWorkbook modülündeki kitap olayları.
  • Application.EnableEvents: Olayların geçici olarak kapatılması.
  • ActiveSheet ve Me: Etkin sayfa ile içinde bulunulan modülün nesnesi.