Cách tạo hàm mới: ( Từ một cột (A2) diễn giải một chuỗi công thức tính sang cột B2 th

[anphuoc06]

Trên diễn đàn có đoạn code:

Public 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

Ở đoạn code trên chỉ đúng với trường hợp là ô B2 có công thức "=gtri(A2)" mà A2 là "công sơn lót= 2m * 6m * 2 lần" gồm cả số lẫn chữ trong đó.
Đoạn code sẽ lọc các con số để tính toán, còn chữ thì bỏ qua.
Nhưng nếu trường A2 là “ công sơn lót: 2m* 6m *2lần “ hoặc A2 là “ Xây tường 200: (6*0.2*3.3-1.2*2.8)*2 “ hoặc A2 là “ : 6*1.2/100 “ thì đoạn code trên phải viết lại như thế nào?
Mong các Anh Chị trên diễn đàn giúp em nhé!

 

[anphuoc06]

Sao vẫn chưa có ai quan tâm tới câu hỏi của mình vậy? Các anh chị trong diễn đàn và cả admin nữa?

 

[ndu96081631]

Sao vẫn chưa có ai quan tâm tới câu hỏi của mình vậy? Các anh chị trong diễn đàn và cả admin nữa?

Muốn người ta quan tâm thì bạn phải đưa file lên đây (kèm theo code) đồng thời ghi rõ yêu cầu vào file
Hic... Ghi mấy cái code, chẳng ăn thua gì

 

[anphuoc06]

Em chân thành cảm ơn anh ndu96081631 đã quan tâm tới câu hỏi của em, hôm nay em gửi thêm file đính kèm, ở mục này em không biết đình kèm tập tin như thế nào nên em gửi lại ở đề tài mới (Hàm và công thức Excel) mong anh ndu96081631 cùng các anh chị trong diễn đàn giúp em