Có thể là hàm này:
Function ValueEval(rng As Range)
Dim i As Integer
Dim strTemp As String
For i = 1 To Len(rng)
Select Case Asc(Mid(rng.Value, i, 1))
Case 40 To 45, 47 To 58, 91, 93, 120, 123, 125
ValueEval = ValueEval & Mid(rng.Value, i, 1)
End Select
Next i
strTemp = Replace(ValueEval, "x", "*")
strTemp = Replace(strTemp, ":", "/")
strTemp = Replace(strTemp, "{", "(")
strTemp = Replace(strTemp, "}", ")")
strTemp = Replace(strTemp, "[", "(")
strTemp = Replace(strTemp, "]", ")")
strTemp = Replace(strTemp, ",", ".")
ValueEval = Evaluate(strTemp)
End Function
Vào 08:33 Ngày 27 tháng 08 năm 2015, Nguyen Bg <
notification+kr4mrywksnxn@facebookmail.com> đã viết:
--
VŨ TRẦN KHOA
Civil and Architect Dept.
CIMAS Engineering Company Ltd.
6th Flr., Charm Vit Bldg., 117 Tran Duy Hung Str., Cau Giay, Hanoi,
Vietnam
Mobile:0987666753 Or 0968.31.91.68
Nơi trao đổi Excel <http://www.giaiphapexcel.com>