Mēs zinām, kā darblapā pārvērst mazos tekstus par lielajiem, bet kā mēs varam pārvērst mazos burtus par lielajiem, izmantojot VBA? Automatizējot procesu, jums var būt nepieciešams konvertēt lapas tekstu ar lielajiem burtiem.
Darblapā mēs izmantojam funkciju UPPER, lai mazos burtus mainītu uz lielajiem burtiem. VBA mums ir līdzīga funkcija. Nosaukums ir funkcija UCase. UCase apzīmē UpperCase.
UCase funkcijas sintakse:
= UCase (Stīga)
Šeitvirknevar būt cietā koda virkne vai atsauce uz virkni.
Tātad, tagad, kad mēs zinām par funkciju, ko var izmantot, lai mainītu mazos burtus uz lielajiem burtiem, izmantosim to praktiskā piemērā.
Pārvērst visu lapas tekstu par lielajiem burtiem
Šeit mums ir vienkāršs uzdevums pārvērst visu dotās lapas tekstu darbgrāmatā ar lielajiem burtiem. L
Lai iegūtu kodu teksta pārvēršanai lielajos burtos; mums ir jāveic šādas darbības, lai palaistu VB redaktoru
- Noklikšķiniet uz cilnes Izstrādātājs
- Kodu grupā atlasiet Visual Basic
Nokopējiet zemāk esošo kodu darblapas modulī (nevis parastajā modulī).
Lielo burtu kods1 ()
Application.ScreenUpdating = Nepareizi
Dim Rng kā diapazons
Dim c As Range
Par kļūdu Atsākt nākamo
Iestatīt Rng = Cells.SpecialCells (xlCellTypeConstants, 2)
Par katru c In Rng
c. Vērtība = UCase (c. Vērtība)
Nākamais c
Application.ScreenUpdating = Patiess
Beigt apakš
Kā tas darbojas?
Iepriekš minētais kods ir ierakstīts moduļa sheet1. Iepriekš minētais kods pārvērsīs visu lapas1 tekstu ar lielajiem burtiem.
Iepriekš minētā koda galvenās rindas ir šādas:
Iestatīt Rng = Cells.SpecialCells (xlCellTypeConstants, 2)
Par katru c In Rng
c. Vērtība = UCase (c. Vērtība)
Nākamais c
Šeit mēs izmantojam Cells klases funkciju SpecialCells un nododam argumentus xlCellTypeConstants. Tas atgriež šūnu un diapazonu uzskaitījumu, kas satur konstantes.
Tālāk mēs izmantojam for cilpu, lai uzskaitītu katru šūnu. Tālāk mēs mainām šīs šūnas vērtību, izmantojot UCase funkciju.
Šeit paziņojumsc. Vērtība = UCase (c. Vērtība) atjaunina vērtības katrā šūnā ar lielajiem burtiem.
2. piemērs: pārvērst A slejas tekstu par lielajiem burtiem.
Šajā piemērā mūsu uzdevums ir pārveidot tikai teksta kolonnu A. Iespējams, vēlēsities to darīt, ja noteiktās slejās ir īpašs teksts, kuram jābūt tikai lielajiem burtiem.
Lielo burtu kods2 () Application.ScreenUpdating = Nepareizi
Dim šūna kā diapazons
Katrai diapazona šūnai ("$ A $ 1:" & diapazons ("$ A $ 1"). SpecialCells (xlLastCell) .Address)
Ja Len (šūna)> 0, tad šūna = UCase (šūna)
Nākamā šūna
Application.ScreenUpdating = Patiess
Beigt apakš
Kods ir gandrīz tāds pats kā iepriekšējā piemērā. Vienīgās izmaiņas mums ir šādas rindas:
Katrai diapazona šūnai ("$ A $ 1:" & diapazons ("$ A $ 1"). SpecialCells (xlLastCell) .Address)
Ja Len (šūna)> 0, tad šūna = UCase (šūna)
Nākamā šūna
Šeit mēs izveidojam dinamisku diapazonu, izmantojot līniju Diapazons ("$ A $ 1:" & diapazons ("$ A $ 1"). SpecialCells (xlLastCell) .Address). Šī līnija izveido diapazonu, sākot no šūnas A1 līdz pēdējai šūnai, kurā kolonnā A ir jebkura vērtība.
Tad mēs atkārtojam katru šūnu un atjauninām to ar lielajām virknēm.
Jūs varat lejupielādēt failu zemāk.
Lejupielādēt - VBA, lai pārvērstu tekstu no mazajiem uz lielajiem burtiem - xlsm
Jā, puiši, šādi jūs varat atjaunināt mazos burtus uz lielajiem. Ceru, ka biju pietiekami izskaidrojošs. Ja jums ir šaubas par šo rakstu vai jebkuru citu ar VBA saistītu vaicājumu. Jautājiet man komentāru sadaļā zemāk.
Kā lietot funkciju TRIM programmā Excel: Funkcija TRIM tiek izmantota, lai apgrieztu stīgas un notīrītu visas virknes, kas atrodas aizmugurē vai priekšā. Tas mums daudz palīdz datu tīrīšanas procesā.
Kā lietot funkciju CLEAN programmā Excel: Tīrīšanas funkciju izmanto, lai notīrītu no virknes neizdrukājamas rakstzīmes. Šo funkciju galvenokārt izmanto kopā ar funkciju TRIM, lai attīrītu importētos ārvalstu datus.
Aizstāt tekstu no virknes beigām, sākot no mainīgās pozīcijas: Lai aizstātu tekstu no virknes beigām, mēs izmantojam funkciju REPLACE. Funkcija REPLACE tās aizstāšanai izmanto teksta pozīciju virknē.
Kā pārbaudīt, vai virknē ir viens no daudziem Excel tekstiem: Lai atrastu pārbaudītu, vai virknē nav vairāku tekstu, mēs izmantojam šo formulu. Mēs izmantojam funkciju SUM, lai apkopotu visas atbilstības, un pēc tam veicam loģiku, lai pārbaudītu, vai virknē ir kāda no vairākām virknēm.
Skaitīt šūnas, kurās ir noteikts teksts: Vienkārša COUNTIF funkcija padarīs burvju. Lai saskaitītu vairāku šūnu skaitu, kurās ir dota virkne, mēs izmantojam aizstājējzīmes operatoru ar funkciju COUNTIF.
Excel funkcija REPLACE vs SUBSTITUTE: Funkcijas REPLACE un SUBSTITUTE ir visvairāk pārprastās funkcijas. Lai atrastu un aizstātu doto tekstu, mēs izmantojam funkciju SUBSTITUTE. Ja REPLACE tiek izmantots, lai virknē aizstātu vairākas rakstzīmes…
Populāri raksti:
50 Excel saīsnes, lai palielinātu produktivitāti | Ātrāk izpildiet savu uzdevumu. Šie 50 īsceļi ļaus jums strādāt vēl ātrāk programmā Excel.
Kā izmantot Excel VLOOKUP funkciju| Šī ir viena no visbiežāk izmantotajām un populārākajām Excel funkcijām, kas tiek izmantota, lai meklētu vērtību no dažādiem diapazoniem un lapām.
Kā lietot Excel Funkcija COUNTIF| Saskaitiet vērtības ar nosacījumiem, izmantojot šo apbrīnojamo funkciju. Jums nav jāfiltrē dati, lai saskaitītu noteiktas vērtības. Skaitītāja funkcija ir būtiska, lai sagatavotu informācijas paneli.
Kā lietot SUMIF funkciju programmā Excel | Šī ir vēl viena būtiska informācijas paneļa funkcija. Tas palīdz apkopot vērtības noteiktos apstākļos.