Function HasNumber(strData As String) As Boolean · Dim iCnt As Integer · For iCnt = 1 To Len(strData) · If IsNumeric(Mid(strData, iCnt, 1)) Then ...
確定! 回上一頁