Nedan kommer vi att titta på ett program i Excel VBA det där konverterar text till rätt bokstav. Det vill säga den första bokstaven i varje ord med stora bokstäver och alla andra bokstäver i gemener.
Situation:
1. Först deklarerar vi två Range -objekt. Vi kallar Range -objekt rng och cell.
Dim rng As Range, cell As Range
2. Vi initierar Range -objektet rng med det valda intervallet.
Ställ in rng = Selection
3. Vi vill kontrollera varje cell i ett slumpmässigt valt område (detta område kan vara av valfri storlek). I Excel VBA kan du använda slingan För varje nästa för detta. Lägg till följande kodrader:
För varje cell I rng
Nästa cell
Notera: rng och cell väljs slumpmässigt här, du kan använda alla namn. Kom ihåg att hänvisa till dessa namn i resten av din kod.
4. För att ignorera en cell som innehåller en formel, lägg till följande kodrad mellan För varje och Nästa (endast om cell.HasFormula är falsk fortsätter vi).
If Not cell.HasFormula Then
Avsluta om
5. Därefter vill vi konvertera varje ord i detta intervall till "rätt fall". Du kan använda kalkylbladets funktion Proper för den här uppgiften. Lägg till följande kodrad i if -satsen.
cell.Value = WorksheetFunction.Proper (cell.Value)
6. Testa programmet.
Resultat:
