Mai jos vom analiza un program în Excel VBA acea convertește textul în caz adecvat. Adică prima literă din fiecare cuvânt cu majusculă și toate celelalte litere cu litere mici.
Situatie:
1. În primul rând, declarăm două obiecte Range. Numim obiectele Range rng și celulă.
Dim rng As Range, celulă As Range
2. Inițializăm obiectul Range rng cu domeniul selectat.
Set rng = Selection
3. Vrem să verificăm fiecare celulă dintr-un interval selectat aleatoriu (acest interval poate fi de orice dimensiune). În Excel VBA, puteți utiliza bucla Pentru fiecare următor pentru aceasta. Adăugați următoarele linii de cod:
Pentru fiecare celulă din rng
Următoarea celulă
Notă: rng și celulă sunt alese la întâmplare aici, puteți folosi orice nume. Nu uitați să consultați aceste nume în restul codului.
4. Pentru a ignora o celulă care conține o formulă, adăugați următoarea linie de cod între Pentru fiecare și Următorul (numai dacă celula.HasFormula este falsă continuăm).
Dacă nu este celulă.HasFormulă Apoi
End If
5. Apoi, vrem să convertim fiecare cuvânt din acest interval în „caz corect”. Puteți utiliza funcția Foaie de lucru Proper pentru această sarcină. Adăugați următoarea linie de cod în declarația dvs. if.
cell.Value = WorksheetFunction.Proper (cell.Value)
6. Testați programul.
Rezultat:
