Nhờ hướng dẫn viết hàm trả về tổng kết quả thực của một mãng gồm nhiều biểu thức toán (1 người xem)

[wanghuy3]

Xin hỏi các bạn trên diễn đàn mình có tình huống như thế này
tại ô A1: 1.5*2+2
A2: 2+2
tại ô A3 mình muốn tạo 1 công thức để tính tổng 2 ô đó (kết quả = 9).
Mình tìm trên GPE thì có công thức này
Function ValueR(Str As String)
ValueR = Evaluate(Str)
End Function
nhưng chỉ tính 1 ô không tính được nhiều ô cùng lúc
Xin các bạn hướng dẫn cho mình, xin cảm ơn mọi người

 

[Phuocam]

Xin hỏi các bạn trên diễn đàn mình có tình huống như thế này
tại ô A1: 1.5*2+2
A2: 2+2
tại ô A3 mình muốn tạo 1 công thức để tính tổng 2 ô đó (kết quả = 9).
Mình tìm trên GPE thì có công thức này
Function ValueR(Str As String)
ValueR = Evaluate(Str)
End Function
nhưng chỉ tính 1 ô không tính được nhiều ô cùng lúc
Xin các bạn hướng dẫn cho mình, xin cảm ơn mọi người

Thử cách này xem sao

Function ValueR(Vung As Range) As Double
Dim Cll As Range
    For Each Cll In Vung
        ValueR = ValueR + Evaluate(Cll.Value)
    Next Cll
End Function