Lọc số và tính toán (1 người xem)

[phuong_cd9]

Cả nhà cho em hỏi có add-in nào lọc số ra rồi tính toán không nhỉ?
Ví dụ như: 3 cây*10+4 cây*5 = 50

 

[Quang_Hải]

Cả nhà cho em hỏi có add-in nào lọc số ra rồi tính toán không nhỉ?
Ví dụ như: 3 cây*10+4 cây*5 = 50

ah Tinh tới tính lui thì cũng ra 50

Function tinh(cell As Range)
Dim tam, kq
  tam = Split(cell, "+")
  kq = Replace(tam(0), "cây", "") & "+" & _
  Replace(tam(1), "cây", "")
  tinh = Evaluate(kq)
End Function

 

[huuthang_bd]

Cả nhà cho em hỏi có add-in nào lọc số ra rồi tính toán không nhỉ?
Ví dụ như: 3 cây*10+4 cây*5 = 50

Bạn dùng thử UDF này

Function Tinh(ByVal Str) As Double
With CreateObject("VBScript.RegExp")
    .Global = True
    .Pattern = "[^0-9()%,^*/+-]"
    Str = .Replace(Str, "")
End With
Tinh = Evaluate(Replace(Str, ",", "."))
End Function

 

[phuong_cd9]

Cảm ơn bạn nhiều nha. Đúng là cao thủ lập trình. Mình chẳng biết tý gì về VBA.
hi. Đành lên đây xin trợ giúp của mọi người!

 

[phuong_cd9]

ah Tinh tới tính lui thì cũng ra 50

Function tinh(cell As Range)
Dim tam, kq
  tam = Split(cell, "+")
  kq = Replace(tam(0), "cây", "") & "+" & _
  Replace(tam(1), "cây", "")
  tinh = Evaluate(kq)
End Function

cảm ơn Bác nhiều.hi
Mọi người trên GPE nhiệt tình quá!

 

[tienhoaa]

xin lỗi các bác e gà mờ...các bác chỉ rõ cho e cách dùng hàm được k? hic..e xin cảm ơn