Excel VBA apakšstrings
SubString ir virknes vai daļas daļa, vai virknes rakstzīmi sauc par “SubString”. VBA LEFT, RIGHT un MID ir trīs apakšsadaļu funkciju veidi, kas ir līdzīgi Excel darblapas apakšvirsrakstiem.
Virkne ir nekas cits kā rakstzīmju sērija, un rakstzīmes var būt alfabēti, cipari, īpašās rakstzīmes, kā arī tās visas apvienot.
Bieži vien programmā Excel, kad mēs strādājam ar datiem, kas ir virkne, mums ir jāiegūst tikai virknes daļa, lai atvieglotu mūsu mērķi. Iespējams, ka mums nav jāizmanto visa virkne, taču mums ir nepieciešama tikai virknes daļa. Piemēram, ja jums ir nosaukums “Sachin Tendulkar”, jums var būt nepieciešama tikai nosaukuma pirmā daļa, ti, tikai “Sachin”. To Excel VBA sauc par virknes subString. Lai tiktu galā ar šīm virknēm, mums ir iebūvētas funkcijas TEXT funkcijā excel kategorijā.
Šajā rakstā mēs apspriedīsim, kā iegūt apakšvirkni no pilnas virknes VBA.
Kā izmantot SubString funkcijas VBA?
Lai izvilktu apakšvirkni no virknes, mums ir dažas no iebūvētajām teksta funkcijām, un dažas no svarīgākajām funkcijām ir LEFT, RIGHT, INSTR un MID Excel. Funkcija Instr kalpos kā atbalsta funkcija pārējām trim funkcijām.
Mēs redzēsim, kā izmantot šīs funkcijas, lai praktiski izvilktu apakškārtas. Lasiet tālāk sniegtos piemērus, lai tos saprastu.
1. piemērs - kreisās funkcijas izmantošana
Ja jums ir pilns nosaukums kā “Sachin Tendulkar” un kā apakšvirsraksts ir jāizvelk tikai pirmais vārds, izmantojiet šo kodu, lai iegūtu to pašu.
1. darbība: izveidojiet makro nosaukumu un definējiet divus mainīgos kā virkni.
Kods:
Sub SubString_Example1 () Dim FullName kā virkne Dim FirstName kā string virkne Sub
2. solis: Tagad piešķiriet mainīgajam FullName nosaukumu “Sachin Tendulkar” .
Kods:
Sub SubString_Example1 () Dim FullName kā virkne Dim FirstName As virkne FullName = "Sachin Tendulkar" Beigas Sub
3. solis: Tagad mainīgajam FullName pieder vērtība “Sachin Tendulkar”. Tagad mums no visa vārda jāizņem Excel VBA apakšvirkne. Tātad, piešķiriet mainīgā FirstName vērtību, izmantojot funkciju LEFT.
Kods:
Sub SubString_Example1 () Dim FullName kā virkne Dim FirstName As virkne FullName = "Sachin Tendulkar" FirstName = Pa kreisi (End Sub
4. darbība: VBA LEFT funkcijas pirmais arguments ir virkne; tas ir tas, kas ir pilna vērtība vai pilna virkne. Šajā piemērā mūsu pilnā vērtība vai virkne ir “Sachin Tendulkar”, kas tiek piešķirta mainīgajam FullName.
Tātad kā arguments norādiet mainīgo FullName .
Kods:
Sub SubString_Example1 () Dim FullName kā virkne Dim FirstName As virkne FullName = "Sachin Tendulkar" FirstName = Kreisās puses apakšdaļa
5. solis: Nākamais arguments ir tas, cik rakstzīmju mums vajag no piegādātās virknes, tāpēc šajā gadījumā mums vārds “ Sachin ” ir vajadzīgs tik ļoti, mums ir vajadzīgas 6 rakstzīmes no kreisās puses.
Kods:
Sub SubString_Example1 () Dim FullName kā virkne Dim FirstName As virkne FullName = "Sachin Tendulkar" FirstName = Kreisais (FullName, 6) End Sub
6. solis: Tagad parādiet rezultātu ziņojumu lodziņā VBA.
Kods:
Sub SubString_Example1 () Dim FullName kā virkne Dim FirstName As virkne FullName = "Sachin Tendulkar" FirstName = Kreisais (FullName, 6) MsgBox FirstName End Sub
7. darbība: palaidiet makro, ziņojuma lodziņā skatiet vārdu kā apakšvirkni.
2. piemērs - iegūstiet SubString no labās puses
Tāpat kā tas, kā līdzīgi esam izvilkuši apakšvirkni no kreisās puses, varam iegūt arī no labās puses. Izmantojiet to pašu nosaukumu kā piemēru.
1. darbība: definējiet divus mainīgos kā virkni.
Kods:
Sub SubString_Example2 () Dim FullName kā virkne Dim LastName kā virknes beigu Sub
2. darbība: kā parasti, piešķiriet mainīgajam FullName vērtību kā “Sachin Tendulkar”.
Kods:
Sub SubString_Example2 () Dim FullName kā virkne Dim LastName kā virkne FullName = "Sachin Tendulkar" Beigas Sub
3. solis: Tagad mainīgajam LastName piešķiriet vērtību, izmantojot funkciju RIGHT excel.
Kods:
Sub SubString_Example2 () Dim FullName kā virkne Dim LastName kā virkne FullName = "Sachin Tendulkar" LastName = Pa labi (End Sub
4. solis: virkne ir mūsu pilns nosaukums, tāpēc norādiet mainīgo.
Kods:
Sub SubString_Example2 () Dim FullName kā virkne Dim LastName kā virkne FullName = "Sachin Tendulkar" LastName = Right (Pilns nosaukums, Beigas apakšdaļa
5. solis: garums ir tas, cik rakstzīmju mums vajag no labās puses. Labajā pusē mums ir nepieciešamas 9 rakstzīmes .
Kods:
Sub SubString_Example2 () Dim FullName kā virkne Dim LastName As virkne FullName = "Sachin Tendulkar" LastName = Labais (FullName, 9) Beigas Sub
6. darbība. Parādiet šo vērtību ziņojuma lodziņā .
Kods:
Sub SubString_Example2 () Dim FullName kā virkne Dim LastName As virkne FullName = "Sachin Tendulkar" LastName = Right (FullName, 9) MsgBox LastName End Sub
7. darbība: palaidiet makro. Mēs redzēsim uzvārdu ziņojuma lodziņā.
3. piemērs - Instr funkcijas izmantošana
Iepriekš minētajos piemēros mums bija tikai viens nosaukums, un mēs tieši piegādājām vajadzīgo rakstzīmju skaitu no kreisās un labās puses. Bet daudzu vārdu gadījumā vārdu un uzvārdu rakstzīmes nav vienādas, tas atšķirsies atkarībā no vārda. Šādos gadījumos mēs nevaram tieši ievadīt rakstzīmju skaitu, lai mēs varētu izmantot funkciju Instr.
Funkcija Instr atgriezīs piegādāto rakstzīmju pozīciju virknē. Piemēram, apskatiet zemāk redzamo kodu.
Kods:
Sub SubString_Example3 () Dim Dim As As String Position = InStr (1, "Sachin", "a") MsgBox Position End Sub
InStr(1, “Sachin,” “a”), this will identify the position of the letter “a” as the first appearance in the string “Sachin.” In this case letter, “a” is in the second position. So we will get 2 as a result in the message box.
Like this, we can use the Instr function to find the space character between the first name and last name.
For example, look at the below name I have in the excel sheet.
Using LEFT, RIGHT, and Instr function, we can extract the substrings. Below is the code to extract the First Name.
Code:
Apakšvārds () Dim K As Long Dim LR As Long LR = šūnas (rindas. Skaits, 1). Beigas (xIUp). K = 2 rinda uz LR šūnām (K, 2). Vērtība = pa kreisi (šūnas (K, 1) .Vērtība, InStr (1, šūnas (K, 1) .Vērtība, "") - 1) Nākamā K beigu apakšdaļa
Palaidiet makro un ziņojuma lodziņā skatiet vārdu kā apakšvirkni.
Izmantojiet zemāk esošo kodu, lai iegūtu pakārtoto vārdu kā apakšvirkni.
Kods:
Apakšvārds () Dim K As Long Dim LR As Long LR = šūnas (Rows.Count, 1). Beigas (xIUp). K = 2 rinda uz LR šūnām (K, 3). Vērtība = pa labi (šūnas (K, 1). Vērtība, Len (šūnas (K, 1)) - InStr (1, šūnas (K, 1). Vērtība, "")) Nākamā K beigu apakšdaļa
Palaidiet makro, un ziņojuma lodziņā mēs redzēsim uzvārdu.
Esmu piešķīrusi makro pogu darblapai, lejupielādēju darbgrāmatu un izmantoju tās.
