300 Príkladov

Previesť na správny prípad

Convert Proper Case

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:

súčasná hodnota nerovnomerných peňažných tokov

Konvertujte na správny prípad v programe Excel VBA





1. Najprv deklarujeme dva objekty Range. Objekty Range nazývame rng a bunka.

ŽiadnyrngAkoRozsah, bunkaAkoRozsah

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ýbunkaVrng

Ďalšiebunka

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 Niebunka. Má vzorecPotom

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:

vynikajúci počet buniek s hodnotou

Previesť na správny výsledok prípadu

4/5 Dokončené! Prečítajte si viac o manipulácii s reťazcami>
Prejsť na nasledujúcu kapitolu: Dátum a čas



^