Tính giá trị 1 đoạn text

[thuongsykxps]

Em có 1 vấn đề mong anh chị giúp em. Em xin cảm ơn trước.
Giả sử ớ cột A
__A________________________B
9*8*7_________(ở đây lập công thức để tính text ở cột A)
9*8*9
Ý em là muốn lập công thức chứ không dùng Ctrl+F3 (Define Name =evaluate).
Mình có thể lập công thức như thế nào. Nếu viết bằng VBA củng được.
Nó vừa tách số và thực thi phép tính luôn (+,-,*,/) (vd: tách ra được 2*3 thì nó tính bằng 6 luôn) Chứ đoạn code trên chỉ tách đươc số thôi.
Mong anh chị giúp em. Em cảm ơn nhiều.

 

[Pozsi]

Vậy bạn xem file thử nha!

Function tinh(a As String) As Long
tinh = Evaluate("=" & a)
End Function

Chúc vui.

 

[ndu96081631]

Em có 1 vấn đề mong anh chị giúp em. Em xin cảm ơn trước.
Giả sử ớ cột A
__A________________________B
9*8*7_________(ở đây lập công thức để tính text ở cột A)
9*8*9
Ý em là muốn lập công thức chứ không dùng Ctrl+F3 (Define Name =evaluate).
Mình có thể lập công thức như thế nào. Nếu viết bằng VBA củng được.
Nó vừa tách số và thực thi phép tính luôn (+,-,*,/) (vd: tách ra được 2*3 thì nó tính bằng 6 luôn) Chứ đoạn code trên chỉ tách đươc số thôi.
Mong anh chị giúp em. Em cảm ơn nhiều.

Sao bạn lại gữi nhiều chổ thế (tổng cộng 3 lần gữi ở 3 chổ khác nhau)
Đã trả lời bạn tại đây rồi mà:
http://www.giaiphapexcel.com/forum/showthread.php?t=24647