U nastavku ćemo pogledati program u Excel VBA da pretvara tekst u velika i mala slova. Odnosno, prvo slovo u svakoj riječi je veliko, a sva druga slova mala.
Situacija:
1. Prvo, deklariramo dva Range objekta. Objekte Range nazivamo rng i cell.
Dim rng As Range, cell As Range
2. Pokrećemo objekt Range rng s odabranim rasponom.
Postavite rng = Odabir
3. Želimo provjeriti svaku ćeliju u slučajno odabranom rasponu (ovaj raspon može biti bilo koje veličine). U Excelu VBA za to možete koristiti petlju Za svaku sljedeću. Dodajte sljedeće retke koda:
Za svaku ćeliju U rng
Sljedeća ćelija
Napomena: ovdje su nasumično odabrani rng i ćelija, možete koristiti bilo koja imena. Ne zaboravite se pozivati na ta imena u ostatku koda.
4. Da biste zanemarili ćeliju koja sadrži formulu, dodajte sljedeći kodni redak između za svaku i sljedeću (samo ako je ćelija.HasFormula lažna, nastavljamo).
Ako nije stanica.HasFormula Tada
Završi ako
5. Zatim, želimo pretvoriti svaku riječ u ovom rasponu u "odgovarajuća slova". Za ovaj zadatak možete koristiti funkciju radnog lista Svojstveno. Dodajte sljedeći kodni redak u naredbu if.
cell.Value = Radni listFunction.Proper (cell.Value)
6. Testirajte program.
Proizlaziti: