Microsoft Excel'de VBA aracılığıyla Adres Mektup Birleştirme Nasıl Otomatikleştirilir

Bu yazıda, Microsoft Excel'de VBA kullanarak adres mektup birleştirmenin nasıl otomatikleştirileceğini öğreneceğiz.

Adres Mektup Birleştirme: - Bu, veri bilgilerini metin halinde birleştirmek ve ardından belgeyi yazdırmak için kullanılan kaynaktır. Böyle bir işlemi gerçekleştirmek için Microsoft Word kullanıyoruz.

Basit bir alıştırma ile anlayalım: -

Rapor sayfasında bir mektup biçimimiz var ve mektup ayrıntılarını da değiştirmek istediğimiz VBA üzerinden adres mektup birleştirme uygulamak istiyoruz.

2 yaprağımız var. 1 sayfa, mektup vermek istediğimiz ayrıntıları içeren verileri içerir. İlk verilerde A sütunu Ad'ı, B sütunu sokak adresini, C sütunu şehri, D sütunu bölgesini ve E sütunu ile F sütunu posta postasını içerir. Rapor sayfasında hareket etmek için bir komut düğmesi vardır.

2^nd sayfa 2 komut butonlu harf formatına sahip; veri sayfasında hareket etmek için bir düğme ve adres mektup birleştirme için çalışmak için ikinci komut düğmesi

İlk olarak Main Data komut butonunun VBA kodunu yazacağız. Aşağıda verilen adımları izlememiz gerekiyor: -

İlk önce çalışma sayfasına komut butonunu ekleyeceğiz.
Geliştirici sekmesine gidin ve ardından Activexcontrol'den Komut düğmesini ekleyin.
Komut düğmesini “Harf” adıyla yeniden adlandırın ve şimdi aşağıda belirtilen makroyu atayın: -

Özel Alt Main_data_Click()

Çalışma Sayfaları("Rapor").Etkinleştir

Aralık("A19").Göster

Alt Bitiş

Şimdi Rapor sayfasına ikinci komut butonunu ekleyeceğiz ve makroyu ilk sayfada hareket edecek şekilde atayacağız. Aşağıda verilen adımları izlememiz gerekiyor: -

Komut düğmesini “Veri” adıyla yeniden adlandırın ve aşağıda belirtilen makroyu atayın: -

Özel Alt KomutDüğmesi2_Click()

Worksheets("Main_Data").Etkinleştir

Aralık("A1").Göster

Alt Bitiş

Şimdi aşağıdaki adımları izleyerek adres mektup birleştirme için ana kodu yazacağız: -

Komut düğmesini ekleyin ve “Mektup Baskı” olarak yeniden adlandırın ve ardından aşağıda belirtilen kodu atayın: -

Özel Alt KomutDüğmesi1_Click()

Dim StartrowAs Integer, lastrow As Integer

MsgAs Dizesini Karartın

Dim TotalrecordsAs String

Dim name As String, Street_AddressAs String, şehir As String, bölge As String, ülke As String, posta As String

Totalrecords = "=counta(Main_Data!A:A)"

Aralık("L1") = Toplam Kayıtlar

Tarih olarak karart mydate

WRP'yi Ayarla = Sayfalar ("Rapor")

tarih = tarih
WRP.Range("A9") = tarihim

WRP.Range("A9").NumberFormat = "[$-F800]dddd,aaa,gg,yyyy"

WRP.Range("A9").Yatay Hizalama = xlSol

Startrow = InputBox("Yazdırılacak ilk kaydı girin.")

lastrow = InputBox("Yazdırılacak son kaydı girin.")

Startrow>lastrow ise

Msg = "ERROR" &vbCrLf& "Başlangıç satırı son satırdan küçük olmalıdır"

Msgbox Msg, vbCritical, "ExcelTip"

Bitir

i için = Startrow Son sıraya

isim = Sayfalar("Ana_veri").Hücreler(i, 1)

Street_Address = Sheets("Main_data").Cells(i, 2)

şehir = Sayfalar("Ana_veri").Hücreler(i, 3)

bölge = Sayfalar("Ana_veri").Hücreler(i, 4)

ülke = Sayfalar("Ana_veri").Hücreler(i, 5)

posta = Sayfalar("Ana_veriler").Hücreler(i, 6)

Sheets("Rapor").Range("A7") = name &vbCrLf&Street_Address&vbCrLf& şehir & bölge & ülke &vbCrLf& posta

Sheets("Rapor").Range("A11") = "Sevgili" & " " & name & ","

CheckBox1 = Doğru

CheckBox1 ise

ActiveSheet.Baskı Önizleme

Başka

ActiveSheet.PrintOut

Bitir

sonraki ben

Alt Bitiş

Kod Açıklama: - Önce değişkenleri tanımlayacağız, sonra tarih ve tarih formatını tanımlayacağız, ardından son satırı tanımlayacağız ve satıra başlayacağız. Ardından mesajı iletmek için mesaj kutusu oluşturduk. Ardından yakalamak istediğimiz veriyi ve aralığı letter olarak tanımlayacağız.

Kodu çalıştırmak için klavyede F5 tuşuna basın.
O zaman ilk kayıt noktasını girmelisiniz. Bundan sonra, son nokta kaydını girmek için yeni bir mesaj kutusu alacaksınız.