/ / Konvertálás helyes esetre az Excel VBA-ban

Az Excel VBA-ba konvertálni a helyes esetre

Az alábbiakban egy programot nézünk be Excel VBA hogy a szöveget a megfelelő esetre konvertálja. Azaz az első betű minden egyes szóban nagybetűs, és minden más kisbetűs betű.

Helyzet:

Az Excel VBA-ba konvertálni a helyes esetre

1. Először két tartományobjektumot deklarálunk. Hívjuk a gamma objektumokat rng és cell.

Dim rng As Range, cell As Range

2. A Range objektum rng-t a kiválasztott tartományban inicializáljuk.

Set rng = Selection

3. Minden cellát egy véletlenszerűen kiválasztott tartományban szeretnénk ellenőrizni (ez a tartomány bármilyen méretű lehet). Az Excel VBA programban használhatja a For Every Next hurot ehhez. Adja hozzá a következő kódsorokat:

For Each cell In rng

Next cell

Megjegyzés: itt rng és cell véletlenszerűen vannak kiválasztva, bármilyen nevet használhat. Ne feledje, hogy ezekre a nevekre utal a kód többi részében.

4. Ha egy képletet tartalmazó cellát figyelmen kívül hagyja, adja hozzá a következő kódot a For Every and Next elemhez (csak ha a cell.HasFormula hamis, folytatjuk).

If Not cell.HasFormula Then

End If

5. Ezután azt szeretnénk, hogy a szóban forgó szó minden szóját "megfelelő esetre" alakítsuk. A feladat megfelelő munkalap funkcióját használhatja. Adja hozzá a következő kódot az if utasításában.

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

6. Vizsgálja meg a programot.

Eredmény:

Konvertálás a megfelelő eredménnyel

Szintén olvasható: