Nedenfor ser vi på et program i Excel VBA at konverterer tekst til riktig bokstav. Det vil si den første bokstaven i hvert ord i store bokstaver, og alle andre bokstaver i små bokstaver.
Situasjon:
1. Først erklærer vi to Range -objekter. Vi kaller Range -objektene rng og cell.
Dim rng As Range, cell As Range
2. Vi initialiserer Range -objektet rng med det valgte området.
Sett rng = Valg
3. Vi ønsker å kontrollere hver celle i et tilfeldig valgt område (dette området kan være av hvilken som helst størrelse). I Excel VBA kan du bruke For Every Next loop for dette. Legg til følgende kodelinjer:
For hver celle I rng
Neste celle
Merk: rng og celle velges tilfeldig her, du kan bruke alle navn. Husk å referere til disse navnene i resten av koden.
4. For å ignorere en celle som inneholder en formel, legger du til følgende kodelinje mellom For Hver og Neste (bare hvis cell.HasFormula er usann fortsetter vi).
Hvis ikke celle. Har formel
Slutt om
5. Deretter ønsker vi å konvertere hvert ord i dette området til 'riktig sak'. Du kan bruke regnearksfunksjonen Riktig for denne oppgaven. Legg til følgende kodelinje i if -setningen.
cell.Value = WorksheetFunction.Proper (cell.Value)
6. Test programmet.
Resultat:
