VBA konkatenāts Kā kopā apvienot stīgas VBA?
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, ko mēs izmantojām, lai apvienotu divas vai vairākas vērtību šūnu vērtības kopā, ja es saku vienkāršā valodā, ka tas ir apvienojams, 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ādu iebūvētu funkciju, lai savienotu vērtības, un pat darblapu funkcija nav integrēta VBA. Tagad izaicinājums ir, kā mēs apvienojam vērtības?
Lai arī iebūvēto funkciju nav, VBA var 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 ampersanda mainīgo.
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 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, kuru mēs saņemsim pilnu vārdu ziņojuma lodziņā.
Šī pilna vārda problēma ir tā, 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 piešķirs pareizu pilnu vārdu.
Šādi izmantojot apzīmējumu 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 padarīs 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 rakstzīmi un zīmi simbols. Tas ir svarīgi VBA programmēšanas rakstura dēļ.
Mēs nevaram apvienot vērtības un dzelteno simbolus kopā, pretējā gadījumā mēs iegūsim kompilēšanas kļūdu, piemēram, tālāk.
VBA savienojums, izmantojot funkciju JOIN
VBA vērtībās var izmantot funkciju JOIN. Vispirms apskatiet funkciju VBA JOIN sintaksi.
- Masīvs nav nekas cits kā masīvs, kas tur mūsu vērtības. Piemēram, gan vārds, gan uzvārds.
- 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 As Variant Dim Full_Name As String MyValues = Array ("Sachin", "Tendulkar") Full_Name = Join (MyValues, "") MsgBox Full_Name End Sub
