16.03 KB, Lượt tải về: 2407
quanghao1132004 gửi lúc 28/12/2016 12:31
Cái này mình sưu tập được. Gửi bạn tham khảo. Dùng hàm "KL", và có dấu ":" để các ...
Function vitri(kytu As String, chuoidc As String)
sodaucach = 0
For i = 1 To Len(chuoidc)
kytuchuoi = Mid(chuoidc, i, 1)
If kytuchuoi = kytu Then
vitri = i
End If
Next
End Function
Public Function KL(strText As String)
If Right(strText, 1) = " " Then
KL = "0"
Else
strText = Replace(strText, "m2", "")
strText = Replace(strText, "m3", "")
strText = Replace(strText, "M2", "")
strText = Replace(strText, "M3", "")
strText = Replace(strText, ",", ".")
If vitri(" ", strText) < Len(strText) And vitri(" ", strText) > 1 Then
strText = Right(strText, Len(strText) - vitri(" ", strText))
'Else
End If
KL = ""
For i = 1 To Len(strText)
kytu = Mid(strText, i, 1)
ktdb = Mid(strText, i, 4)
If kytu = "0" Or kytu = "1" Or kytu = "2" Or kytu = "3" Or kytu = "4" Or kytu = "5" Or kytu = "6" Or kytu = "7" _
Or kytu = "8" Or kytu = "9" Or kytu = "+" Or kytu = "-" Or kytu = "*" Or kytu = "/" Or kytu = "^" Or kytu = "." _
Or kytu = "," Or kytu = "(" Or kytu = ")" Or kytu = "%" Or kytu = "x" Or kytu = "X" Or ktdb = "sqrt" Or ktdb = "Sqrt" Or ktdb = "SQRT" Then
If ktdb = "sqrt" Or ktdb = "Sqrt" Or ktdb = "SQRT" Then
kytu = "sqrt"
End If
If kytu = "x" Or kytu = "X" Then
kytu = "*"
End If
KL = KL & kytu
End If
Next
If KL = "" Then
KL = 0
End If
End If
If IsError(Evaluate(KL)) Then
KL = ""
Else
KL = Round(Evaluate(KL), 3)
If KL = 0 Then
KL = ""
End If
End If
End Function
phamvana gửi lúc 30/12/2016 08:22
Đọc code của file.
Cái này bạn có thể dùng làm add-in được.
[mw_shl_code=vb,true]Func ...
Tinh KL.rar
(20.78 KB, Lượt tải về: 2745)
