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ā
1. Pirmkārt, mēs deklarējam divus diapazona objektus. Range objektus saucam par rng un cell.
NavrngKāDiapazons, šūnaKāDiapazons2. 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šūnaInrngNā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 Nēšūna.HasFormulaTadBeigas 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
Doties uz nākamo nodaļu: Datums un laiks