Bu eğitimde, VBA kullanarak hücreleri birleştirmenin farklı yollarına bakacağız.
VBA Kullanarak Hücreleri Birleştirme
Range.Merge yöntemini kullanarak VBA'daki hücreleri birleştirebilirsiniz. Aşağıdaki kod, A1:C1 hücrelerini birleştirecektir:
12345 | Alt BirleşenHücreler()Aralık("A1:C1").BirleştirAlt Bitiş |
Sonuç:
VBA Kullanarak Hücreleri Birleştirme
Range.UnMerge yöntemini kullanarak birleştirilmiş bir hücre aralığını ayırabilirsiniz. A1:D1 hücre aralığını birleştirdiğinizi varsayalım. Hücreleri ayırmak için aralıktaki hücre başvurularından birini kullanabilirsiniz. Aşağıdaki kod, A1:D1 hücrelerini nasıl ayıracağınızı gösterir, bu durumda B1 hücresini kullanıyoruz:
12345 | Alt UnmergeCells()Aralık("B1").Birleştirmeyi KaldırAlt Bitiş |
Daha Fazla Birleştirme Örneği
VBA Kullanarak Satırları Birleştirme
Birleştirmek istediğiniz satır numaralarını belirterek VBA kullanarak satırları birleştirebilirsiniz. Aşağıda gösterilen A1 hücresindeki metne sahibiz:
Aşağıdaki kod, 1-4 satırlarını birleştirecektir:
12345 | Alt MergeRows()Aralık("1:4").BirleştirAlt Bitiş |
Sonuç:
VBA Kullanarak Sütunları Birleştirme
Sütunları VBA ve sütun harflerini kullanarak birleştirebilirsiniz. Aşağıdaki kod, A:C sütunlarını birleştirecektir.
12345 | Sub MergeColumns()Aralık("A:C").BirleştirAlt Bitiş |
Sonuç:
Hücre İçeriğini Yatay Olarak Birleştir ve Ortala
Hücre içeriğini bir hücre aralığında yatay olarak birleştirebilir ve ortalayabilirsiniz. İlgilenilen hücreleri birleştirmeniz ve ayrıca aralık nesnesinin yatay hizalama özelliğini merkeze ayarlamanız gerekir. Aşağıda gösterildiği gibi A1 hücresindeki metne sahibiz:
Aşağıdaki kod, A1:D1 hücre aralığını birleştirir ve A1 hücresinin içeriğini bu hücre aralığında yatay olarak ortalar:
123456 | Sub MergeandCenterContentsHorizontally()Aralık("A1:D1").BirleştirAralık("A1:D1").Yatay Hizalama = xlCenterAlt Bitiş |
Sonuç:
Hücre İçeriğini Dikey Olarak Birleştir ve Ortala
Hücre içeriğini bir hücre aralığında dikey olarak birleştirebilir ve ortalayabilirsiniz. İlgilenilen hücreleri birleştirmeniz ve ayrıca aralık nesnesinin dikey hizalama özelliğini merkeze ayarlamanız gerekir. Aşağıda gösterildiği gibi A1 hücresindeki metne sahibiz:
Aşağıdaki kod, A1:A4 hücre aralığını birleştirir ve A1 hücresinin içeriğini bu hücre aralığı boyunca dikey olarak ortalar:
123456 | Sub MergeandCenterContentsVertically()Aralık("A1:A4").BirleştirRange("A1:D1").VerticalAlignment = xlCenterAlt Bitiş |
Sonuç:
Hücre Aralığındaki Hücreleri Birleştirme
Hücre aralığındaki hücreleri birleştirebilirsiniz. Merge yönteminin isteğe bağlı Across parametresini True olarak ayarlamanız gerekir. Aşağıda gösterildiği gibi A1 hücresindeki metne sahibiz:
Aşağıdaki kod, A1:D1 hücre aralığını birleştirecektir:
12345 | Alt MergeCellsAcross()Aralık("A1:D1").Karşısında Birleştir:=DoğruAlt Bitiş |
Sonuç: