Savienošana nozīmē divu vērtību vai divu virkņu savienošanu kopā, līdzīgi kā excel, kuru mēs izmantojam & vai arī pazīstams kā ampersanda operētājsistēmu, divas savienojam divas virknes, kuras mēs lietojam, un operatoru, piemēram, 1. un 2. virkne, tagad ir jāatceras svarīga lieta un ka izmantojot operatoru & operatoram, mums jānodrošina atstarpes, vai arī VBA to apsvērs tik ilgi.
VBA savienotājstīgas
VBA konkatenāts ir viena no tām lietām, kuru mēs izmantojām, lai kopā apvienotu divas vai vairākas vērtību šūnu vērtības. Ja es saku vienkāršā valodā, tas ir apvienojums, tas ir divu vai vairāku vērtību apvienošana, lai iegūtu pilnīgu vērtību.
Mums programmā Excel ir funkcija CONCATENATE, kas apvienos divas vai vairākas vērtības vai divas vai vairākas šūnu vērtības.
Bet VBA mums nav iebūvētas funkcijas, lai kopā savienotu divas vai vairākas vērtības. Patiesībā mums pat nav piekļuves darblapas funkciju klasei, lai piekļūtu funkcijai VBA CONCATENATE kā darblapas funkcija.
Kā savienot stīgas VBA?
Ja mums nav nekādas iebūvētas funkcijas, kas savieno vērtības, un pat darblapas funkcija nav integrēta VBA. Tagad izaicinājums ir, kā mēs apvienojam vērtības?
Kaut arī nav iebūvētu funkciju, VBA joprojām varam apvienot, izmantojot simbolu “ampersand” (&).
Ja jūs regulāri sekojat mūsu ziņām, mēs bieži izmantojam ampersanda (&) simbolu mūsu kodējumā.
Piemēram, ja jums ir vārds un uzvārds atsevišķi, mēs varam apvienot šos divus un padarīt to par pilnu vārdu. Veiciet tālāk norādītās darbības, lai paši uzrakstītu VBA makro kodu.
1. darbība: dodieties uz Visual Basic Editor un izveidojiet VBA apakšprocedūru.
2. darbība: definējiet trīs mainīgos kā virkni .
Kods:
Apakšsavienojums_Example () Dim First_Name kā virkne Dim Last_Name kā virkne Dim Full_Name kā virknes beigu apakšdaļa
3. solis: Tagad piešķiriet mainīgajam vārdu un uzvārdu .
Kods:
Apakšsavienojums_Example () Dim First_Name kā virkne Dim Last_Name kā virkne Dim Full_Name kā virkne First_Name = "Sachin" Last_Name = "Tendulkar" Beigas Sub
4. solis: Tagad apvienojiet šos divus nosaukumus ar mainīgo Full_Name, izmantojot mainīgo ampersand.
Kods:
Apakšsavienojums_Example () Dim First_Name kā virkne Dim Last_Name kā virkne Dim Full_Name kā virkne First_Name = "Sachin" Last_Name = "Tendulkar" Full_Name = Vārds un uzvārds End Sub
5. solis: Tagad ziņojuma lodziņā parādiet mainīgā Full_Name vērtību .
Kods:
Apakšsavienojums_Example () Dim First_Name kā virkne Dim Last_Name kā virkne Dim Full_Name kā virkne First_Name = "Sachin" Last_Name = "Tendulkar" Full_Name = Vārds & Uzvārds MsgBox Full_Name End Sub
Tagad palaidiet kodu; mēs saņemsim pilnu vārdu ziņojuma lodziņā.
Šī pilna vārda problēma ir tāda, ka mēs neesam pievienojuši vārdu un uzvārdu atdalītāja rakstzīmju vietu, vienlaikus apvienojot vārdu un uzvārdu, apvienojiet arī atstarpes rakstzīmi.
Kods:
Apakšsavienojums_Example () Dim First_Name kā virkne Dim Last_Name kā virkne Dim Full_Name kā virkne First_Name = "Sachin" Last_Name = "Tendulkar" Full_Name = First_Name & "" & Last_Name MsgBox Full_Name End Sub
Tas tagad dos pareizu pilnu vārdu.
Šādi izmantojot zīmi un zīmi, mēs varam savienot vērtības. Tagad mēs kopā atrisināsim darblapas problēmu, kā atrisināt vārdu un uzvārdu, lai tas kļūtu par pilnu vārdu.
Tā kā mums ir jāapvieno daudzi vārdi, mums ir jāizmanto cilpas, lai apvienotu vārdu un uzvārdu. Zemāk redzamais kods veiks darbu jūsu vietā.
Kods:
Apakšsavienojums_piemērs1 () Dim i kā vesels skaitlis i = 2 līdz 9 šūnas (i, 3). Vērtība = Šūnas (i, 1) & "" & Šūnas (i, 2) Nākamā i beigas Apakšsadaļa
Tas apvienos vārdu un uzvārdu, tāpat kā mūsu VBA saķeres funkcija.
Kopējā kļūda Ampersand VBA konkatenācijā
Ja pamanāt manus kodus, starp vērtībām esmu pievienojis atstarpes simbolu un zīmi simbols. Tas ir būtiski VBA programmēšanas rakstura dēļ.
Mēs nevaram apvienot vērtības un dzeltens simbolus; pretējā gadījumā mēs saņemsim kompilēšanas kļūdu, piemēram, zemāk.
VBA savienojums, izmantojot funkciju JOIN
VBA mēs varam izmantot funkciju JOIN, lai apvienotu vērtības. Vispirms apskatiet funkciju VBA JOIN sintaksi.
- Masīvs nav nekas cits kā masīvs, kas satur mūsu vērtības, piemēram, gan vārdu, gan uzvārdu.
- Atdalītājs nav nekas cits kā atdalītājs starp katru masīva vērtību, šajā gadījumā atstarpes rakstzīmi.
Zemāk redzamais kods parādīs tā paša piemēru.
Kods:
Apakšsavienojums_Example2 () Dim MyValues kā variants Dim Full_Name As String MyValues = Array ("Sachin", "Tendulkar") Full_Name = Join (MyValues, "") MsgBox Full_Name End Sub
