Hàm tính toán nội dung diễn giải từ chuỗi biểu thức

Copy đoạn code bên dưới :

Function CALVALUE(expr As String) As Double
Dim place As Integer 
Dim Temp, Excal
place = InStr(expr, ":") 
If place > 0 Then
expr = Mid(expr, place + 1) 
Set Temp = CreateObject("VBScript.RegExp") 

Temp.Global = True 
Excal = Replace(expr, "[", "(") 
Excal = Replace(Excal, "]", ")") 
Excal = Replace(Excal, "{", "(") 
Excal = Replace(Excal, "}", ")") 
Excal = Replace(Excal, "x", "*") 
Temp.Pattern = "[^0-9,+,.,*,/,:,(,),-]" 
expr = Temp.Replace(Excal, "")
CALVALUE = Evaluate(expr)
Else: MsgBox ("Bieu thuc phai chua dau ' : '")
End If
End Function

Cộng đồng thư viện hàm VBA di động - Thư viện hàm VBA lập trình sẵn - Tải về và sử dụng