Šajā rakstā mēs uzzināsim, kā automatizēt pasta sapludināšanu, izmantojot Microsoft Excel VBA.
Pasta sapludināšana: - tas ir avots, lai apvienotu datu informāciju tekstā un pēc tam izdrukātu dokumentu. Lai veiktu šādu darbību, mēs izmantojam Microsoft Word.
Sapratīsim ar vienkāršu vingrinājumu:-
Pārskata lapā mums ir vēstules formāts, un mēs vēlamies izmantot pasta sapludināšanu, izmantojot VBA, kurā vēlamies mainīt arī vēstules informāciju.
Mums ir 2 loksnes. 1 lapa satur datus ar informāciju, kam vēlamies dot vēstules. Pirmajos datos A slejā ir nosaukums, B slejā ir adrese, C slejā ir pilsēta, D kolonnas apgabals, bet E slejā un F slejā ir pasta pasta indekss. Pārskata lapā ir jāpārvieto viena komandu poga.
2nd lapai ir burtu formāts ar 2 komandu pogām; viena poga, lai pārvietotos pa datu lapu, un otra komandu poga ir darbs pasta sapludināšanai
Pirmkārt, mēs uzrakstīsim galveno datu komandu pogas VBA kodu. Mums ir jāievēro tālāk norādītās darbības:-
- Vispirms mēs darblapā ievietojam komandu pogu.
- Dodieties uz cilni Izstrādātājs un pēc tam ievietojiet komandu pogu no Activexcontrol.
- Pārdēvējiet komandu pogu ar nosaukumu “Burts” un tagad piešķiriet zemāk minēto makro:-
Privāta apakšnodaļa Main_data_Click ()
Darblapas ("Ziņojums"). Aktivizēt
Diapazons ("A19"). Parādīt
Beigt apakš
Tagad mēs atskaites lapā ievietojam otro komandu pogu un piešķiram makro, lai pārvietotos pirmajā lapā. Mums ir jāievēro tālāk norādītās darbības:-
- Pārdēvējiet komandu pogu ar nosaukumu “Dati” un piešķiriet tālāk minēto makro:-
Privāta apakškomandaButton2_Click ()
Darblapas ("Main_Data"). Aktivizēt
Diapazons ("A1"). Parādīt
Beigt apakš
Tagad mēs uzrakstīsim pasta sapludināšanas galveno kodu, veicot tālāk norādītās darbības:-
Ievietojiet komandas pogu un pārdēvējiet to par “Letter Print” un pēc tam piešķiriet tālāk minēto kodu:-
Privāta apakškomandaButton1_Click ()
Dim StartrowKā vesels skaitlis, aizvelciet kā vesels skaitlis
Dim MsgAs virkne
Dim TotalrecordsAs String
Dim nosaukums As String, Street_AddressAs String, pilsēta Kā String, reģions Kā String, valsts Kā String, pasta kā String
Totalrecords = "= skaitīšana (Main_Data! A: A)"
Diapazons ("L1") = Totalrecords
Dim datumu kā datumu
Iestatīt WRP = Sheets ("Ziņojums")
mydate = datums
WRP.Range ("A9") = mydate
WRP.Range ("A9"). NumberFormat = "[$ -F800] dddd, mmmm, dd, yyyy"
WRP.Range ("A9"). HorizontalAlignment = xlLeft
Startrow = InputBox ("Ievadiet pirmo drukājamo ierakstu.")
lastrow = InputBox ("Ievadiet pēdējo drukājamo ierakstu.")
Ja Startrow> lastrow Then
Msg = "KĻŪDA" & vbCrLf & "Sākuma rindai jābūt mazākai par pēdējo rindu"
Msgbox Msg, vbCritical, "ExcelTip"
Beigas Ja
Attiecībā uz i = Startrow Lai aizvilktu
name = Sheets ("Main_data"). Šūnas (i, 1)
Street_Address = Sheets ("Main_data"). Šūnas (i, 2)
city = Sheets ("Main_data"). Šūnas (i, 3)
region = Sheets ("Main_data"). Šūnas (i, 4)
valsts = Izklājlapas ("Main_data"). Šūnas (i, 5)
postal = Sheets ("Main_data"). Šūnas (i, 6)
Izklājlapas ("Ziņojums"). Diapazons ("A7") = nosaukums un vbCrLf & Street_Address & vbCrLf & pilsēta un reģions & valsts & vbCrLf & pasts
Izklājlapas ("Ziņojums"). Diapazons ("A11") = "Cien." & "" & Vārds & ","
CheckBox1 = True
Ja izvēles rūtiņa1 Tad
ActiveSheet.PrintPreview
Citādi
ActiveSheet.PrintOut
Beigas Ja
Tālāk i
Beigt apakš
Koda skaidrojums: - Pirmkārt, mēs definēsim mainīgos, pēc tam noteiksim datumu un datuma formātu, pēc tam definēsim pēdējo rindu un sākuma rindu. Tad mēs esam izveidojuši ziņojumu lodziņu ziņojuma pārsūtīšanai. Tad mēs definēsim datus un diapazonu, ko vēlamies uzņemt ar vēstuli.
- Lai palaistu kodu, nospiediet tastatūras taustiņu F5.
- Tad jums jāievada pirmais ieraksta punkts. Pēc tam jūs saņemsit jaunu ziņojumu lodziņu, lai ievadītu pēdējā punkta ierakstu.
- Un tad jūs iegūsit zemāk redzamo dokumentu
- Vēstule tiks atjaunināta saskaņā ar galvenajos datos minēto informāciju.
Tādā veidā mēs varam automatizēt pasta sapludināšanu, izmantojot Microsoft Excel VBA.
