Wanneer u werkt in een Microsoft Excel 2010 -spreadsheet , kan de manier waarop de tekst is opgemaakt erg belangrijk zijn. Terwijl u kunt bepalen hoe u tekst invoert in de cellen , als u gegevens van een andere bron heeft geïmporteerd , het kan allerlei opmaak en tekens die je niet wilt op uw werkblad bevatten . Als uw gegevens momenteel in hoofdletters en leestekens bevat , kunt u VBA , de ingebouwde programmeertaal gebruiken , om snel een macro die de kapitalisatie zal veranderen en verwijder elke leesteken van de tekst in uw spreadsheet te schrijven . Instructies
1 Open de Excel 2010 -spreadsheet waar je wilt interpunctie te verwijderen en gebruik een ander geval . Klik op het tabblad "Ontwikkelaar " aan de bovenkant van het scherm . Klik op de " Macro opnemen " op, aan de linkerkant van het lint .
Type " RemovePunctuationCaps " 2 in het veld ' Macro- naam ' . Voer " q " in het veld " Shortcut Key " . Klik op " OK " om het venster te sluiten . Klik op de " Stop" op het lint om de macro vanaf de opname te stoppen .
3 Klik op de " Visual Basic " -knop op het lint om de VBA- editor te starten . Dubbelklik op " Module 1 " aan de linkerkant van de editor . Als u een module al hebt gemaakt in deze werkmap , moet u klikken op de laatste genoemde module , in plaats van " Module 1 . " U zult " Sub RemovePunctuationCaps ( ) " zien aan de rechterkant van het venster .
4 Klik op de rechterkant van het venster . Ga met je muis over de groene tekst tussen " Sub Verwijderen ... " en "End Sub . " Verwijder alle deze tekst , zodat de " Sub " en " End Sub " lijnen zijn allemaal die er bestaan .
Kopieer 5 en plak de volgende code tussen de " Sub " en " End Sub " lijnen in de VBA editor : Dim rng
als Waaier
voor Elke rng In Selection
rng.Value = StrConv ( rng.Text , vbProperCase ) op Twitter Volgende rng
Dit zal een variabele genaamd " rng " vast te stellen en te voorzien van de code die nodig is om uw selectie te wijzigen in de juiste zaak . Als u liever gebruik maken van kleine letters , veranderen " vbProperCase " om
6 Voer de volgende code tussen de laatste code en de " " End Sub "lijn " vbLowerCase . " :
Met CreateObject ( " VBScript.RegExp " ) op Patroon = " [ ^ A-Za - z0 - 9 \\ ] "
. Global = True
. elke rng In Selection.SpecialCells ( xlCellTypeConstants ) op rng.Value = . Vervang ( rng.Value , vbNullString ) op Twitter Volgende rng Einde
met dit zal alle leestekens uit de geselecteerde cellen te verwijderen .
7 Klik op de " X " in de rechterbovenhoek van de editor om te sluiten . Klik op de cel of cellen waarvan u de tekst die u wilt converteren . Druk op " Ctr - Q " en de macro zal de taak uit te voeren .
|
