Bu öğretici, Excel'de satır ve sütun eklemek için VBA'nın nasıl kullanılacağını gösterecektir.
Satır veya sütun eklemek için kullanacağız Yöntem Ekle.
Tek Satır veya Sütun Ekle
Yeni Satır Ekle
Tek bir satır eklemek için Satırlar Nesnesini kullanabilirsiniz:
| 1 | Satırlar(4).Ekle |
Veya Range Object'i EntireRow ile birlikte kullanabilirsiniz:
| 1 | Aralık("b4").EntireRow.Insert |
Yeni Sütun Ekle
Satır eklemeye benzer şekilde, bir sütun eklemek için Sütunlar Nesnesini kullanabiliriz:
| 1 | Sütunlar(4).Insert |
Veya EntireColumn ile birlikte Range Object:
| 1 | Range("b4").EntireColumn.Insert |
Birden Çok Satır veya Sütun Ekle
Birden Çok Satır Ekle
Satırlar Nesnesi ile birden çok satır eklerken, satırları tırnak içine almalısınız:
| 1 | Satırlar("4:6").Ekle |
Aralık Nesnesi ile birden çok satır eklemek, tek bir satırla aynı şekilde çalışır:
| 1 | Range("b4:b6").EntireRow.Insert |
Birden Çok Sütun Ekle
Sütun Nesnesi ile birden çok sütun eklerken sütunu girin Edebiyat alıntılarda:
| 1 | Sütunlar("B:D").Insert |
Aralık Nesnesi ile birden çok sütun eklemek, tek bir sütunla aynı şekilde çalışır:
| 1 | Range("b4:d4").EntireColumn.Insert |
Ekle - Shift & CopyOrigin
NS Yöntem Ekle iki isteğe bağlı argümanı vardır:
- Vardiya - Hücreleri hangi yöne kaydırmak için
- KopyalaOrigin - Hangi hücre biçimlendirmesinin kopyalanacağı (yukarıda, aşağıda, solda veya sağda)
Tüm satırları veya sütunları eklerken Shift bağımsız değişkeni alakasız. Yalnızca aşağı kaydırmayı veya sağa kaydırmayı belirtmenize izin verir:
- xlShiftDown - Hücreleri aşağı kaydır
- xlShiftToSağa - Hücreleri sağa kaydır
Gördüğünüz gibi, yukarı veya sağa kaydıramazsınız.
NS KopyalaOrigin argümanın iki potansiyel girişi vardır:
- xlFormatSoldanYukarıdan - (0) Yeni eklenen hücreler, yukarıdaki veya soldaki hücrelerden biçimlendirme alır
- xlFormatSağdanAlttan (1) Yeni eklenen hücreler, aşağıdaki veya sağdaki hücrelerden biçimlendirme alır.
Bazı örneklere bakalım KopyalaOrigin argüman. İşte ilk verilerimiz:
Bu örnek, biçimlendirmeyi yukarıdaki satırdan alarak bir satır ekleyecektir.
| 1 | Satırlar(5).Insert , xlFormatFromLeftOrAbove |
Bu örnek, biçimlendirmeyi aşağıdaki satırdan alarak bir satır ekleyecektir.
| 1 | Satırlar(5).Insert , xlFormatFromRightOrBelow |
Diğer Ekleme Örnekleri
Kopyalanan Satırları veya Sütunları Ekle
Kopyalanan bir satır eklemek isterseniz, aşağıdaki gibi bir kod kullanırsınız:
| 12 | Aralık("1:1").KopyalaAralık("5:5").Ekle |
Burada Satır 1'i kopyalıyoruz ve Satır 5'e yerleştiriyoruz.
Hücre Değerine Dayalı Satır Ekle
Bu, hücre değerlerine dayalı olarak satırlar ekleyerek bir aralıkta dolaşacaktır:
| 1234567891011 | Alt InsertRowswithSpecificValue()Aralık olarak hücreyi karartAralıktaki Her Hücre İçin("b2:b20")Eğer cell.Value = "insert" isecell.EntireRow.InsertBitirSonraki hücreAlt Bitiş |
Satırları veya Sütunları Sil
Satırları veya sütunları silmek için Silmek yöntem.
| 1234567 | Satırlar(1).SilRange("a1").EntireRow.DeleteSütunlar(1).SilRange("a1").EntireColumn.Delete |
