Žemiau apžvelgsime programą Excel VBA kad konvertuoja tekstą į tinkamas raides. Tai yra, pirmoji kiekvieno žodžio raidė didžiosiomis raidėmis, o visos kitos raidės mažosiomis.
Situacija:
1. Pirmiausia deklaruojame du Range objektus. Range objektus vadiname rng ir cell.
Dim rng As Range, langelis As Range
2. Mes inicijuojame diapazono objektą rng pasirinktu diapazonu.
Nustatyti rng = Pasirinkimas
3. Norime patikrinti kiekvieną atsitiktinai pasirinkto diapazono langelį (šis diapazonas gali būti bet kokio dydžio). „Excel VBA“ tam galite naudoti ciklą „Kiekvienam kitam“. Pridėkite šias kodo eilutes:
Kiekvienai langeliui In rng
Kitas langelis
Pastaba: rng ir ląstelė čia pasirenkami atsitiktinai, galite naudoti bet kokius pavadinimus. Nepamirškite nurodyti šių pavadinimų likusioje kodo dalyje.
4. Jei norite nepaisyti langelio, kuriame yra formulė, pridėkite šią kodo eilutę tarp „For Every“ ir „Next“ (tik jei cell.HasFormula yra false, mes tęsiame).
Jei ne ląstelė. Ar yra formulė Tada
Pabaiga Jei
5. Toliau norime kiekvieną šio diapazono žodį paversti „tinkamu atveju“. Šiai užduočiai galite naudoti darbalapio funkciją „Tinkama“. Prie savo teiginio pridėkite šią kodo eilutę.
cell.Value = WorksheetFunction.Proper (cell.Value)
6. Išbandykite programą.
Rezultatas:
