/ / Pretvori u pravilan slučaj u programu Excel VBA

Pretvori u pravi slučaj u programu Excel VBA

U nastavku ćemo pogledati program u Excel VBA da pretvara tekst u pravi slučaj, To jest, prvo slovo u svakoj riječi u velikoj, i sva druga slova u malom slovu.

Situacija:

Pretvori u pravi slučaj u programu Excel VBA

1. Prvo, izjavljujemo dva objekta raspona. Pozivamo raspon objekata rng i ćelije.

Dim rng As Range, cell As Range

2. Inicijaliziramo raspon objekta rng s odabranim rasponom.

Set rng = Selection

3. Želimo provjeriti svaku stanicu u slučajnom odabranom rasponu (ovaj raspon može biti bilo koje veličine). U programu Excel VBA možete upotrijebiti za svaku sljedeću petlju. Dodajte sljedeće retke kôda:

For Each cell In rng

Next cell

Napomena: Rng i ćelija slučajno su odabrani ovdje, možete koristiti bilo koja imena. Ne zaboravite uputiti na ova imena u ostatku koda.

4. Da biste zanemarili ćeliju koja sadrži formulu, dodajte sljedeću liniju koda između Za svaki i sljedeću (samo ako je ćelija.HasFormula lažno nastavljamo).

If Not cell.HasFormula Then

End If

5. Zatim želimo svaku riječ u ovom rasponu pretvoriti u "pravi slučaj". Za ovaj zadatak možete koristiti ispravnu radnu tablicu. Dodajte sljedeću liniju kodova u svojem izvatku if.

cell.Value = WorksheetFunction.Proper(cell.Value)

6. Ispitajte program.

Proizlaziti:

Pretvori u ispravan slučaj

Također pročitajte: