Ako odstrániť Interpunkcia a všetky veľké v programe Excel

Pri práci v aplikácii Microsoft Excel 2010 , tabuľky , môže spôsob , akým je text formátovaný byť veľmi dôležité . Aj keď môžete ovládať ako zadať text do buniek , ak ste importovali informácie z iného zdroja , môže to obsahovať všetky druhy formátovania a znaky , ktoré nechcete na vašom tabuľky . Ak vaše dáta je v súčasnej dobe vo všetkých veľkých písmenách a obsahuje interpunkciu , môžete použiť VBA , vstavaný programovací jazyk , písať rýchlo makro , ktoré zmenia kapitalizáciu a odstrániť všetky interpunkčné znamienko z textu v tabuľke . Pokyny dovolená 1

Otvorte Excel 2010 tabuľku , do ktorej chcete odstrániť interpunkciu a použiť iný prípad . Kliknite na kartu " Vývojár " v hornej časti obrazovky . Kliknite na tlačidlo " Nahrať makro " , ktorý sa nachádza na ľavom konci páse kariet .
2

typu " RemovePunctuationCaps " do " Názov makra " poľa . Zadajte " q " do poľa " klávesová skratka . " Kliknite na tlačidlo " OK " zatvorte okno . Kliknite na tlačidlo " Stop " na páse kariet zastaviť makro z nahrávania .
3

Kliknite na tlačidlo " Visual Basic " na páse kariet na spustenie editora VBA . Double - kliknite na " Modul 1 " na ľavej strane editora . Ak ste už vytvorili modul v tomto zošite , budete musieť kliknúť na posledný zaznamenaná module , miesto " Modul 1 " . Uvidíte , " Sub RemovePunctuationCaps ( ) " na pravej strane okna .
4

Kliknite na pravej strane okna . Ťahajte myšou cez zelené textu medzi " Sub Remove ... " a " End Sub " . Zmazať všetko tento text tak , aby " Sub " a " End Sub " riadky sú všetky , ktoré existujú .
5

Skopírujte a vložte nasledujúci kód medzi " Sub " a " End Sub " riadky v VBA editor :

Dim RNG ako rozsah

každý RNG pri výbere

rng.Value = StrConv ( rng.Text , vbProperCase )

Ďalšie RNG

vytvorí premennú s názvom " RNG " a uveďte kód potrebný pre zmenu výber na správne veci . " . VbLowerCase " Ak by ste radšej používať malé písmená , zmena " vbProperCase " na
6

Zadajte nasledujúci kus kódu medzi posledný kód a " " End Sub " riadky :

S CreateObject ( " vbscript.regexp " )

. Pattern = " [ ^ A - Za - z0 - 9 \\ ] "

. Globálne = TRUE

každý RNG V Selection.SpecialCells ( xlCellTypeConstants )

rng.Value = . Nahradiť ( rng.Value , vbNullString )

Ďalšie RNG

End With

tým sa odstráni všetku interpunkciu vybraných buniek .
7

Kliknite na " X " v pravom hornom rohu editora zatvorte ho . Kliknite na bunku alebo bunky , kde máte text , ktorý chcete konvertovať . Stlačením tlačidla " Ctr - Q " a makro bude plniť svoju úlohu .

• Predchádzajúca strana: Ako pomenovať bunku v programe Excel 2007 
• Ďalšia strana: Excel VBA Public Function