Funkce Excel VBA StrConv
Funkce StrConv ve VBA je kategorizována pod řetězcovými funkcemi, což je konverzní funkce, použití této funkce spočívá v tom, že mění případ řetězce se vstupem poskytovaným vývojářem, argumenty této funkce jsou řetězec a vstup pro případ jako 1 pro změnu řetězce na malá písmena.
StrConv je zkratka pro „String Conversion“. Pomocí této funkce VBA můžeme převést dodaný řetězec do zadaného formátu. Jedna věc, kterou zde musíte pochopit, je, že můžeme tento vzorec použít pouze jako funkci VBA, nikoli jako funkci listu aplikace Excel. V tomto článku provedeme prohlídku úplných podrobných příkladů vzorce „ VBA StrConv “.
Dobře, podívej se na syntaxi funkce StrConv .
Řetězec: Toto není nic jiného než text, který se snažíme převést.
Konverze: Jaký druh konverze musíme udělat. Níže máme širokou škálu možností, kde je seznam konverzí, které můžeme provést.
- vbUpperCase nebo 1: Tato možnost převede zadanou textovou hodnotu na velká písmena. Funguje to podobně jako funkce UCASE. Pokud například zadáte slovo „Excel“, bude převedeno na „EXCEL“.
- vbLowerCase nebo 2: Tato možnost převede zadanou textovou hodnotu na malá písmena v aplikaci Excel. Funguje to podobně jako funkce LCASE. Pokud například zadáte slovo „Excel“, bude převedeno na „Excel“.
- vbProperCase nebo 3: Tato možnost převede zadanou textovou hodnotu na znak správné velikosti. Každý první znak slova bude převeden na velká písmena a všechna zbývající písmena budou převedena na malá písmena. Pokud například zadáte slovo „excEL“, bude převedeno na „Excel“.
- vbUniCode nebo 64: Tato možnost převede řetězec na kód Unicode.
- vbFromUnicode nebo 128: Tím se převede řetězec Unicode na výchozí systémový kód.
I když máme několik dalších možností s výše uvedeným argumentem Konverze , tři jsou pro nás dost dobré.
LCID: Toto je ID národního prostředí. Ve výchozím nastavení trvá ID systému. To nebude využívat 99% času.
Příklady funkce StrConv ve VBA
Příklad č. 1
Nyní se podívejte na příklad převodu řetězce na znak VELKÁ PŘÍPADA. Zde používám slovo „Excel VBA“. Níže je uveden kód VBA.
Kód:
Sub StrConv_Example1 () Dim TextValues jako řetězec Dim výsledek jako řetězec TextValues = "Excel vba" Result = StrConv (TextValues, vbUpperCase) Výsledek MsgBox End Sub
Tím se převede řetězec „Excel VBA“ na velká písmena.
Spusťte tento kód pomocí klávesy F5 nebo ručně a podívejte se na jeho výsledek.
Příklad č. 2
Nyní se podívejte na stejný řetězec s malými převody. Níže je uveden kód.
Kód:
Sub StrConv_Example2 () Dim TextValues jako řetězec Dim výsledek jako řetězec TextValues = "Excel vba" Result = StrConv (TextValues, vbLowerCase) Výsledek MsgBox End Sub
Tím se řetězec „Excel VBA“ převede na malá písmena.
Můžete spustit ručně nebo pomocí klávesové zkratky aplikace Excel F5. Níže je výsledek stejného.
Příklad č. 3
Nyní se podívejte na stejný řetězec se správným převodem velkých a malých písmen. Níže je uveden kód.
Kód:
Sub StrConv_Example3 () Dim TextValues jako řetězec Dim výsledek jako řetězec TextValues = "Excel vba" Result = StrConv (TextValues, vbProperCase) Výsledek MsgBox End Sub
Tím se převede řetězec „Excel VBA“ na správný případ. Každé první písmeno řetězce má velká písmena a každé písmeno za mezerou je také převedeno na velká písmena a všechny zbývající znaky budou převedeny na malá písmena. Níže je výsledek stejného.
Příklad č. 4
Nyní se podívejme na příklad znaku Unicode. Podívejte se na níže uvedený kód.
Kód:
Sub StrConv_Example4 () Dim i As Long Dim x () As Byte x = StrConv ("ExcelVBA", vbFromUnicode) For i = 0 To UBound (x) Debug.Print x (i) Další End Sub
Tím se vytisknou všechny znaky Unicode do bezprostředního okna.
V kódu ASCII je „E“ Unicode 69, „x“ Unicode 120 atd. Takto můžeme pomocí VBA StrConv převést řetězec na Unicode.
