Tento tutoriál předvede, jak používat funkce UCASE, LCASE a STRCONV ve VBA.
Při práci ve VBA často potřebujete převést řetězce na malá, velká nebo správná písmena. To je možné pomocíUCase, LCase a StrConv funkce.
Tyto funkce jsou důležité při manipulaci s řetězci ve VBA, jako je VBA citlivý na velká písmena. Pokud chcete, aby VBA nerozlišovala malá a velká písmena, musíte přidat Option Porovnat text v horní části modulu. Více se o tom dozvíte zde: Zabraňte VBA rozlišování malých a velkých písmen
UCase - Převod řetězce na velká písmena
The UCase funkce ve VBA převádí všechna písmena řetězce na velká písmena. Existuje pouze jeden argument, kterým může být řetězec, proměnná s řetězcem nebo hodnota buňky. Tato funkce se často používá, pokud chcete porovnat dva řetězce. Zde je kód pro funkci UCase:
| 12345678 | Dim strText jako řetězecDim strTextUCase jako řetězecstrText = "spuštění funkce velkých písmen"strTextUCase = UCase (strText)MsgBox strTextUCase |
V tomto příkladu chceme převést všechna písmena strText proměnná na velká písmena a přiřadit převedený řetězec na strTextUCase proměnná. Na konci voláme pole se zprávou s převedeným řetězcem:
LCase - Převod řetězce na malá písmena
Pokud chcete převést všechna písmena řetězce na malá písmena, musíte použít LCase funkce. Tato funkce má jeden argument, stejný jako UCase. Toto je kód pro funkci LCase:
| 12345678 | Dim strText jako řetězecDim strTextLCase jako řetězecstrText = "SPUŠTĚNÍ FUNKCE lowerCASE"strTextLCase = LCase (strText)MsgBox strTextLCase |
V tomto případě převedeme všechna písmena řetězce z A1 na malá písmena. Poté je převedený řetězec přiřazen k buňce A1.
StrConv - Převod řetězce na správný případ
The StrConv funkce umožňuje převést řetězec textu na správná písmena. Funkce má dva argumenty. První je řetězec, který chcete převést. Druhý je požadovaný typ převodu. Abyste mohli řetězec převést na správný případ, musíte jej nastavit na vbProperCase. Kód pro funkci je:
| 12345678 | Dim strText jako řetězecDim strTextProperCase jako řetězecstrText = "spuštění správné funkce případu"strTextProperCase = StrConv (strText, vbProperCase)MsgBox strTextProperCase |
Na příkladu uvidíte, jak funkce funguje. Odebere řetězec z buňky B1, převede jej na správný případ a vrátí hodnotu v buňce A1.
StrConv - Převod řetězce na velká nebo malá písmena
Pomocí funkce StrConv můžete také převést řetězec na velká nebo malá písmena. Chcete -li to provést, stačí nastavit druhý argument na vbUpperCase nebo vbLowerCase:
| 1 | strTextConverted = StrConv (strText, vbUpperCase) |
| 1 | strTextConverted = StrConv (strText, vbLowerCase) |
VBA horní, dolní a správný případ - funkce případu v Accessu
Všechny výše uvedené příklady fungují v Access VBA úplně stejně jako v Excelu VBA.
| 1234 | Private Sub ClientName_AfterUpdate ()'toto převede text v poli se jménem klienta na velká písmena.'Me.ClientName = UCase (Me.ClientName)End Sub |
