työskennellessäsi VBA: ssa sinun täytyy usein muuntaa merkkijonoja pieniksi, isoiksi tai oikeiksi kirjaimiksi. Tämä on mahdollista käyttämällä ucase, LCase ja StrConv toimintoja.
nämä funktiot ovat tärkeitä merkkijonoja manipuloitaessa VBA: ssa, koska VBA on kirjainkokoherkkä. Jos haluat tehdä VBA tapaus-tunteeton, sinun täytyy lisätä vaihtoehto vertaa tekstiä yläosassa moduulin. Aiheesta lisää täällä: Estä VBA-Kirjainherkkyys
UCase-Muunna merkkijono Suuraakkoseksi
VBA: n UCase-funktio muuntaa kaikki merkkijonon kirjaimet isoiksi kirjaimiksi. On vain yksi argumentti, joka voi olla merkkijono, muuttuja merkkijono tai solun arvo. Tätä toimintoa käytetään usein, jos haluat vertailla kahta merkkijonoa. Tässä on UCase-funktion koodi:
|
1
2
3
4
5
6
7
8
|
Dim strText As String
Dim strTextUCase As String
strText = ”running Bigcase function”
strTextUCase = UCase (strText)
MsgBox strTextUCase
|
esimerkissä Haluamme muuntaa kaikki kirjaimet strText muuttuja suuraakkoseksi ja määrittää muunnettu merkkijono strTextUCase muuttuja. Lopussa kutsumme viestikenttään muunnetulla merkkijonolla:
Kuva 1. UCase-funktion käyttäminen VBA: ssa
LCase – Muunna merkkijono Pienaakkoseksi
jos haluat muuttaa kaikki merkkijonon kirjaimet pienaakkosiksi, sinun on käytettävä lcase-funktiota. Tämä funktio on yksi argumentti, sama kuin UCase. Tämä on lcase-funktion koodi:
|
1
2
3
4
5
6
7
8
|
Dim strText As String
Dim strTextLCase As String
strText = ”RUNNING lowerCASE FUNCTION”
strTextLCase = lcase (strText)
MsgBox strTextLCase
|
tässä esimerkissä muunnamme kaikki merkkijonon kirjaimet A1: stä pienaakkosiin. Tämän jälkeen muunnettu merkkijono osoitetaan soluun A1.
kuva 2. Lcase-toiminnon käyttäminen VBA: ssa
StrConv-Muunna merkkijono oikeaan tapaukseen
StrConv-funktion avulla voit muuntaa merkkijonon tekstin oikeaan tapaukseen. Funktiolla on kaksi argumenttia. Ensimmäinen on merkkijono, jonka haluat muuntaa. Toinen on haluamasi muunnoksen tyyppi. Jotta voidaan muuntaa merkkijono oikea tapaus, sinun täytyy asettaa se vbpropercase. Funktion koodi on:
|
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. Se ottaa merkkijonon solusta B1, muuntaa sen oikeaan tapaukseen ja palauttaa arvon solussa A1.
kuva 3. Strconv-funktion käyttäminen VBA: ssa
StrConv-muuntaa merkkijonon ylä-tai Pienaakkoseksi
StrConv-funktion avulla voit myös muuntaa merkkijonon ylä-tai pienaakkosiksi. Voit tehdä tämän, sinun tarvitsee vain asettaa toinen argumentti vbuppercase tai vbLowerCase:
|
1
|
strTextConverted = StrConv(strText, vbUpperCase)
|
|
1
|
strTextConverted = StrConv(strText, vbLowerCase)
|
VBA ylempi, alempi ja oikea Tapaustoiminnot Access
kaikki edellä mainitut esimerkit toimivat täsmälleen samoin Access VBA: ssa kuin Excel VBA: ssa.
|
1
2
3
4
|
Private Sub ClientName_AfterUpdate ()
” tämä muuttaa asiakkaan nimi-ruudun tekstin isoiksi kirjaimiksi
Me.ClientName = UCase (Me.ClientName)
End Sub
|
