při práci v VBA, často je třeba převést řetězce na malá, velká nebo správná písmena. To je možné pomocí funkcí UCase, LCase a StrConv.
tyto funkce jsou důležité při manipulaci s řetězci ve VBA, protože VBA je malá a velká písmena. Pokud si přejete, aby VBA byla malá a velká písmena necitlivá, musíte přidat možnost porovnat Text v horní části modulu. Více se o tom dozvíte zde: Zabránit VBA malá a velká písmena
UCase-převést řetězec na velká písmena
funkce UCase ve VBA převede 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:
|
1
2
3
4
5
6
7
8
|
Dim strText Jako Řetězec
Dim strTextUCase Jako Řetězec
strText = „běžecká Velká písmena funkce“
strTextUCase = UCase(strText)
MsgBox strTextUCase
|
V příkladu, chceme převést všechny písmena strText proměnné na velká písmena a přiřadit převést řetězec na strTextUCase proměnné. Na konci zavoláme okno se zprávou s převedeným řetězcem:
Obrázek 1. Pomocí funkce UCase ve VBA
LCase – Převést Řetězec na malá písmena
Pokud chcete převést všechna písmena řetězce na nižší případech, budete muset použít LCase. Tato funkce má jeden argument, stejný jako UCase. Toto je Kód pro funkci LCase:
|
1
2
3
4
5
6
7
8
|
Dim strText Jako Řetězec
Dim strTextLCase Jako Řetězec
strText = „BĚŽÍ malá FUNKCE“
strTextLCase = LCase(strText)
MsgBox strTextLCase
|
V tomto příkladu jsme převést všechna písmena řetězce od A1 do dolní případě. Poté je převedený řetězec přiřazen buňce A1.
Obrázek 2. Pomocí funkce LCase ve VBA
StrConv – Převést Řetězec na Správné Případě
funkce StrConv umožňuje převést textový řetězec na správnou případ. Funkce má dva argumenty. První je řetězec, který chcete převést. Druhým je typ konverze, kterou chcete. Chcete-li převést řetězec na správný případ, musíte jej nastavit na vbProperCase. Kód funkce je:
|
1
2
3
4
5
6
7
8
|
Dim strText As String
Dim strTextProperCase As String
strText = „running proper case function“
strTextProperCase = StrConv(strText, vbProperCase)
MsgBox strTextProperCase
|
You will see on the example how the function works. Vezme řetězec z buňky B1, převede jej na správný případ a vrátí hodnotu v buňce A1.
obrázek 3. Pomocí funkce StrConv ve VBA
StrConv – Převést Řetězec na velká nebo malá písmena
Pomocí funkce StrConv, můžete také převést řetězec na horní nebo dolní případech. 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í, Správné a Případ – Případ Funkcí v Přístupu
Všechny výše uvedené příklady pracují úplně stejně v Access VBA jako v aplikaci Excel VBA.
|
1
2
3
4
|
Private Sub ClientName_AfterUpdate()
‚to bude převést text na jméno klienta box na velká písmena
Mě.ClientName = UCase (Mě.ClientName)
End Sub
|
