Check if cell contains a numeric character

[nicolewh]

I want to check if a range("a1") contains a numeric character. Example:
if A1 = "asef45adsf" then answer is True
if A1 = adjsfaff" then answer is False

Thanks!

 

[VoG]

Is this in VBA or a formula?

 

[mikerickson]

=IF(SUMPRODUCT(COUNTIF(A1,"*"&{1,2,3,4,5,6,7,8,9,0}))>0, "Contains at least one numeric character, "not")

 

[nicolewh]

In VBA?

 

[PA HS Teacher]

how about

=SUMPRODUCT(--ISNUMBER(--MID($A$1,ROW($A:$A:INDEX($A:$A,LEN(A1))),1)))>0

 

[Weaver]

one solution

=MIN(LEN(SUBSTITUTE(A1,MID("0123456789",ROW($A$1:$A$10),1),"")))<LEN(A1)

confirmed using ctrl+shift+enter (curly brackets appear {})

 

[VoG]

Try this function

Function IsNum(r As Range) As Boolean
Dim i As Long
For i = 1 To Len(r.Value)
    If IsNumeric(Mid(r.Value, i, 1)) Then
        IsNum = True
        Exit For
    End If
Next i
End Function

then use e.g.

X=IsNum(Range("E5"))

 

[nicolewh]

Thank you!

 

[Weaver]

4 different solutions - you gotta love this site!

 

[Fowmy]

Yep, Let me add the 5th Solution for you

=COUNT(SEARCH({1,2,3,4,5,6,7,8,9,0},A1))>0