Níže se podíváme na program v Excel VBA že převádí text na správná písmena. To znamená, že první písmeno v každém slově je velké a všechna ostatní písmena jsou malá.
Situace:
1. Nejprve deklarujeme dva objekty Range. Objekty Range nazýváme rng a buňka.
Dim rng As Range, cell As Range
2. Inicializujeme objekt Range rng s vybraným rozsahem.
Nastavit rng = výběr
3. Chceme zkontrolovat každou buňku v náhodně vybraném rozsahu (tento rozsah může mít libovolnou velikost). V aplikaci Excel VBA k tomu můžete použít smyčku For Every Next. Přidejte následující řádky kódu:
Pro každou buňku v rng
Další buňka
Poznámka: zde jsou náhodně vybrány rng a buňka, můžete použít libovolná jména. Ve zbytku kódu se na tyto názvy podívejte.
4. Chcete -li ignorovat buňku, která obsahuje vzorec, přidejte následující řádek kódu mezi For Every a Next (pouze pokud cell.HasFormula je false, pokračujeme).
Pokud není buňka, pak má Formulář
Konec If
5. Dále chceme převést každé slovo v tomto rozsahu na „správný případ“. K tomuto úkolu můžete použít funkci listu. Do příkazu if přidejte následující řádek kódu.
cell.Value = WorksheetFunction.Proper (cell.Value)
6. Otestujte program.
Výsledek: