/ / Konvertuoti į tinkamą bylą Excel VBA

Konvertuokite į tinkamą bylą Excel VBA

Žemiau apžvelgsime programą Excel VBA tai paverčia tekstą tinkamu atveju. Tai yra pirmoji raidė kiekviename žodyje didžiosiomis raidėmis ir visi kiti mažosios raidės.

Padėtis:

Konvertuokite į tinkamą bylą Excel VBA

1. Pirma, mes deklaruojame du Range objektus. Mes vadiname Range objektus rng ir langelį.

Dim rng As Range, cell As Range

2. Inicializuojame Range object rng su pasirinktu diapazonu.

Set rng = Selection

3. Mes norime patikrinti kiekvieną langelį atsitiktine tvarka pasirinktame diapazone (šis diapazonas gali būti bet kokio dydžio). "Excel VBA" galite naudoti "Už kiekvieną kitą kilpą". Įtraukite šias kodo eilutes:

For Each cell In rng

Next cell

Pastaba: čia atsitiktine tvarka pasirenkami rng ir ląstelės, galite naudoti bet kokius pavadinimus. Nepamirškite nurodyti šių pavadinimų likusioje jūsų kodo dalyje.

4. Norėdami ignoruoti ląstelę, kurioje yra formulė, pridėkite šią kodo eilutę tarp "Kiekvieno" ir "Kitas" (tik jei lakštas "HasFormula" yra klaidingas, mes tęsime).

If Not cell.HasFormula Then

End If

5. Tada mes norime paversti kiekvieną žodį šiame diapazone "tinkamu atveju". Šiai užduočiai galite naudoti darbalapio funkciją "Tinkamas". Įrašykite šią kodo eilutę savo if programoje.

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

6. Patikrinkite programą.

Rezultatas:

Konvertuokite į tinkamą atvejo rezultatą

Taip pat perskaitykite: