cell D4 có dữ liệu: 2 người/3500000 đồng/tháng/1 ngườiminhnc đã viết:
Hey!
Công việc ko lặp đi lặp lại nhiều lần. Hiện tại mình đang dùng mỗi phép nhân, nếu có thể mọi người giải quyết triệt để làm sao có thể thực hiện được tất cả các công thức,tigertiger đã viết:
Nguyễn Hương Thơm đã viết:
+ minhnc cho biết: trên thực tế có còn nhiều loại đơn vị ko? và các đơn vị này có thường thống nhất theo chuẩn nào k?minhnc đã viết:
Tất nhiên một bài toán khó mới hay nhưng nó phải có một cái gì đó để ta định hướng giải quyết. Như file của bạn đưa lên ở cột đơn giá nó không có một quy luật hay một cái gì đó mà ta bám vào. Ở ô D4 đó nó như là một diễn giải.minhnc đã viết:
Oh, chắc bạn minhnc viết nhầm 2 người/350000 đồng / ... phải chính xác là 2 người * 35000 đồng /... như thế thì mới tính đượcsalam đã viết:
anhtuan1066 đã viết:
Public Function GiaTri(StringTinhToan As String, Optional DauPcach000 = ",") As Double
Application.Volatile
Dim RgnDM As Range, iI As Integer, Dvi
StringTinhToan = Replace(StringTinhToan, " ", ""): StringTinhToan = UCase(StringTinhToan)
Set RgnDM = Range("DM")
For Each Dvi In RgnDM: StringTinhToan = Replace(StringTinhToan, UCase(Dvi.Value), ""): Next
StringTinhToan = Trim(Replace(StringTinhToan, "X", "*"))
StringTinhToan = Replace(StringTinhToan, DauPcach000, "")
If DauPcach000 = "." Then StringTinhToan = Replace(StringTinhToan, ",", ".")
If StringTinhToan = "1" Then StringTinhToan = "1*1"
GiaTri = Evaluate(StringTinhToan)
End Function
Public Function Gtri(Dulieu As String, Optional Pcach = ",")
If Len(Dulieu) = 0 Then Exit Function
For i = 1 To Len(Dulieu)
If Pcach = "." Then
If Mid(Dulieu, i, 1) = "," Then temp = temp & "."
Else
If Mid(Dulieu, i, 1) = "." Then temp = temp & "."
End If
If Mid(Dulieu, i, 1) = "x" Then temp = temp & "*"
If Mid(Dulieu, i, 1) = ":" Then temp = temp & "/"
Select Case Mid(Dulieu, i, 1)
Case "+", "-", "*", "/", "(", ")", 0 To 9
temp = temp & Mid(Dulieu, i, 1)
End Select
Next
For i = 1 To Len(Dulieu)
If Right(temp, 1) = "-" Or Right(temp, 1) = "+" _
Or Right(temp, 1) = "*" Or Right(temp, 1) = "/" Then _
temp = Left(temp, Len(temp) - 1)
Next
Gtri = Evaluate(temp)
End Functionminhlev đã viết:
Public Function Gtr(Dulieu As String, Optional Pcach = ",")
If Len(Dulieu) = 0 Then Exit Function
Dulieu = Replace(Dulieu, Pcach, "")
Dulieu = Replace(Dulieu, ",", ".")
For i = 1 To Len(Dulieu)
Select Case Mid(Dulieu, i, 1)
Case "x": temp = temp & "*"
Case ":": temp = temp & "/"
Case "+", "-", "*", "/", "(", ")", 0 To 9: temp = temp & Mid(Dulieu, i, 1)
End Select
Next i
For i = 1 To Len(Dulieu)
If Right(temp, 1) = "-" Or Right(temp, 1) = "+" _
Or Right(temp, 1) = "*" Or Right(temp, 1) = "/" Then _
temp = Left(temp, Len(temp) - 1)
Next
Gtr = Evaluate(temp)
End FunctionPublic Function Gtr(Dulieu As String, Optional Pcach = ",")
Dim i, temp
If Len(Dulieu) = 0 Then Exit Function
Dulieu = Replace(Dulieu, Pcach, "")
Dulieu = Replace(Dulieu, ",", ".")
For i = 1 To Len(Dulieu)
Select Case Mid(Dulieu, i, 1)
Case "x": temp = temp & "*"
Case ":": temp = temp & "/"
Case "+", "-", "*", "/", "(", ")", ".", 0 To 9: temp = temp & Mid(Dulieu, i, 1)
End Select
Next i
For i = 1 To Len(Dulieu)
Select Case Right(temp, 1)
Case "-", "+", "*", "/": temp = Left(temp, Len(temp) - 1)
End Select
Next
Gtr = Evaluate(temp)
End Function
