Cách 1: Bằng công thức thông thường.
=ISERROR(OR(FIND("-",[Chuỗi],0),FIND("*",[Chuỗi],0), ... ,FIND("[ký tự đặc biệt]",[Chuỗi],0)))
Cứ mỗi tìm kiếm ký tự đặc biệt mong muốn thì bổ sung: ,FIND("[ký tự đặc biệt]",[Chuỗi],0)
Ghi chú: có dấu phảy (,) ở đằng trước nhé.
Cách 2: Tạo hàm tìm kiếm ký tự đặc biệt trong chuỗi bằng VBS.
Công thức =IsSpecial([Chuỗi])
Nếu Chuỗi tồn tại kỹ tự đặc biệt như [0-9a-zA-Z] hoặc [ _ ] thì cho kết quả là 0 (False), còn ngược lại là 1 (True).
Alt-F11 >> Insert Module >> Chép đoạn Code sau:
Public Function IsSpecial(s As String) As Long Dim L As Long, LL As Long Dim sCh As String IsSpecial = 0 For L = 1 To Len(s) sCh = Mid(s, L, 1) If sCh Like "[0-9a-zA-Z]" Or sCh = "_" Then Else IsSpecial = 1 Exit Function End If Next L End Function
No comments:
Post a Comment