Excel VBA UCase funkcija
Ucase VBA ir iebūvēta funkcija, kas tiek izmantota, lai pārveidotu ievades virkni, kas tai tiek nodrošināta ar lielajiem burtiem. Tas prasa vienu argumentu, kas ir virkne kā ievade, un šīs funkcijas radītā izeja ir virkne, kas jāpatur Paturiet prātā, ka šī funkcija pārvērš visu funkciju lielajiem burtiem, ne tikai pirmo rakstzīmi.
Pastāv situācijas, kad mums ir jāpārvērš dažas teksta vērtības programmā UPPERCASE programmā Excel. To var izdarīt, izmantojot UPPER funkciju parastajā darblapas funkcijā un UCase funkciju VBA kodā.
Ja jūs jau meklējat funkciju UPPER VBA, tad to neatradīsit pat ar darblapas funkciju klasi. VBA tā ir pilnīgi atšķirīga un īsa nosaukuma funkcija, ti, “UCASE”. Šeit “U” nozīmē “UPPER”, tāpēc formula ir “UPPERCASE”.
Sintakse
Tagad aplūkojiet funkcijas UCASE sintaksi.
Virkne: Tas ir nekas cits kā tā teksta vērtība, kuru mēs mēģinām pārveidot par lielo burtu. Tā varētu būt arī tieša vērtība vai atsauce uz šūnu. Īsā laikā mēs redzēsim abu veidu piemērus.
Kā konvertēt tekstu uz lielajiem burtiem, izmantojot VBA Ucase?
1. piemērs
Mēģināsim pārveidot teksta vērtību excel VBA par lielo burtu, izmantojot funkciju UCase.
1. darbība. Sāciet apakšprocedūru, izveidojot makro.
Kods:
Apakšgrupa UCase_Example1 () Beigu apakšgrupa
2. darbība: paziņojiet mainīgo kā VBA virkni.
Kods:
Sub UCase_Example1 () Dim k As String End Sub
3. darbība: piešķiriet vērtību mainīgajam “k”, izmantojot funkciju “UCASE”.
4. solis: Šeit virkne ir mūsu mērķētā teksta vērtība, kuru mēs cenšamies pārvērst lielajiem burtiem, un virknes vērtība ir “Excel VBA”.
Kods:
Sub UCase_Example1 () Dim k As virkne K = UCase ("excel vba") Beigas Sub
5. solis: Parādīsim mainīgā rezultātu ziņojumu lodziņā.
Kods:
Sub UCase_Example1 () Dim k As virkne k = UCase ("excel vba") MsgBox k End Sub
Labi, mēs esam pabeiguši VBA kodēšanas daļu. Palaidīsim makro, lai redzētu rezultātu ziņojumu lodziņā.
Tātad lielo burtu funkcija dažu sekunžu laikā pārveidoja teksta vērtību “excel VBA” par “EXCEL VBA”.
2. piemērs
Apskatīsim piemēru, kā izmantot šūnu atsauci uz funkciju. Tā pati teksta vērtība, kuru esmu ievadījis šūnā A1.
1. darbība: mēs parādīsim rezultātu B1 diapazona šūnā, tāpēc kods būs diapazons (“B”). Vērtība =
Kods:
Sub UCase_Example2 () diapazons ("B1"). Vērtība = End Sub
2. solis: šūnā B1, izmantojot funkciju UCASE, mēs saglabāsim datus, tāpēc atveriet funkciju UCASE.
3. solis: šoreiz virknes vērtība ir šūnas atsauce. Tāpēc norādiet šūnas atsauci kā diapazonu (“A1”).
Kods:
Sub UCase_Example2 () diapazons ("B1"). Vērtība = UCase (Range ("A1"). Vērtība) Beigas Sub
Tātad, darīts.
Palaidiet kodu un skatiet rezultātu B1 šūnā.
3. piemērs
Iepriekš minētajā piemērā mēs esam redzējuši vienīgo vienšūnas vērtību, kas jāpārvērš lielajos burtos. Iedomājieties, ja jums ir vairāki nosaukumi, piemēram, zemāk redzamais attēls.
Šādos gadījumos mēs nevaram turpināt rakstīt kodu katrai atsevišķai rindai, tāpēc mums jāpievieno formula ar cilpām. Zemāk redzamais kods uzreiz pārvērš iepriekš minētās teksta vērtības lielajos burtos.
Kods:
Sub UCase_Example3 () Dim k tik ilgi, kamēr k = 2 līdz 8 šūnas (k, 2). Vērtība = UCase (šūnas (k, 1). Vērtība) Nākamais k Beigas Sub
Tas pārveidos visas teksta vērtības lielajos burtos no 2. līdz 8. rindai šādi.
Iedomājieties, ja vēlaties pārvērst visas atlasītās šūnas vērtības lielajos burtos, tad izmantojiet zemāk esošo kodu.
Kods:
Sub UCase_Example4 () Dim Rng As Range Set Rng = Atlase katram atlasītajam Rng Rng = UCase (Rng.Value) Nākamā Rng End Sub
Lai šis kods darbotos, vispirms mums jāizvēlas šūnu diapazons, kuru vēlaties pārvērst lielajos burtos, pēc tam palaidiet makro. Tikai atlasītajā diapazonā tas konvertēs teksta vērtības uz lielajiem burtiem.
