Excel "Data Validation kan bidra til at du bare å skrive inn de alfanumeriske verdier. Gjør følgende:
1. Velg et område som Vil du unngå spesialtegnene kommer inn.
To. Deretter klikker du Data > Data validering > Data validering, se skjermbilde:
tre. I datavalidering dialogboksen, klikk på kategorien Innstillinger, og velg Tilpass fra Tillat nedtrekkslisten, deretter inn denne formelen =ISNUMBER(SUMPRODUCT(SEARCH(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1),"0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"))) inn i Formula tekstboksen, se skjermbilde:
Merk: A1 indikerer den første cellen i din valgte området (fra venstre til høyre)
4.. Deretter klikker du på OK for å lukke denne dialogen, og nå når du skriver inn verdier som inneholder spesialtegn i den oppgitte kolonnen du legger til alternativet, vil du få følgende advarsel.
Hindre spesialtegn som påbegynner med VBA kode
følgende VBA-kode kan også hjelpe deg å unngå spesialtegnene mens du legger inn tekstverdiene.
1. Hold nede ALT + F11-tastene, og det åpner Microsoft Visual Basic for Applications vinduet.
2. Deretter velger du din brukte regnearket fra venstre Prosjekt Utforsker dobbeltklikk for å åpne modulen, og deretter kopiere og lime inn følgende VBA-kode i det tomme Module:
VBA-kode: unngå spesialtegn som kommer inn i Excel
Private Const FCheckRgAddress As String = "A1: A100" Private Sub Worksheet_Change (ByVal Target As Range) 'Oppdater 20140905 Dim xChanged som Range Dim XRG som Range Dim xString As String Dim sErrors As String Dim xRegExp som Variant Dim xHasErr som boolsk Set xChanged = Application.Intersect (Range (FCheckRgAddress), Target) Hvis xChanged Er Ingenting Deretter Exit Sub Set xRegExp = Create ("VBScript.RegExp") xRegExp.Global = True xRegExp.IgnoreCase = True xRegExp.Pattern = "[^ 0-9a-z]" For hver XRG I xChanged Hvis xRegExp.Test (xRg.Value) Deretter xHasErr = Sant Application.EnableEvents = False xRg.ClearContents Application.EnableEvents = True End If Neste Hvis xHasErr Deretter MsgBox "Disse cellene hadde ugyldige oppføringer og har blitt ryddet:" End Sub
Merk: I koden ovenfor, kan du endre området A1: A100 for privat Const FCheckRgAddress As String = "A1: A100". manuset til din egen serie som Vil du unngå spesialtegnene
3 . Deretter lagre og lukke denne koden, og nå, når du skriver tekstverdier med noen spesialtegn i området A1: A100, vil verdien bli ryddet på en gang, og du kan få følgende advarsel
.
Datamaskin læring 