Zemāk mēs apskatīsim programmu Excel VBA ka pārvērš tekstu pareizajā gadījumā. Tas ir, katra vārda pirmais burts ar lielajiem burtiem un visi pārējie burti ar mazajiem burtiem.
Situācija:
1. Pirmkārt, mēs deklarējam divus diapazona objektus. Range objektus saucam par rng un cell.
Dim rng As Range, šūna As Range
2. Mēs inicializējam Range objektu rng ar izvēlēto diapazonu.
Set rng = 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:
Katrai šūnai In rng
Nākamā šū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 ne šūna.Vai ir Formula Tad
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:
