Macro chuyển đổi diễn giải công thức tính toán thành kết quả

[tuananhuce]

Dear các Anh Chị!
Em có 1 vấn đề này cần nhờ các AC nào biết xử lý giúp em: Em có một bảng tính excel mà có ô diễn giải công thức tính toán ví dụ như sau: VD Tại Ô A1: 22,5+11,7+18+29,3. Bây h em muốn hiện kết quả bên Ô B1 là 81,5. Có AC nào biết viết giúp em cái Macro hiện kết quả sang bên Ô B1 thay vì phải copy sang và đặt dấu "=" ở đầu không ạ. Tks các AC

 

[HeSanbi]

Bạn dùng hàm:

Function Evaluate(R As Range):Evaluate= Evaluate(R.Value2):End Function

Sử dụng: =Evaluate(A1)

Nếu Dấu "," là hàng nghìn thì thêm:

Replace$(R.Value2, "," , "")

Nếu Dấu "," là thập phân thì thêm:

Replace$(R.Value2, "," , ".")

Hoặc:

Function Evaluate(R As Range, Optional ThapPhan As Boolean)
Evaluate= Evaluate(IIF(ThapPhan,Replace$(R.Value2, "," , "."),R.Value2))
End Function

Nếu Dấu "," là thập phân thì thêm True:
Sử dụng: =Evaluate(A1, True)

 

[tuananhuce]

Bạn dùng hàm:

Function Evaluate(R As Range):Evaluate= Evaluate(R.Value2):End Function

Sử dụng: =Evaluate(A1)

Nếu Dấu "," là hàng nghìn thì thêm:

Replace$(R.Value2, "," , "")

Nếu Dấu "," là thập phân thì thêm:

Replace$(R.Value2, "," , ".")

Hoặc:

Function Evaluate(R As Range, Optional ThapPhan As Boolean)
Evaluate= Evaluate(IIF(ThapPhan,Replace$(R.Value2, "," , "."),R.Value2))
End Function

Nếu Dấu "," là thập phân thì thêm True:
Sử dụng: =Evaluate(A1, True)

Cảm ơn Bác đã giúp. Em đã sử dụng được hàm Evaluate trong Formulas