Normalde excel çalışma sayfasında, biri klavye kısayolu ve diğeri sağ tıklama ve ekleme yöntemini kullanarak sütun eklemek veya eklemek için iki farklı yöntemimiz vardır, ancak VBA'da herhangi bir sütunu birbirine eklemek için ekle komutunu ve tüm sütun ifadesini kullanmamız gerekir. İşin püf noktası, tek bir sütun eklememiz gerekirse, tek bir sütun referansı veririz, ancak birden çok sütun için birden çok sütun referansı veririz.
VBA kullanarak Excel'e Sütunlar Ekleme
VBA kodunun bir parçası olarak, ihtiyaçlarımıza uyması için veri sayfamıza birkaç sütun eklememiz gerekebilir. Sütun eklemek, Ctrl + tuşlarına basarak çalışma sayfasındaki kolay kısayol tuşudur, ancak VBA kodu aracılığıyla yeni bir sütun eklemeye ne dersiniz? "VBA Sütun Ekle" hakkındaki bu makalede, size excel'de sütun ekleme sürecini gösterecek ve size farklı senaryo örnekleri göstereceğiz.
VBA Kullanarak Excel Çalışma Sayfasına Sütunlar Nasıl Eklenir?
COLUMNS özelliğini ve RANGE nesnesini kullanarak VBA'ya sütun ekleyebiliriz. Yeni bir sütun eklemek için neden sütunlara ve aralık nesnelerine ihtiyacımız var?
Yeni bir sütun eklemek için, VBA'nın mantığı nasıl anlayabileceğini hangi sütundan sonra eklememiz gerektiğini söylemeden belirlememiz gerekir.
Örneğin, sütunu B sütunundan sonra eklemek istiyorsanız, kodu bu şekilde oluşturabilirsiniz.
Sütunlar ("C")
Not: Seçilen hücre sağ tarafa kaydırılacağından, sonrasına sütun eklemek için C'yi kullanmamın nedeni.
Sütunlar belirlendikten sonra "Tüm Sütun" özelliğine erişmemiz gerekiyor.
Sütunlar ("C"). EntireColumn
Daha sonra "Ekle" yöntemini seçmemiz gerekiyor.
Sütunlar ("C"). EntireColumn.Insert
Bu, sütunu C sütunundan sonra ekleyecek ve mevcut C sütunu D'ye taşınacaktır.
Örnek 1 - VBA'da Aralık Nesnesini Kullanarak Sütunlar Ekleme
Şimdi, RANGE nesnesini kullanarak sütunu ekleme yoluna bakın. Bunun için aşağıdaki verileri bir örnek olarak düşünün.
Şimdi VBA'nın A sütunundan sonra sütunu eklemek istiyorum, kodu oluşturmak için aşağıdaki adımları izleyin.
Adım 1: Alt Prosedürü başlatın.
Adım 2: Aralık nesnesini açın .
Kod:
Sub ColumnInsert_Example1 () Range (End Sub
Adım 3: Şimdi çift tırnak içinde sütundan bahsedin .
Kod:
Alt SütunEk_Örnek1 () Aralık ("B: B") Son Alt
Adım 4: Şimdi Tüm Sütun özelliğini seçin.
Kod:
Sub ColumnInsert_Example1 () Range ("B: B"). Ent End Sub
Adım 5: Tüm Sütun özelliğini seçtikten sonra, "Ekle" yöntemini seçin.
Kod:
Sub ColumnInsert_Example1 () Range ("B: B"). EntireColumn.ins End Sub
Şimdi kodunuz buna benziyor.
Kod:
Sub ColumnInsert_Example1 () Range ("B: B"). EntireColumn.Insert End Sub
Kodu çalıştırın. Yeni B sütununu ekleyecektir.
Örnek 2 - Birden Çok Sütun Ekleme
Örneğin, A sütunundan sonra iki yeni sütun eklemek isterseniz, iki sütun adresinden bahsetmemiz gerekir.
Kod:
Sub ColumnInsert_Example1 () Range ("B: C"). EntireColumn.Insert End Sub
Yukarıdaki kod, A sütunundan sonra iki sütun ekleyecektir.
Örnek 3 - Yalnızca "Ekle" Yöntemiyle
Tüm Sütun özelliğine erişmeden tek yöntem olan "Ekle" yi kullanarak yeni bir sütun ekleyebiliriz. Bunun için "insert" yöntem sözdizimini anlayalım.
İfade.Insert ((Shift), (Copy Origin))
(Shift): Yeni sütunu eklediğimizde, sütunların sağ tarafa kayması veya satır olması durumunda aşağı tarafa kayması gerekip gerekmediği. Burada iki seçenek kullanabiliriz, "xlToRight" ve "xlDownTo"
(Kopya Kaynağı): Bu, yeni eklenen sütun için formatı belirleyecektir. Formata sütunun sol tarafından mı yoksa yukarıdaki hücrelerden mi ihtiyacınız var. Burada iki seçenek "xlFormatFromLeftOrAbove" ve "xlFormatFromRightOrBelow" kullanabiliriz.
Aşağıda sizin için örnek kod verilmiştir.
Sub ColumnInsert_Example1 () Aralık ("B: B"). Shift Ekle: = xlToRight, Copyorigin: = xlFormatFromLeftOrAbove End Sub
Örnek 4 - VBA'da COLUMNS Özelliğini Kullanarak Sütun Ekleme
RANGE nesnesini kullanarak VBA'nın nasıl sütun ekleyeceğini gördük; şimdi, "SÜTUNLAR" özelliğini kullanarak sütun ekleyebileceğimizi göstereceğiz.
SÜTUNLAR özelliğini açın.
Kod:
Sub ColumnInsert_Example2 () Columns (End Sub
Burada sütunu iki şekilde belirtebiliriz. Biri her zamanki gibi alfabetik referanslar kullanıyor ve diğeri sütun numaralarını kullanıyor.
If you want to insert the column after column A, then the code will be COLUMNS(“B”). If you are using numerical reference, then the code will be COLUMNS(2).
Code:
Sub ColumnInsert_Example2() Columns("B"). End Sub
Now the problem for you arises because when we use COLUMNS property, we don’t get to access the IntelliSense list.
Code:
Sub ColumnInsert_Example2() Columns("B").Entir End Sub
Here we need to sure of what we are doing. So this is the reason I have showed you the RANGE object first.
Code:
Sub ColumnInsert_Example2() Columns("B:B").EntireColumn.Insert End Sub
Example #5 - Insert Alternative Columns
Assume you have the data like the below image.
If you want to insert new columns after every alternate row, then we need to use VBA loops. The below code it tailor-made the code for you.
Code:
Sub ColumnInsert_Example3 () Dim k As Integer Columns (2). K = 2 To 8 ActiveCell.EntireColumn.Insert ActiveCell.Offset (0, 2) seçeneğini seçin. Next k End Sub
Bu, sütunu bu şekilde ekleyecektir.
Örnek 6 - Hücre Değerine Göre Sütun Ekleme
Hücre değerine dayalı bir sütun da ekleyebiliriz. Örneğin, aşağıdaki verilere bakın.
Burada, ilk satırdaki hücre değeri "Yıl" ise ve yeni sütunlar ekledikten sonra verilerimin böyle olması gerekiyorsa, sütunu eklemek istiyorum.
Bu görevi gerçekleştirmek için aşağıdaki kodu kullanın.
Kod:
Sub ColumnInsert_Example4 () Dim k As Integer Dim x As Integer x = 2 For k = 2 To 12 If Cells (1, x) .Value = "Year" Sonra Hücreler (1, x) .EntireColumn.Insert x = x + 1 End If x = x + 1 Next k End Sub
Bu VBA Sütun Ekle Excel'i buradan indirebilirsiniz. VBA Sütun Ekle Excel Şablonu
