Excel VBA -alijono
SubString on osa merkkijonoa tai merkkijonoa tai merkkijonon merkkiä kutsutaan "SubStringiksi". VBA LEFT, RIGHT ja MID: ssä on kolme alitoimintotyyppiä.
Merkkijono ei ole muuta kuin sarja merkkejä, ja merkit voivat olla aakkosia, numeroita, erikoismerkkejä ja yhdistää kaikki nämä.
Usein excelissä työskennellessäsi datan kanssa, joka on merkkijono, meidän on saatava vain merkkijono osa tarkoituksemme helpottamiseksi. Emme ehkä tarvitse koko merkkijonoa käytettäväksi, mutta tarvitsemme vain osan merkkijonosta. Jos sinulla on esimerkiksi nimi "Sachin Tendulkar", saatat tarvita vain nimen ensimmäisen osan, ts. Vain "Sachin". Tätä kutsutaan merkkijonon SubStringiksi Excel VBA: ssa. Näiden merkkijonojen käsittelemiseksi meillä on sisäänrakennetut toiminnot TEXT-toiminnon alla excel-luokassa.
Tässä artikkelissa keskustelemme siitä, miten saat alimerkkijonon koko merkkijonosta VBA: ssa.
Kuinka käyttää SubString-toimintoja VBA: ssa?
Alimerkkijonon purkamiseksi merkkijonosta meillä on joitain sisäänrakennettuja tekstitoimintoja, ja osa tärkeistä toiminnoista ovat VASEN, OIKEA, INSTR ja MID Excelissä. Toiminto Instr toimii tukitoimintona kolmelle muulle toiminnolle.
Näemme, kuinka näitä toimintoja käytetään purkamaan aliosat käytännössä. Lue alla olevat esimerkit ymmärtääksesi ne.
Esimerkki # 1 - Vasemman toiminnon käyttö
Jos sinulla on täydellinen nimi nimellä “Sachin Tendulkar” ja tarvitset vain etunimen, joka on purettava alimerkkinä, käytä seuraavaa koodia saadaksesi saman.
Vaihe 1: Luo makron nimi ja määritä kaksi muuttujaa merkkijonoksi.
Koodi:
Sub SubString_Example1 () Himmennä FullName merkkijonona Dim FirstName kuin String End Sub
Vaihe 2: Määritä nyt muuttujalle FullName nimi “Sachin Tendulkar” .
Koodi:
Sub SubString_Example1 () Dim FullName as String Dim FirstName as String FullName = "Sachin Tendulkar" End Sub
Vaihe 3: Muuttuja FullName pitää nyt Sachin Tendulkar -arvoa. Nyt meidän on purettava etunimen Excel VBA -alimerkkijono koko nimestä. Määritä siis muuttujan Etunimi arvo VASEN-funktion kautta.
Koodi:
Ala SubString_Example1 () Himmennä koko nimi nimellä merkkijono Dim FirstName as merkkijono FullName = "Sachin Tendulkar" Etunimi = Vasen (End Sub
Vaihe 4: VBA LEFT -funktion ensimmäinen argumentti on merkkijono; se on koko arvo tai koko merkkijono. Tässä esimerkissä koko arvo tai merkkijono on “Sachin Tendulkar”, joka on määritetty muuttujalle FullName.
Syötä siis argumentiksi muuttuja FullName .
Koodi:
Sub SubString_Example1 () Himmennä koko nimi nimellä merkkijono Dim FirstName as merkkijono FullName = "Sachin Tendulkar" Etunimi = Vasen pää
Vaihe 5: Seuraava argumentti on, kuinka monta merkkiä tarvitsemme toimittamastamme merkkijonosta, joten tässä tapauksessa tarvitsemme etunimen " Sachin " niin täydellisesti, tarvitsemme 6 merkkiä vasemmalta puolelta.
Koodi:
Ala SubString_Example1 () Himmennä koko nimi nimellä merkkijono Dim FirstName as merkkijono FullName = "Sachin Tendulkar" Etunimi = Vasen (FullName, 6) End Sub
Vaihe 6: Näytä tulos nyt VBA: n viestiruudussa.
Koodi:
Ala SubString_Example1 () Himmennä koko nimi nimellä merkkijono Dim FirstName as merkkijono FullName = "Sachin Tendulkar" Etunimi = Vasen (FullName, 6) MsgBox FirstName End Sub
Vaihe 7: Suorita makro, katso etunimi alirivinä viestiruudussa.
Esimerkki # 2 - Hanki SubString oikealta
Samoin kuin me olemme purkaneet alaotsan vasemmalta samalla tavoin, voimme irrottaa myös oikealta. Otetaan esimerkkinä sama nimi.
Vaihe 1: Määritä kaksi muuttujaa merkkijonoksi.
Koodi:
Sub SubString_Example2 () Himmennä koko nimi nimellä merkkijono Dim LastName kuin merkkijono loppu Sub
Vaihe 2: Määritä muuttujalle FullName kuten "Sachin Tendulkar" kuten tavallista .
Koodi:
Sub SubString_Example2 () Himmennä koko nimi nimellä merkkijono Dim LastName nimellä merkkijono FullName = "Sachin Tendulkar" Loppu Sub
Vaihe 3: Määritä muuttujalle Sukunimi nyt arvo OIKEA excel -toiminnon avulla.
Koodi:
Sub SubString_Example2 () Himmennä koko nimi nimellä merkkijono Dim LastName nimellä merkkijono FullName = "Sachin Tendulkar" Sukunimi = Oikea (End Sub
Vaihe 4: Merkkijono on FullNime, joten toimita muuttuja.
Koodi:
Sub SubString_Example2 () Himmennä koko nimi nimellä merkkijono Dim LastName nimellä merkkijono FullName = "Sachin Tendulkar" Sukunimi = Oikea (FullName, End Sub
Vaihe 5: Pituus on kuinka monta merkkiä tarvitsemme oikealta puolelta. Tarvitsemme 9 merkkiä oikealla puolella.
Koodi:
Ala SubString_Example2 () Himmennä koko nimi nimellä merkkijono Dim sukunimi nimellä merkkijono FullName = "Sachin Tendulkar" Sukunimi = Oikea (FullName, 9) Loppu
Vaihe 6: Näytä tämä arvo viestiruudussa .
Koodi:
Ala SubString_Example2 () Himmennä koko nimi nimellä merkkijono Dim sukunimi nimellä merkkijono FullName = "Sachin Tendulkar" Sukunimi = Oikea (FullName, 9) MsgBox-sukunimi End Sub
Vaihe 7: Suorita makro. Näemme sukunimen viestiruudussa.
Esimerkki # 3 - Instr-toiminnon käyttäminen
In the above examples, we had only one name, and we have directly supplied how many characters we need from the left & right. But in the case of many names, first name & last name characters are not the same, it will differ from name to name. In those cases, we cannot supply the number of characters directly so we can use the function Instr.
Instr function will return the supplied character position in the string. For example, look at the below code.
Code:
Sub SubString_Example3() Dim Position 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:
Ala-etunimi () Dim K As Long Dim LR As Long LR = Solut (Rivit.Määrä, 1) .End (xIUp) .Rivi K = 2: lle LR-soluille (K, 2). Arvo = Vasen (Solut (K, 1) .arvo, InStr (1, solut (K, 1) .arvo, "") - 1) Seuraava K-loppuosa
Suorita makro ja näe etunimi alirivinä viestiruudussa.
Käytä alla olevaa koodia poimiaksesi sukunimen alimerkkijonona.
Koodi:
Ala Sukunimi () Dim K As Long Dim LR As Long LR = Solut (Rivit.Määrä, 1) .End (xIUp) .Rivi K = 2: lle LR-soluille (K, 3). Arvo = Oikea (Solut (K, 1) .Arvo, Len (solut (K, 1)) - InStr (1, solut (K, 1) .arvo, "")) Seuraava K loppuosa
Suorita makro, niin näet sukunimen viestiruudussa.
Olen määrittänyt makropainikkeen laskentataulukolle, lataan työkirjan ja käytän niitä.
