Hàm lấy công thức từ 1 ô dữ liệu để lấy kết quả tinh toán (1 người xem)

[lamtaclk8]

Các bạn cho tôi hỏi về hàm số mà công thức tôi gõ 1 ô nhưng không có dấu "=" hay dấu "+", tôi muốn tính giá trị từ công thức tinh toán đó tức là thêm dấu "+/=" cho công thức để ra kết quả.

ví dụ ô A1 gõ là : 3*4+5
ô A2 dùng công thức gì với tham chiều A1 để lấy công thức ô A1 và cho giá trị là 3*4+5=17
khi thay đổi ô A1 thì ô A2 cũng thay dổi giá trị theo
thank cá bạn!

 

[Hong.Van]

Các bạn cho tôi hỏi về hàm số mà công thức tôi gõ 1 ô nhưng không có dấu "=" hay dấu "+", tôi muốn tính giá trị từ công thức tinh toán đó tức là thêm dấu "+/=" cho công thức để ra kết quả.

ví dụ ô A1 gõ là : 3*4+5
ô A2 dùng công thức gì với tham chiều A1 để lấy công thức ô A1 và cho giá trị là 3*4+5=17
khi thay đổi ô A1 thì ô A2 cũng thay dổi giá trị theo
thank cá bạn,

Bạn tìm Evaluate trong diễn đàn
Nhớ bấm Yes để enable

 

[lamtaclk8]

cám ơn bạn, bạn có thể gửi cho mình dạng addins được ko, với lại cái này mình thấy hàm đó chí dùng cho ô sữ liệu cận kề, có thể sửa hàm để được tham chiếu 1 ô bất kỳ ko, thanks!

 

[Hong.Van]

cám ơn bạn, bạn có thể gửi cho mình dạng addins được ko, với lại cái này mình thấy hàm đó chí dùng cho ô sữ liệu cận kề, có thể sửa hàm để được tham chiếu 1 ô bất kỳ ko, thanks!

Cái này là đặt Name, bấm tổ hợp fím Ctrl+F3 là thấy

 

[Quang_Hải]

cám ơn bạn, bạn có thể gửi cho mình dạng addins được ko, với lại cái này mình thấy hàm đó chí dùng cho ô sữ liệu cận kề, có thể sửa hàm để được tham chiếu 1 ô bất kỳ ko, thanks!

Dùng code thế này xem sao

Function CT(cell As Range)
  CT = Evaluate("=" & cell)
End Function

=CT(ô tham chiếu)

 

[constructxda]

code tính công thức diễn giải giống như trong dự toán này các bạn xem dùng được không?
Public Function EvalH(x)
y = ""
For I = Len(x) To 1 Step -1
If Mid(x, I, 1) = ":" Then Exit For
y = IIf(Mid(x, I, 1) = ",", ".", Mid(x, I, 1)) + y
Next I
EvalH = Evaluate(y)
End Function
cấu trúc hàm: =evalH(ô tham chiếu chứa công thức diễn giải cần tính toán)

 

[ngocthachapc]

Bạn tìm Evaluate trong diễn đàn
Nhớ bấm Yes để enable

Nếu câu lệnh như này muốn ra kết quả thì làm như nào bạn: "6*3*25m*4,0m/cây*2/100" cảm ơn bạn

Bài đã được tự động gộp: 1/10/18

code tính công thức diễn giải giống như trong dự toán này các bạn xem dùng được không?
Public Function EvalH(x)
y = ""
For I = Len(x) To 1 Step -1
If Mid(x, I, 1) = ":" Then Exit For
y = IIf(Mid(x, I, 1) = ",", ".", Mid(x, I, 1)) + y
Next I
EvalH = Evaluate(y)
End Function
cấu trúc hàm: =evalH(ô tham chiếu chứa công thức diễn giải cần tính toán)