Når du arbeider innenfor et Microsoft Excel 2010-regneark , måten teksten er formatert kan være veldig viktig . Mens du kan kontrollere hvordan du skriver inn tekst inn i cellene , hvis du har importert informasjon fra en annen kilde, kan den inneholde alle typer formatering og tegn som du ikke vil ha på regnearket. Hvis dataene er i alle caps og inneholder tegnsetting , kan du bruke VBA , den innebygde programmeringsspråk, å skrive en rask makro som vil endre kapitalisering og fjerne alle skilletegn fra tekst i regnearket . Instruksjoner
en
Åpne Excel 2010-regneark hvor du ønsker å fjerne tegnsetting og bruk en annen sak . Klikk på " Utvikler " fanen øverst på skjermen. Klikk på " Registrer makro "-knappen , som ligger på venstre enden av båndet .
2
Type " RemovePunctuationCaps " inn til "Macro name" feltet . Enter " q " inn i "Shortcut Key "-feltet . Klikk " OK " for å lukke vinduet . Klikk på " Stop" knappen på båndet for å stoppe makro fra innspillingen.
3
Klikk på " Visual Basic" -knappen på båndet for å starte VBA editor. Dobbeltklikk på " Modul 1 " på venstre side av redaktøren . Hvis du allerede har opprettet en modul i denne arbeidsboken , må du klikke på den siste oppført modul, i stedet for " Modul 1 ". Du vil se "Sub RemovePunctuationCaps () " på høyre side av vinduet .
4
Klikk på høyre side av vinduet . Dra musepekeren over den grønne teksten mellom " Sub Fjern ... " og "End Sub ." Slett all denne teksten , slik at de " Sub" og " End Sub " linjer er alt som eksisterer .
5
Kopier og lim inn følgende kode mellom " Sub " og " End Sub " linjer i VBA redaktør : en
Dim rng Som Range
Hver rng I Selection
rng.Value = StrConv ( rng.Text , vbProperCase )
Neste RNG
p Dette vil etablere en variabel som heter " rng ", og oppgi koden for å endre valget til riktig sak . Hvis du heller vil bruke små bokstaver , endre " vbProperCase " til
6
Skriv inn følgende kode mellom den siste koden og " " End Sub "linje" vbLowerCase . " : En < p> Med CreateObject ( " vbscript.regexp ")
. Mønster = " [ ^ A- Za - z0 - 9 \\ ] "
. Globalt = sant
hver rng I Selection.SpecialCells ( xlCellTypeConstants )
rng.Value = . Erstatt ( rng.Value , vbNullString )
Neste RNG
End With
dette vil fjerne all tegnsetting fra de valgte cellene.
7
Klikk på " X " i øvre høyre hjørne av editor for å lukke det. Klikk på cellen eller cellene der du har teksten du vil konvertere. Trykk " Ctr - Q" og makroen skal utføre oppgaven .