300 Piemēri

Pārvērst par piemērotu lietu

Convert Proper Case

Zemāk mēs apskatīsim programmu Excel VBA ka pārvērš tekstu pareizajā gadījumā . Tas ir, pirmais burts katrā vārdā ar lielajiem burtiem un visi pārējie burti ar mazajiem burtiem.





Situācija:

excel šūnu skaits diapazonā

Pārvērst pareizā gadījumā Excel VBA





1. Pirmkārt, mēs deklarējam divus diapazona objektus. Range objektus saucam par rng un cell.

NavrngDiapazons, šūnaDiapazons

2. Mēs inicializējam Range objektu rng ar izvēlēto diapazonu.



Uzstādītrng = Atlase

3. Mēs vēlamies pārbaudīt katru šūnu nejauši izvēlētā diapazonā (šis diapazons var būt jebkura izmēra). Programmā Excel VBA šim nolūkam varat izmantot cilpu Katram nākamajam. Pievienojiet šādas koda rindiņas:

Priekš KatrsšūnaInrng

Nākamaisšūna

Piezīme: rng un šūna šeit tiek izvēlēti nejauši, varat izmantot jebkurus nosaukumus. Atcerieties atsaukties uz šiem nosaukumiem pārējā koda daļā.

4. Lai ignorētu šūnu, kurā ir formula, pievienojiet šādu koda rindiņu starp Katram un Nākamais (tikai tad, ja šūna.HasFormula ir nepatiesa, mēs turpinām).

Ja šūna.HasFormulaTad

Beigas Ja

5. Tālāk mēs vēlamies pārvērst katru vārdu šajā diapazonā par “pareizo burtu”. Šim uzdevumam varat izmantot darblapas funkciju Pareiza. Ja paziņojumā pievienojat šādu koda rindiņu.

cell.Value = WorksheetFunction.Proper (cell.Value)

6. Pārbaudiet programmu.

Rezultāts:

Excel aprēķina laiku starp diviem datumiem

Pārvērst par pareizu lietas rezultātu

4/5 Pabeigts! Uzziniet vairāk par manipulācijām ar virkni>
Doties uz nākamo nodaļu: Datums un laiks



^