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

tuananhuce

Thành viên mới
Tham gia ngày
27 Tháng bảy 2019
Bài viết
2
Được thích
0
Điểm
13
Tuổi
30
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

Thành viên tích cực
Tham gia ngày
24 Tháng hai 2013
Bài viết
903
Được thích
678
Điểm
560
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

Thành viên mới
Tham gia ngày
27 Tháng bảy 2019
Bài viết
2
Được thích
0
Điểm
13
Tuổi
30
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
 
Top Bottom