Spodaj si bomo ogledali program v Excel VBA to pretvori besedilo v velike in male črke. To pomeni, da je prva črka v vsaki besedi velika, vse druge črke pa male.
Situacija:
1. Najprej razglasimo dva predmeta Range. Objekte Range imenujemo rng in cell.
Dim rng As Range, celica As Range
2. Inicializiramo objekt Range rng z izbranim obsegom.
Nastavi rng = Izbor
3. Vsako celico želimo preveriti v naključno izbranem območju (to območje je lahko poljubne velikosti). V Excelu VBA lahko za to uporabite zanko Za vsak naslednji. Dodajte naslednje kodne vrstice:
Za vsako celico V rng
Naslednja celica
Opomba: rng in celica sta tukaj naključno izbrana, lahko uporabite poljubno ime. Ne pozabite se sklicevati na ta imena v preostali kodi.
4. Če želite prezreti celico, ki vsebuje formulo, dodajte naslednjo kodno vrstico med Za vsako in Naprej (samo če je celica. HasFormula napačna, nadaljujemo).
Če ni celica.HasFormula Potem
Konec Če
5. Nato želimo vsako besedo v tem obsegu pretvoriti v „pravilne črke“. Za to nalogo lahko uporabite funkcijo delovnega lista Proper. V svoj stavek if dodajte naslednjo kodno vrstico.
cell.Value = Delovni listFunction.Proper (cell.Value)
6. Preizkusite program.
Rezultat:
