Når du arbejder inden for et Microsoft Excel 2010 -regneark , den måde teksten er formateret kan være meget vigtigt . Mens du kan kontrollere, hvordan du indtaster tekst i cellerne , hvis du har importeret oplysninger fra en anden kilde, kan den indeholde alle former for formatering og tegn , som du ikke ønsker på dit regneark. Hvis dine data er i øjeblikket i alle hætter og indeholder tegnsætning , kan du bruge VBA , den indbyggede programmeringssprog, til at skrive en hurtig makro, der vil ændre den kapitalisering og fjerne enhver tegnsætningstegn fra tekst i regnearket . Instruktioner
1
Åbn Excel 2010 -regneark , hvor du ønsker at fjerne tegnsætning og bruge en anden sag. Klik på " Udvikler "-fanen øverst på skærmen . Klik på " Indspil makro "-knappen , som er placeret på den venstre ende af båndet.
2
Type " RemovePunctuationCaps " ind til "Macro navn "-feltet . Enter " q " i " Genvejstast " feltet. Klik på "OK " for at lukke vinduet. Klik på knappen "Stop" på båndet for at stoppe makroen fra optagelsen.
3
Klik på " Visual Basic "-knappen på båndet for at starte VBA editor. Dobbeltklik på " Modul 1 " i venstre side af editoren . Hvis du allerede har oprettet et modul i denne projektmappe , bliver du nødt til at klikke på den sidste opført modul i stedet for " Modul 1 ". Du vil se "Sub RemovePunctuationCaps ()" i højre side af vinduet.
4
Klik på højre side af vinduet. Træk musen over det grønne tekst mellem "Sub Fjern ... " og " End Sub ". Slet alle denne tekst , så " Sub " og " End Sub " linjer er alle , der findes.
5.
Kopier og indsæt følgende kode mellem "Sub " og " End Sub " linjer i VBA editoren : Hej
Dim RNG Som Range
For Each RNG In Selection
rng.Value = StrConv ( rng.Text , vbProperCase )
Næste RNG
Dette vil etablere en variabel med navnet " RNG " og give den nødvendige kode til at ændre dit valg i ordentlig sag. Hvis du hellere vil bruge små bogstaver , skal du ændre " vbProperCase " til
6
Indtast følgende stykke kode mellem den sidste kode og de " End Sub " linjen " vbLowerCase ". : Hej < p> Med CreateObject ( " vbscript.regexp " )
. Mønster = " [^ A- Za - z0 -9 \\ ] "
. Global = Sand
hver RNG I Selection.SpecialCells ( xlCellTypeConstants )
rng.Value = . Erstat ( rng.Value , vbNullString )
Næste RNG
End With
dette vil fjerne alle tegnsætning fra de markerede celler.
7.
Klik på " X" i øverste højre hjørne af redigeringsvinduet for at lukke det. Klik på den eller de celler , hvor du har den tekst, du vil konvertere. Tryk på " Ctr -Q ", og makroen vil udføre opgaven.
