עזרה באקסס פונקציה להסרת סימנים משדה מספר

[יאיר משה]

אני מחפש פונקציה שתסיר לי מתוך שדה כל שהוא את כל הסימנים שאינם מספרים ("/-_#!@%&*?,.).
תודה רבה

 

[אפר]

אני מחפש פונקציה שתסיר לי מתוך שדה כל שהוא את כל הסימנים שאינם מספרים ("/-_#!@%&*?,.).
תודה רבה

או שתכתוב לולאת for באורך הסטרינג עם select case
או שתשתמש ב replace

 

[אפר]

או שתכתוב לולאת for באורך הסטרינג עם select case
או שתשתמש ב replace

ואם זה רק מספרים אתה יכול for ו if עם isnumeric

 

[עמיק]

אם יש לך אופיס 2019 או אופיס 365 , אם התא שאתה מעוניין לנקות נמצא בתא a1, הדבק נוסחה זו בתאb1

=TEXTJOIN("",TRUE,IFERROR(MID(A1,SEQUENCE(20),1)+0,""))

 

[יאיר משה]

תודה לעוזרים. למי שמתעניין, זה התשובה שקיבלתי מפורום תחומים - עובד נהדר.

Function RemoveAllButNumbers(s As String) As String
    With CreateObject("VBScript.RegExp")
        .Pattern = "\D"
        .Global = True
        RemoveAllButNumbers = .Replace(s, "")
    End With
End Function