İçindekiler
Sayfanın Var Olup Olmadığını Kontrol Edin
Bir Sayfa veya Aralık (belirli bir sayfada) olup olmadığını test edecek bir işlev oluşturduk. Aralık testi, bir sayfada belirli bir adlandırılmış aralığın olup olmadığını kontrol etmek istiyorsanız kullanışlıdır.
| 123456789101112 | 'Bir Sayfada Bir Aralığın Olup Olmadığını Test Edin.'Sayfa olup olmadığını test etmek için aralığı boş bırakınGirdiler:WhatSheet - Sayfanın Dize Adı (ör. "Sayfa1")WhatRange (İsteğe bağlı, Varsayılan = "A1") - Aralığın Dize Adı (ör. "A1")İşlev RangeExists(WhatSheet As String, İsteğe Bağlı ByVal WhatRange As String = "A1") Boolean OlarakAralık olarak Dim testiHatada Devam Et SonrakiSet testi = ActiveWorkbook.Sheets(WhatSheet).Range(WhatRange)RangeExists = Err.Number = 0Hatada GoTo 0Bitiş İşlevi |
İşlevi bir VBA Kod Modülüne yerleştirin ve aşağıdaki gibi alt prosedürleri kullanarak ona erişebilirsiniz:
Sayfanın Var Olup Olmadığını Kontrol Edin
| 123 | Alt Test_SheetExists()MsgBox RangeExists("kurulum")Alt Bitiş |
Bir Sayfada Aralığın Olup Olmadığını Kontrol Edin
| 123 | Alt Test_RangeExists()MsgBox RangeExists("kurulum", "rngInput")Alt Bitiş |
RangeExists İşlevini Ayarlama
Sayfanın Başka Bir Çalışma Kitabında Olup Olmadığını Kontrol Edin
Yukarıdaki işlev ActiveWorkbook'a (şu anda etkin olan çalışma kitabı) baktı. Bunun yerine İşlevi aşağıdaki gibi belirli bir çalışma kitabına bakacak şekilde ayarlayabilirsiniz:
| 12345678910111213 | 'Bir Sayfada Bir Aralığın Olup Olmadığını Test Edin.'Sayfa olup olmadığını test etmek için aralığı boş bırakınGirdiler:WhatBook - *Çalışma Kitabı Nesnesi*WhatSheet - Sayfanın Dize Adı (ör. "Sayfa1")WhatRange (İsteğe bağlı, Varsayılan = "A1") - Aralığın Dize Adı (ör. "A1")İşlev RangeExists(WhatBook As Workbook, WhatSheet As String, İsteğe Bağlı ByVal WhatRange As String = "A1") Boolean olarakAralık olarak Dim testiHatada Devam Et SonrakiSet testi = WhatBook.Sheets(WhatSheet).Range(WhatRange)RangeExists = Err.Number = 0Hatada GoTo 0Bitiş İşlevi |
Uygulama:
| 1234567 | Alt Test_WBSsheet_Exists()Çalışma Kitabı Olarak Dim wbwb = ActiveWorkbook'u ayarlaMsgBox RangeExists(wb, "Sayfa1")Alt Bitiş |
