Az alábbiakban megnézzük a programot Excel VBA hogy a szöveget megfelelő méretűvé konvertálja. Vagyis minden szó első betűje nagybetűs, az összes többi betű pedig kisbetűs.
Helyzet:
1. Először két Range objektumot deklarálunk. A Range objektumokat rng -nek és cellának hívjuk.
Dim rng As Range, cell As Range
2. Inicializáljuk a Range objektum rng -t a kiválasztott tartományt.
Set rng = Kiválasztás
3. Ellenőrizni akarjuk az egyes cellákat egy véletlenszerűen kiválasztott tartományban (ez a tartomány bármilyen méretű lehet). Az Excel VBA -ban erre használhatja a Minden egyes következő cikket. Adja hozzá a következő kódsorokat:
Minden cellához In rng
Következő cella
Megjegyzés: az rng és a cellát véletlenszerűen választjuk ki, bármilyen nevet használhat. Ne felejtse el hivatkozni ezekre a nevekre a kód többi részében.
4. A képletet tartalmazó cella figyelmen kívül hagyásához adja hozzá a következő kód sort Minden és a Következő közé (csak akkor, ha a cell.HasFormula hamis, folytatjuk).
Ha nem sejt.HasFormula Akkor
Vége Ha
5. Ezután a tartomány minden szavát „megfelelő kisbetűvé” szeretnénk konvertálni. Ehhez a feladathoz használhatja a megfelelő munkalap funkciót. Adja hozzá a következő kód sort az if utasításhoz.
cell.Value = WorksheetFunction.Proper (cell.Value)
6. Tesztelje a programot.
Eredmény: