VBA Seçim Aralığı / Hücreler

VBA, çalışma sayfasındaki bir hücreyi, hücre aralıklarını veya tüm hücreleri seçmenize olanak tanır. Seçim Nesnesini kullanarak seçili hücreyi veya aralığı değiştirebilirsiniz.

VBA Kullanarak Tek Bir Hücre Seçin

Select yöntemini kullanarak çalışma sayfasındaki bir hücreyi seçebilirsiniz. Aşağıdaki kod, ActiveWorksheet'te A2 hücresini seçecektir:

1	Aralık("A2").Seç

Veya

1	Hücreler(2, 1).Seç

Sonuç:

VBA Kullanarak Bir Hücre Aralığı Seçin

Select yöntemini ve Range nesnesini kullanarak bir çalışma sayfasında bir grup hücre seçebilirsiniz. Aşağıdaki kod A1:C5'i seçecektir:

1	Aralık("A1:C5").Seç

VBA Kullanarak Bitişik Olmayan Hücre Aralığı Seçin

VBA'da hücreleri veya aralıkları virgülle ayırarak yan yana olmayan hücreleri veya aralıkları seçebilirsiniz. Aşağıdaki kod, A1, C1 ve E1 hücrelerini seçmenize izin verecektir:

1	Aralık("A1, C1, E1").Seç

VBA'da bitişik olmayan aralık kümelerini de seçebilirsiniz. Aşağıdaki kod A1:A9 ve B11:B18'i seçecektir:

1	Aralık("A1:A9, B11:B18").Seç

Çalışma Sayfasındaki Tüm Hücreleri Seçin

VBA kullanarak bir çalışma sayfasındaki tüm hücreleri seçebilirsiniz. Aşağıdaki kod, bir çalışma sayfasındaki tüm hücreleri seçecektir.

1	Hücreler.Seç

Bir Satır Seçin

Row nesnesini ve seçmek istediğiniz satırın dizin numarasını kullanarak çalışma sayfasındaki belirli bir satırı seçebilirsiniz. Aşağıdaki kod, çalışma sayfanızdaki ilk satırı seçecektir:

1	Satırlar(1).Seç

Sütun Seçin

Sütun nesnesini ve seçmek istediğiniz sütunun dizin numarasını kullanarak çalışma sayfasındaki belirli bir sütunu seçebilirsiniz. Aşağıdaki kod, çalışma sayfanızda C sütununu seçecektir:

1	Sütunlar(3).Seç

Bir Sütundaki Son Boş Olmayan Hücreyi Seçin

Diyelim ki A1, A2, A3 ve A4 hücrelerinde verileriniz var ve sütundaki A4 hücresi olacak boş olmayan son hücreyi seçmek istiyorsunuz. Bunu yapmak için VBA'yı ve Range.End yöntemini kullanabilirsiniz.

NS Range.End Yöntemi yani dört argüman alabilir: xlToSol, xlToSağa, xlYukarı ve xlAşağı.

Aşağıdaki kod, A1 etkin hücre ise, bu durumda A4 olacak olan son boş olmayan hücreyi seçecektir:

1	Aralık("A1").Bitiş(xlDown).Seç

Bir Satırdaki Son Boş Olmayan Hücreyi Seçin

Diyelim ki A1, B1, C1, D1 ve E1 hücrelerinde verileriniz var ve satırdaki E1 hücresi olacak boş olmayan son hücreyi seçmek istiyorsunuz. Bunu yapmak için VBA'yı ve Range.End yöntemini kullanabilirsiniz.

Aşağıdaki kod, A1 etkin hücre ise, bu durumda E1 olacak olan boş olmayan son hücreyi seçecektir:

1	Aralık("A1").End(xlToRight).Seç

VBA'da Geçerli Bölgeyi seçin

kullanabilirsiniz CurrentRegion Özellik Belirli bir giriş hücresinin etrafındaki boş ve boş olmayan hücrelerden oluşan dikdörtgen bir aralığı seçmek için Aralık Nesnesi. A1, B1 ve C1 hücresinde verileriniz varsa, aşağıdaki kod A1 hücresinin etrafındaki bu bölgeyi seçer:

1	Aralık("A1").MevcutBölge.Seç

Böylece A1:C1 aralığı seçilecektir.

Başka Bir Hücreye Göreli Bir Hücre Seçin

kullanabilirsiniz Ofset Özelliği başka bir hücreye göre olan bir hücreyi seçmek için Aşağıdaki kod, A1 hücresine göre 1 satır ve 1 sütun olan B2 hücresini nasıl seçeceğinizi gösterir:

1	Aralık("A1").Ofset(1, 1).Seç

Excel'de Adlandırılmış Bir Aralık Seçin

seçebilirsiniz Adlandırılmış Aralıklar ilave olarak. Diyelim ki hücrelere A1:A4 Meyve adını verdiniz. Bu adlandırılmış aralığı seçmek için aşağıdaki kodu kullanabilirsiniz:

1	Aralık("Meyve").Seç

Başka Bir Çalışma Sayfasında Hücre Seçme

Başka bir çalışma sayfasındaki bir hücreyi seçmek için önce Worksheets.Activate yöntemini kullanarak sayfayı etkinleştirmeniz gerekir. Aşağıdaki kod, Sheet5 adlı sayfada A7 hücresini seçmenize izin verecektir:

12	Çalışma Sayfaları("Sayfa5").EtkinleştirAralık("A1").Seçin

VBA'da Seçim Nesnesini Değiştirme

Bir hücre veya hücre aralığı seçtikten sonra, bu hücreleri işlemek için Seçim Nesnesine başvurabilirsiniz. Aşağıdaki kod, A1:C1 hücrelerini seçer ve bu hücrelerin yazı tipini Arial, yazı tipi ağırlığını kalın, yazı tipi stilini italik ve dolgu rengini yeşil olarak ayarlar.

123456789

Alt FormatSeçimi()Aralık("A1:C1").SeçSelection.Font.Name = "Arial"Selection.Font.Bold = DoğruSelection.Font.Italic = TrueSelection.Interior.Color = vbGreenAlt Bitiş

Sonuç:

With… End With Construct'ı kullanma

Seçim Nesnesine sadece bir kez atıfta bulunmak için With / End With İfadesini kullanarak yukarıdaki örneği tekrarlayabiliriz. Bu, yazmaktan tasarruf sağlar ve genellikle kodunuzun okunmasını kolaylaştırır.

1234567891011

Alt UseWithEndWithSelection()Aralık("A1:C1").SeçSeçim ile.Font.Name = "Arial".Font.Bold = Doğru.Font.İtalik = Doğru.Interior.Color = vbGreenİle bitmekAlt Bitiş