Nhờ giải thích giúp đoạn code tách số (của anh ndu). (2 người xem)

[ptlong04x1]

Function ValExp(Cell As String) As Double
  Dim Temp1 As String
  With CreateObject("VBScript.RegExp")
    .Global = True
    Temp1 = Replace(Cell, "[", "(")
    Temp1 = Replace(Temp1, "]", ")")
    Temp1 = Replace(Temp1, "{", "(")
    Temp1 = Replace(Temp1, "}", ")")
    Temp1 = Replace(Temp1, "x", "*")
    Temp1 = Replace(Temp1, ":", "/")
    .Pattern = "[^0-9+.*/:()-]"
    ValExp = Evaluate(.Replace(Temp1, ""))
  End With
End Function

Nhờ anh giải thích giúp em mấy dòng này :

With CreateObject("VBScript.RegExp")
.Global = True

Pattern = "[^0-9+.*/:()-]"
ValExp = Evaluate(.Replace(Temp1, ""))

 

[ndu96081631]

Nhờ anh giải thích giúp em mấy dòng này :

With CreateObject("VBScript.RegExp")
.Global = True

Pattern = "[^0-9+.*/:()-]"
ValExp = Evaluate(.Replace(Temp1, ""))

Bạn xem tại đây (có hướng dẩn)
Tách số không dùng vòng lập