/ / Pārvērst pareizajā lietā programmā Excel VBA

Pārvērst pareizajā lietā programmā Excel VBA

Tālāk mēs apskatīsim programmu programmā Excel VBA ka pārveido tekstu uz atbilstošu gadījumu. Tas ir, pirmais burts katrā vārdam ar lielajiem burtiem un visi pārējie burti ar mazajiem burtiem.

Situācija:

Pārvērst pareizajā lietā programmā Excel VBA

1. Vispirms deklarējam divus Range objektus. Mēs saucam diapazona objektus rng un šūnu.

Dim rng As Range, cell As Range

2. Mēs inicializējam Range object rng ar izvēlēto diapazonu.

Set rng = Selection

3. Mēs vēlamies pārbaudīt katru šūnu nejauši izvēlētā diapazonā (šis diapazons var būt jebkura izmēra). Programmā Excel VBA varat to izmantot katrai nākamajai cilpai. Pievienojiet šādas koda līnijas:

For Each cell In rng

Next cell

Piezīme: šeit ir izlases veidā izvēlēts rng un šūna, jūs varat izmantot visus vārdus. Neaizmirstiet atsaukties uz šiem nosaukumiem pārējā kodā.

4. Lai ignorētu šūnu, kas satur formulu, pievienojiet šādu koda līniju starp For Each and Next (tikai tad, ja šūna ir .HasFormula ir nepareiza, mēs turpinām).

If Not cell.HasFormula Then

End If

5. Pēc tam mēs vēlamies pārvērst katru vārdu šajā diapazonā uz "pareizu lietu". Šo uzdevumu varat izmantot darblapas funkcijai Proper (Pareiza). Ierakstiet šeit šādu koda rindiņu.

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

6. Pārbaudiet programmu.

Rezultāts:

Pārvērst par atbilstošu lietas rezultātu

Lasīt arī: