Nedenfor ser vi på et program i Excel VBA at konverterer teksten til den rigtige sag. Det vil sige det første bogstav i hvert ord i store bogstaver og alle andre bogstaver i små bogstaver.
Situation:
1. For det første erklærer vi to Range -objekter. Vi kalder Range -objekterne rng og cell.
Dim rng As Range, cell As Range
2. Vi initialiserer Range -objektet rng med det valgte område.
Indstil rng = Valg
3. Vi vil kontrollere hver celle i et tilfældigt valgt område (dette område kan være af enhver størrelse). I Excel VBA kan du bruge For Every Next loop til dette. Tilføj følgende kodelinjer:
For hver celle I rng
Næste celle
Bemærk: rng og celle vælges tilfældigt her, du kan bruge alle navne. Husk at henvise til disse navne i resten af din kode.
4. For at ignorere en celle, der indeholder en formel, skal du tilføje følgende kodelinje mellem For Hver og Næste (kun hvis cell.HasFormula er falsk fortsætter vi).
Hvis ikke celle. Har formel derefter
Afslut Hvis
5. Dernæst ønsker vi at konvertere hvert ord i dette område til 'ordentlig sag'. Du kan bruge regnearksfunktionen Korrekt til denne opgave. Tilføj følgende kodelinje i din if -sætning.
cell.Value = WorksheetFunction.Proper (cell.Value)
6. Test programmet.
Resultat:
