Bu makalede, aşağıdakilerin nasıl yapılacağını göstereceğiz Ekle Veri bir Excel masa kullanarak VBA kod Excel'in yerleşik özellikleri ve yöntemleri yardımıyla, bir tabloya veri ekleme veya üzerine yazma işlevini kolayca kolaylaştırabiliriz. Yöntemleri VBA kodlarıyla birlikte net bir şekilde anlamak için örneklere dalalım.

Alıştırma Çalışma Kitabını İndirin

Bu makaleyi okurken egzersiz yapmak için bu alıştırma çalışma kitabını indirin.

4 Excel'de VBA Kullanarak Tabloya Veri Ekleme Örnekleri

Diyelim ki, elimizde bir satış listesi Sipariş tarihi, ürün adı, miktarı, birim fiyatı ve toplam fiyatı gibi ayrıntılarla birlikte bir mağazanın

Excel'de Tablo Nasıl Oluşturulur

için dön ve veri kümesi bir Excel tablosu aşağıdakileri yapın-

• Seçiniz ve tüm veri kümesi .
• Git için Sekme ekle bir şey yok. Excel Şeridi .
• Tıklayın üzerinde Tablo seçenek.

• Son olarak Tamam düğmesi içinde Tablo Oluştur penceresi.

• Başarılı bir şekilde dönüştürüldü ve veri kümesi bir Excel tablosu .

Bir Excel tablosuna veri eklemek için birkaç VBA fonksiyonları ve Özellikler bizim kod Aşağıdaki bölümde aşağıdakilerin nasıl yapılacağı açıklanmaktadır açık ve kod yaz içinde görsel temel düzenleyici.

Visual Basic Düzenleyicisinde Kod Yazma

Takip edin adımlar için açık ve görsel temel düzenleyici ve oraya biraz kod yazın.

• Şuraya git Geliştirici sekmesinden Excel Şeridi .
• Tıklayın ve Visual Basic seçeneği.

• İçinde Uygulamalar için Visual Basic penceresinde Açılır menü ekle için seçin ve Yeni Modül

Şimdi bir yeni modül o açıldı 'ye basın, oraya biraz kod yazın ve F5 için Koş.

1. Excel'de VBA Kullanarak Tablonun Son Satırına Veri Ekleme

Bu örnekte, bir VBA koduna ekle a yeni satır en alt .. masa ve sonra veri ekle Tablomuzda şu var 4 sıra . Veri . eklemek için 5. bir , kopya ve macun aşağıdaki kodu visual basic editörüne girin.

 Sub InsertDataIntoTable() Dim tableName As ListObject Set tableName = ActiveSheet.ListObjects("Table1") Dim addedRow As ListRow Set addedRow = tableName.ListRows.Add() With addedRow .Range(1) = "1/1/2022" .Range(2) = "Apple" .Range(3) = 5 .Range(4) = 1.77 End With End Sub 

F5 tuşuna basın için koşmak ve Kod.

Biz takılı a yeni satır . Veri en alt .. mevcut tablo .

Kod Açıklaması:

• Kodumuzda şunu kullandık ListObjects nesnesi VBA Excel'in kapmak ve masa ile isim Daha fazla bilgi için, her biri .. ListObject nesneler bir masa üzerinde çalışma sayfası Tablo adını almak için, tıklayın üzerinde masa >> tıklayın üzerinde Tablo Tasarımı sekmesi içinde Excel Şeridi.

• Sonra, kullandık ListRows . Yöntem ekle eklemek için yeni satır içinde masa . Bu yöntem alır iki argüman : Pozisyon ve AlwaysInsert .

Bir giriş yaparak tam sayı 'yi belirleyebiliriz. göreli konum .. yeni eklenen satır içinde masa Bu örnekte, biz boş bırakıldı ve pozisyon argümanı sonuç olarak, bir yeni satır olmuştur eklendi en alt .. masa .

• Son olarak, verileri her biri .. hücreler yeni bir eklenen satır Bu durumda, veriler .Range(1) = "1/1/2022" olarak OrderDate, .Range(2) = "Apple" olarak Ürün, .Range(3) = 5 olarak Miktar, .Range(4) = 1,77 olarak Birim Fiyat.

Daha fazlasını okuyun: Excel Tablo Adı: Bilmeniz Gereken Her Şey

2. Excel'de Tablonun Belirli Bir Satırına Veri Eklemek için VBA Kodu Çalıştırma

Bu örnekte, şunları yapacağız bir satır veri ekleyin bir tabloya göre belirli bir satır Yukarıdaki örnekte kullandığımız aynı kod parçasını kullanarak. Bu durumda, sadece belirtmek ve Pozisyon argümanı .. ListRows.Add yöntemi Diyelim ki kodumuzda satış verisi ekle için Turuncu ayrıntıları ile sıra numarası 3 göreceli için mevcut tablo Bunun olması için, kopya ve macun aşağıdaki kod görsel kod düzenleyicisine yerleştirin.

 Sub InsertDataIntoTable() Dim tableName As ListObject Set tableName = ActiveSheet.ListObjects("Table1") Dim addedRow As ListRow Set addedRow = tableName.ListRows.Add(3) With addedRow .Range(1) = "1/1/2022" .Range(2) = "Orange" .Range(3) = 3 .Range(4) = 2.14 End With End Sub 

Kodun çalıştırılması F5 tuşuna basıldığında ve satış verileri Turuncu için Tabloya göre 3. satır .

Daha fazlasını okuyun: Bir Tablodaki Her Satır için Excel VBA Kodu (Ekleme, Üzerine Yazma, Silme vb.)

Benzer Okumalar

• Pivot Tabloda Hesaplanan Alan Toplamının Sayıya Bölünmesi
• Excel'de Göreceli Frekans Dağılımı Nasıl Gösterilir
• [Düzeltme] Pivot Tabloda Tarihler Gruplanamıyor: 4 Olası Çözüm
• Excel'de Yüzde Frekans Dağılımı Nasıl Hesaplanır (2 Yöntem)
• Pivot Tablo Yenilenmiyor (5 Sorun & Çözümler)

3. Excel'de VBA Kullanarak Bir Tabloya Veri Ekleme ve Üzerine Yazma

Burada nasıl yapılacağını göstereceğiz üzerine yaz ve mevcut veri̇ler bir bunun yerine tablo . yerleştirme a yeni satır . Veri . Bunu yapmak için, kullanmamız gereken ListObject.ListRows özelliği Excel'in yerine .. ListRows.Add özelliği kullandık daha önce . Bu ListObject.ListRows özelliği ayrıca sıra numarası ( Tamsayı değer ) olarak argüman . Diyelim ki, biz istiyoruz değişim ve birim fiyat .. Turuncu 2.14'ten 2.35'e biz takılı içinde önceki örnek . Anlaşıldı ve macun visual basic editöründe aşağıdaki kodu girin.

 Sub InsertDataIntoTable() Dim tableName As ListObject Set tableName = ActiveSheet.ListObjects("Table1") Dim addedRow As ListRow Set addedRow = tableName.ListRows(3) With addedRow .Range(1) = "1/1/2022" .Range(2) = "Orange" .Range(3) = 3 .Range(4) = 2.35 End With End Sub 

Kodumuzda, Biz set ve argüman için ListObject.ListRows özelliği olarak 3 nerede Veri için Turuncu aittir . Koş ve kod tuşuna basarak F5 ve görmek fark .

Kodda şunlar vardır değişti sadece birim fiyat .. Veri at sıra numarası 3 göreceli için masa .

Daha fazlasını okuyun: Excel Tablosundan Satır ve Sütun Ekleme veya Silme

4. Kullanıcı Girdisine Dayalı Olarak Excel Tablosuna Veri Eklemek için VBA Kodu Çalıştırma

Bu örnekte, şunları yapacağız Ekle ve tablo adı ve satış detayları bir ürün olarak kullanıcı girişi daha ziyade hardcode içinde Her seferinde VBA kodu Bunu gerçekleştirmek için aşağıdaki talimatları izleyin.

• Anlaşıldı ve macun aşağıdaki kodu görsel kod düzenleyicisine girin.

 Sub InsertDataIntoTable() Dim tableName As ListObject Dim A, B, C, D, tName As String tName = Application.InputBox(Prompt:="Tablonun Adı: ", Type:=2) A = Application.InputBox(Prompt:="Sipariş Tarihi: ", Type:=2) B = Application.InputBox(Prompt:="Ürün Adı: ", Type:=2) C = Application.InputBox(Prompt:="Miktar: ", Type:=2) D = Application.InputBox(Prompt:="Birim Fiyat: ",Type:=2) Set tableName = ActiveSheet.ListObjects(tName) Dim addedRow As ListRow Set addedRow = tableName.ListRows.Add() With addedRow .Range(1) = A .Range(2) = B .Range(3) = C .Range(4) = D End With End Sub 

• Basın F5 için koşmak kodu.
• Koy ve isim .. masa içinde giriş kutusu ( Tablo1 , bu örnekte) ve TAMAM.

• Ardından şu değerleri girin Sipariş Tarihi, Ürün Adı, Miktar, ve Birim Fiyat içinde giriş kutuları o sırayla ortaya çıktı Bu örnekte kullandığımız değerler şunlardır 1/1/2022, Turuncu, 3, ve 35.

• Sonuç olarak, elimizde bir yeni satır ile eklenen veriler en alt .. masa .

Daha fazlasını okuyun: Excel Tablo Biçimlendirme İpuçları - Tablonun Görünümünü Değiştirin

Notlar

Biz ne zaman eklendi a yeni satır ile Veri VBA kodu kullanarak Biçim ve formüller olsun taşındı için otomatik olarak yeni satır Örneğimizde ToplamFiyat sütun çıkışlar ve ürün sütunların Miktar ve Birim Fiyat . Biz sadece sadece eklenmiştir ve Miktar ve Birim Fiyat değerleri ; the yeni satır oldu takılı ile ürün bunların iki değer içinde Toplam Fiyat sütunu.

Sonuç

Artık VBA kodu kullanarak bir Excel tablosuna nasıl veri ekleyeceğimizi biliyoruz. Umarım bu yöntemleri daha güvenli bir şekilde kullanmanıza yardımcı olur. Herhangi bir sorunuz veya öneriniz varsa aşağıdaki yorum kutusuna yazmayı unutmayın.