Nižšie sa pozrieme na program v Excel VBA že prevádza text na správne písmená. To znamená, že prvé písmeno v každom slove je veľké a všetky ostatné písmená sú malé.
Situácia:
1. Najprv deklarujeme dva objekty Range. Objekty Range nazývame rng a bunka.
Dim rng As Range, cell As Range
2. Inicializujeme objekt Rozsah rng s vybratým rozsahom.
Nastaviť rng = výber
3. Chceme skontrolovať každú bunku v náhodne vybranom rozsahu (tento rozsah môže mať akúkoľvek veľkosť). V programe Excel VBA na to môžete použiť slučku For Every Next. Pridajte nasledujúce riadky kódu:
Pre každú bunku V rng
Ďalšia bunka
Poznámka: rng a bunka sa vyberajú náhodne, môžete použiť akékoľvek názvy. Na tieto názvy sa vo zvyšku kódu odvolávajte.
4. Ak chcete ignorovať bunku, ktorá obsahuje vzorec, pridajte nasledujúci riadok kódu medzi For Every a Next (iba ak cell.HasFormula je false, pokračujeme).
Ak nie je bunka.HasFormula Potom
Koniec Ak
5. Ďalej chceme previesť každé slovo v tomto rozsahu na „správny prípad“. Na túto úlohu môžete použiť správnu funkciu pracovného listu. Do príkazu if pridajte nasledujúci riadok kódu.
cell.Value = WorksheetFunction.Proper (cell.Value)
6. Otestujte program.
Výsledok:
