pracując w VBA, często musisz przekonwertować ciągi znaków na małe, wielkie lub właściwe litery. Jest to możliwe przy użyciu funkcji UCase, LCase i StrConv.
te funkcje są ważne podczas manipulowania ciągami znaków w VBA, ponieważ VBA ma rozróżnianie wielkości liter. Jeśli chcesz, aby wielkość liter w VBA była niewrażliwa, musisz dodać opcję Porównaj tekst u góry modułu. Możesz dowiedzieć się więcej na ten temat tutaj: Zapobiega rozróżnianiu wielkości liter w VBA
Ucase-konwertuje ciąg znaków na wielkie litery
funkcja UCase w VBA konwertuje wszystkie litery ciągu znaków na wielkie litery. Istnieje tylko jeden argument, który może być łańcuchem, zmienną z łańcuchem lub wartością komórki. Ta funkcja jest często używana, jeśli chcesz porównać dwa ciągi znaków. Oto kod funkcji UCase:
|
1
2
3
4
5
6
7
8
|
Dim strText As String
Dim strTextUCase As String
strText = „uruchamianie funkcji wielkich liter”
strTextUCase = UCase(strText)
MsgBox strTextUCase
|
w przykładzie chcemy skonwertować wszystkie litery zmiennej strtextext na wielkie litery i przypisać skonwertowany łańcuch do zmiennej strTextUCase. Na końcu wywołujemy pole wiadomości z przekonwertowanym ciągiem:
Zdjęcie 1. Korzystanie z funkcji UCase w VBA
LCase – Konwersja ciągu znaków na małe litery
jeśli chcesz przekonwertować wszystkie litery ciągu na małe litery, musisz użyć funkcji LCase. Funkcja ta ma jeden argument, taki sam jak UCase. Jest to kod funkcji LCase:
|
1
2
3
4
5
6
7
8
|
Dim strText As String
Dim strTextLCase As String
strText = „uruchomiona funkcja małych liter”
strTextLCase = LCase(strText)
MsgBox strTextLCase
|
w tym przykładzie zamieniamy wszystkie litery łańcucha z A1 na małe litery. Następnie skonwertowany łańcuch jest przypisywany do komórki A1.
Zdjęcie 2. Korzystanie z funkcji LCase w VBA
StrConv-konwertuje ciąg znaków na właściwe wielkości liter
funkcja StrConv umożliwia konwersję ciągu tekstu na właściwe wielkości liter. Funkcja ma dwa argumenty. Pierwszy to ciąg, który chcesz przekonwertować. Drugi to typ konwersji, który chcesz. Aby przekonwertować ciąg znaków na właściwy przypadek, musisz ustawić go na vbProperCase. Kod funkcji to:
|
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. Pobiera łańcuch z komórki B1, konwertuje go do właściwego przypadku i zwraca wartość w komórce A1.
zdjęcie 3. Korzystanie z funkcji StrConv w VBA
StrConv-Konwertuj ciąg znaków na wielkie lub małe litery
używając funkcji StrConv, możesz również konwertować ciąg znaków na wielkie lub małe litery. Aby to zrobić, wystarczy ustawić drugi argument na vbUpperCase lub vbLowerCase:
|
1
|
strTextConverted = StrConv (strText, vbUpperCase)
|
|
1
|
strTextConverted = StrConv (strText, vbLowerCase)
|
VBA funkcje Upper, Lower i Proper Case-Case W Access
wszystkie powyższe przykłady działają dokładnie tak samo w Access VBA jak w Excel VBA.
|
1
2
3
4
|
Private Sub ClientName_AfterUpdate ()
'spowoduje to konwersję tekstu w polu Nazwa klienta na wielkie litery
Me.ClientName = UCase (Me.ClientName)
End Sub
|
