See õpetus näitab, kuidas kasutada paremat VBA -funktsiooni paremalt teksti väljavõtmiseks.
Parem funktsioon
VBA Paremfunktsioon Viimane n tähemärki
Funktsioon VBA Right tagastab stringi viimased n tähemärki:
| 123456 | AlamparemNäide_1 ()MsgBox Right ("ABCDEFGHI", 4) 'Tulemus on: "FGHI"MsgBox Right ("ABCDEFGHI", 2) 'Tulemus on: "HI"MsgBox Right ("ABCDEFGHI", 1) 'Tulemus on: "I"MsgBox Right ("ABCDEFGHI", 100) 'Tulemus on: "ABCDEFGHI"End Sub |
VBA paremfunktsioon Variandi viimased n tähemärki
Nagu ülalpool näidatud, saate stringi määratleda lihtsalt jutumärkidega ümbritsetud teksti sisestamisega. Funktsioon RIGHT töötab ka stringimuutujatega. Need näited eraldavad stringimuutujast viimase n märgi.
| 123456789 | AlamparemNäide_2 ()Dim StrEx stringina 'Määrake stringimuutujaStrEx = "ABCDEFGHI"MsgBox Right (StrEx, 4) 'Tulemus: "FGHI"MsgBox Right (StrEx, 2) 'Tulemus: "HI"MsgBox Right (StrEx, 1) 'Tulemus: "I"MsgBox Right (StrEx, 100) Tulemuseks on: "ABCDEFGHI"End Sub |
VBA programmeerimine | Koodigeneraator töötab teie jaoks!
VBA parem funktsioon Lahtri viimased n tähemärki
Stringid saab määratleda VBA -koodis, kuid saate kasutada ka lahtrite väärtusi. Lugege lahtri väärtust, hoidke seda stringimuutjas ja eraldage selle töölehe lahtri väärtusest viimased n tähemärki.
| 123456789101112 | AlamparemNäide_3 ()Dim StrEx stringina 'Määrake stringimuutuja"Lugege töölehe lehe 1 lahtri A1 väärtustStrEx = ThisWorkbook.Worksheets ("Sheet1"). Vahemik ("A1"). VäärtusSelle näite puhul on lahtri A1 väärtus "ABCDEFG hI"MsgBox Right (StrEx, 4) 'Tulemus: "G hI"MsgBox Right (StrEx, 2) 'Tulemus: "hI"MsgBox Right (StrEx, 1) 'Tulemus: "I"MsgBox Right (StrEx, 100) 'Tulemus: "ABCDEFG hI"End Sub |
VBA parema funktsiooni kärpimine esimesest tähest
Tähe eemaldamiseks stringi algusest kasutage funktsiooni FIGHT koos LEN -funktsiooniga.
Funktsioon VBA LEN loeb stringi tähemärkide arvu:
| 1 | Len (StrEx) |
Funktsioone kombineerides saame stringi algusest eemaldada teatud arvu märke:
| 12345678 | AlamparemNäide_4 ()Dim StrEx stringina 'Määrake stringimuutujaStrEx = "ABCDEF"MsgBox Right (StrEx, Len (StrEx)) 'Tulemus: "ABCDEF"MsgBox paremale (StrEx, Len (StrEx) - 1) 'Tulemus: "BCDEF"MsgBox paremale (StrEx, Len (StrEx) - 2) 'Tulemus: "CDEF"End Sub |
VBA Õigus teksti tühjendada pärast tühikut
Perekonnanime eraldamiseks täisnimega stringist kasutage funktsiooni Funktsioon Parem koos Len ja Instr funktsioonidega.
Funktsioon VBA LEN loeb stringi tähemärkide arvu:
| 1 | Len (StrEx) |
Funktsioon VBA InStr otsib stringist alamstringi ja tagastab alamstringi positsiooni numbri.
| 1 | InStr (StrEx, "") |
Funktsioone kombineerides saame fraasist esimese tühiku järel oleva osa välja võtta:
| 123456789101112131415 | AlamparemNäide_5 ()Dim StrEx stringina 'Määrake stringimuutujaStrEx = "Luke Skywalker"MsgBox paremal (StrEx, Len (StrEx) - InStr (StrEx, ""))Tulemus: "Skywalker"StrEx = "Leonardo da Vinci"MsgBox paremal (StrEx, Len (StrEx) - InStr (StrEx, ""))"Tulemus:" da Vinci "StrEx = "Olgu jõud teiega"MsgBox paremal (StrEx, Len (StrEx) - InStr (StrEx, ""))"Tulemus on:" jõud olgu teiega "End Sub |
Kas olete väsinud VBA koodinäidete otsimisest? Proovige AutoMacrot!
VBA Viimase sõna väljavõtmise õigus
Fraasiga stringist viimase sõna ekstraheerimiseks kasutage funktsiooni Funktsioon Parem koos Len ja InstrRev funktsioonidega.
Nagu eespool nägime, loeb funktsioon VBA LEN stringis olevate märkide arvu:
| 1 | Len (StrEx) |
Funktsioon VBA InStrRev otsib stringist alamstringi ja tagastab alamstringi positsiooni numbri. See alustab otsingut fraasi lõpust (paremalt vasakule), kuid tagastab positsiooni stringi algusest (vasakult paremale).
| 1 | InStrRev (StrEx, "") |
Funktsioone kombineerides saame ekstraheerida fraasist viimase tühiku järel oleva osa:
| 123456789101112131415 | AlamparemNäide_6 ()Dim StrEx stringina 'Määrake stringimuutujaStrEx = "Luke Skywalker"MsgBox paremal (StrEx, Len (StrEx) - InStrRev (StrEx, ""))Tulemus: "Skywalker"StrEx = "Leonardo da Vinci"MsgBox paremal (StrEx, Len (StrEx) - InStrRev (StrEx, ""))"Tulemus:" da Vinci "StrEx = "Olgu jõud teiega"MsgBox paremal (StrEx, Len (StrEx) - InStrRev (StrEx, ""))Tulemus: "sina"End Sub |
