VBA UCase -toiminto | Muunna teksti isoksi Excel VBA: ssa

Excel VBA UCase -toiminto

VBA: n Ucase on sisäänrakennettu toiminto, jota käytetään muuntamaan sille syötetty merkkijono isoilla kirjaimilla, se tarvitsee yhden argumentin, joka on merkkijono syötteenä, ja tämän toiminnon tuottama lähtö on merkkijono, yksi asia, joka on pidettävä mielessä on, että tämä toiminto muuntaa kaikki toiminnot isoiksi, ei vain ensimmäiseksi merkiksi.

On tilanteita, joissa joudumme muuntaa osan tekstiarvoista UPPERCASE: ksi Excelissä. Tämä voidaan tehdä käyttämällä UPPER-toimintoa tavallisessa laskentataulukossa ja UCase-toimintoa VBA-koodissa.

Jos etsit jo UPPER-toimintoa VBA: ssa, et löydä sitä edes laskentataulukon funktioluokan kanssa. VBA: ssa se on täysin erilainen ja lyhyt nimitoiminto eli "UCASE". Tässä U tarkoittaa lyhennettä UPPER, joten kaavassa lukee UPPERCASE.

Syntaksi

Katsokaa nyt UCASE-funktion syntaksia.

Merkkijono: Se ei ole muuta kuin mitä teksti-arvoa yritämme muuntaa isoksi kirjaimeksi. Tämä voi olla myös suora arvo tai soluviite. Näemme molemmat esimerkit lyhyessä ajassa.

Kuinka muuntaa teksti isoksi kirjaimeksi käyttämällä VBA Ucase -ohjelmaa?

Voit ladata tämän VBA UCase Excel -mallin täältä - VBA UCase Excel -malli

Esimerkki 1

Yritetään muuntaa teksti-arvo Excel vba isoksi tekstiksi käyttämällä UCase-toimintoa.

Vaihe 1: Aloita alimenettely luomalla makro.

Koodi:

 Ala UCase_Example1 () End Sub 

Vaihe 2: Ilmoita muuttuja VBA-merkkijonoksi.

Koodi:

 Sub UCase_Example1 () Dim k As String End Sub 

Vaihe 3: Määritä arvo muuttujalle "k" soveltamalla "UCASE" -toimintoa.

Vaihe 4: Tässä merkkijono on kohdistettu tekstiarvomme, jonka yritämme muuntaa isoksi, ja merkkijonon arvo on “excel vba”.

Koodi:

 Sub UCase_Example1 () Dim k As String K = UCase ("excel vba") End Sub 

Vaihe 5: Näytetään muuttujan tulos viestiruudussa.

Koodi:

 Sub UCase_Example1 () Dim k As String k = UCase ("excel vba") MsgBox k End Sub 

Ok, olemme tehneet VBA-koodausosan. Suoritetaan makro nähdäksesi tulokset viestiruudussa.

Joten Isot kirjaimet -toiminto muunsi tekstiarvon "excel vba" muotoon "EXCEL VBA" muutamassa sekunnissa.

Esimerkki 2

Katsotaanpa esimerkkiä funktion soluviitteen käytöstä. Sama tekstiarvo, jonka olen kirjoittanut soluun A1.

Vaihe 1: Näytämme tuloksen Range B1 -solussa, joten koodi on Range ("B"). Arvo =

Koodi:

 Sub UCase_Example2 () -alue ("B1"). Arvo = End Sub 

Vaihe 2: Solut B1 UCASE-toiminnon kautta tallennamme tiedot, joten avaa UCASE-toiminto.

Vaihe 3: Tässä merkkijonoarvo on tällä kertaa soluviittaus. Anna siis soluviite alueeksi (“A1”).

Koodi:

 Sub UCase_Example2 () -alue ("B1"). Arvo = UCase (Range ("A1"). Arvo) End Sub 

Joten, tehty.

Suorita koodi ja katso tulos B1-solussa.

Esimerkki 3

Yllä olevassa esimerkissä olemme nähneet ainoan yksisoluisen arvon, joka on muunnettu isoksi. Kuvittele, jos sinulla on useita nimiä, kuten alla oleva kuva.

Näissä tapauksissa emme voi jatkaa koodin kirjoittamista jokaiselle riville, joten meidän on liitettävä kaava silmukoilla. Alla oleva koodi muuntaa yllä olevat tekstiarvot isoiksi kerralla.

Koodi:

 Ala UCase_Example3 () Dim k niin kauan kuin k = 2 - 8 solua (k, 2). Arvo = UCase (solut (k, 1). Arvo) Seuraava k End Sub 

Tämä muuntaa kaikki tekstiarvot isoin kirjaimin riviltä 2 riville 8 seuraavasti.

Kuvittele, jos haluat muuntaa kaikki valitut soluarvot isoiksi, käytä alla olevaa koodia.

Koodi:

 Sub UCase_Example4 () Dim Rng Range Range Rng = valinta jokaiselle valitsemallesi Rng: lle Rng = UCase (Rng.Value) Seuraava Rng End Sub 

Jotta tämä koodi toimisi, meidän on ensin valittava muunnettava isojen kirjainten solualue ja suoritettava sitten makro. Vain valitulla alueella se muuntaa tekstiarvot isoin kirjaimin.


$config[zx-auto] not found$config[zx-overlay] not found