Alla tarkastelemme ohjelmaa Excel VBA että muuntaa tekstin oikeiksi kirjaimiksi. Eli jokaisen sanan ensimmäinen kirjain isoilla kirjaimilla ja kaikki muut kirjaimet pienillä kirjaimilla.
Tilanne:
1. Ensin julistamme kaksi Range -objektia. Kutsumme alueen kohteita rng ja solu.
Dim rng as Range, solu As Range
2. Alustamme Range -objektin rng valitulla alueella.
Aseta rng = Valinta
3. Haluamme tarkistaa jokaisen solun satunnaisesti valitulta alueelta (tämä alue voi olla minkä kokoinen tahansa). Excel VBA: ssa voit käyttää For For Next Next -silmukkaa tähän. Lisää seuraavat koodirivit:
Jokaista solua kohti
Seuraava solu
Huomautus: rng ja solu valitaan satunnaisesti täällä, voit käyttää mitä tahansa nimiä. Muista viitata näihin nimiin koodin loppuosassa.
4. Jos haluat jättää huomiotta kaavan sisältävän solun, lisää seuraava koodirivi Jokaisen ja seuraavan väliin (vain jos solu.HasFormula on epätosi).
Jos ei solua. On kaava sitten
Loppu Jos
5. Seuraavaksi haluamme muuttaa jokaisen tämän alueen sanan "oikeaksi kirjaimeksi". Voit käyttää tähän tehtävään laskentataulukkofunktiota Proper. Lisää seuraava koodirivi if -lauseeseesi.
cell.Value = WorksheetFunction.Proper (cell.Value)
6. Testaa ohjelma.
Tulos:
