Allpool vaatame programmi Exceli VBA seda teisendab teksti õigeks. See tähendab, et iga sõna esimene täht suurtähtedega ja kõik muud tähed väiketähtedega.
Olukord:
1. Esiteks deklareerime kaks vahemiku objekti. Me nimetame vahemiku objekte rng ja cell.
Dim rng As Range, lahter As Range
2. Initsialiseerime valitud vahemikuga objekti Range rng.
Set rng = Valik
3. Tahame kontrollida iga lahtrit juhuslikult valitud vahemikus (see vahemik võib olla igas suuruses). Excel VBA -s saate selle jaoks kasutada iga järgmise silmuse jaoks. Lisage järgmised koodiridad:
Iga lahtri jaoks rng
Järgmine lahter
Märkus: rng ja cell valitakse siin juhuslikult, võite kasutada mis tahes nimesid. Ärge unustage viidata neile koodidele ülejäänud koodides.
4. Valemit sisaldava lahtri ignoreerimiseks lisage igale ja järgmisele järgmine koodirida (ainult juhul, kui lahter.HasFormula on vale, jätkame).
Kui mitte rakk.HasFormula Siis
Lõpp Kui
5. Järgmisena tahame teisendada iga selle vahemiku sõna õigeks käändeks. Selle ülesande jaoks saate kasutada töölehe funktsiooni Proper. Lisage oma if -lausele järgmine koodirida.
cell.Value = WorksheetFunction.Proper (cell.Value)
6. Testige programmi.
Tulemus:
