Viết Function Cho Excel

[khacbao72]

Thân chào các anh chi trong diễn đàn,
Mong các anh chị giúp cho vấn đề này với :

Số là tôi hay làm khối lượng cần liệt kê ra rõ đại loai như thế này :
2*3+5.3*6-7*8
thường thì tôi viết một sub và thêm vào dấu "=" phía trước thì nó chạy . Tuy nhiên tôi được biết có thể tính toán bằng cách viết Function .
Mong các anh chị chỉ giúp cách viết Function cho vấn đề này với.

 

[ptlong04x1]

Xin giải thích.

Thân chào các anh chi trong diễn đàn,
Mong các anh chị giúp cho vấn đề này với :

Số là tôi hay làm khối lượng cần liệt kê ra rõ đại loai như thế này :
2*3+5.3*6-7*8
thường thì tôi viết một sub và thêm vào dấu "=" phía trước thì nó chạy . Tuy nhiên tôi được biết có thể tính toán bằng cách viết Function .
Mong các anh chị chỉ giúp cách viết Function cho vấn đề này với.

Mình không hiểu ý bạn lắm, tạo hàm trong VBA thì phải có đối số, vậy trong phép tính bạn vừa nêu thì cái nào là đối số, mình nghĩ nếu chỉ +-*/ thì dùng hàm ngay trong Excel cũng được mà lại đơn giản nữa, bạn đưa file lên nhé.

 

[ndu96081631]

Thân chào các anh chi trong diễn đàn,
Mong các anh chị giúp cho vấn đề này với :

Số là tôi hay làm khối lượng cần liệt kê ra rõ đại loai như thế này :
2*3+5.3*6-7*8
thường thì tôi viết một sub và thêm vào dấu "=" phía trước thì nó chạy . Tuy nhiên tôi được biết có thể tính toán bằng cách viết Function .
Mong các anh chị chỉ giúp cách viết Function cho vấn đề này với.

Đoán đại và... làm đại

Function Tinh(Chuoi As String) As Variant
 Tinh = Evaluate(Chuoi)
End Function

Nếu không đúng ý thì... cho file chi tiết lên nhé
Và nếu phán đoán của tôi là đúng thì món này vẫn có thể làm bằng công thức (vô tư luôn)

 

[khacbao72]

Thành thật cảm ơn các anh chị đã nhiệt tình giúp đỡ đặc biệt là tác giả ndu96081631.Đúng là tôi đang tìm hàm evaluate () nhu ban đã giúp đỡ.

 

[hoa35ktxd]

Bạn thử sử dụng bộ công cụ tôi gửi kèm theo.
Bạn có thể nhập hàng loạt các biểu thức, sau đó tính cho cả loạt luôn, ví dụ
A1: 14-25/5+22*48+sin(pi()/2)
A2: 22-56/4 + cos(0) - 3^2 + cos(0)
A3: 13+45/3+27
Sau khi thực hiện lệnh sẽ như sau
A1: 14-25/5+22*48+sin(pi()/2) = 1066
A2: 22-56/4 + cos(0) - 3^2 + cos(0) = 1
A3: 13+45/3+27 = 55
Linh dowload http://www.megaupload.com/vn/?d=XZ4LDKXQ
Sao tôi không Upload vào đây được nhỉ.

 

[ndu96081631]

Bạn thử sử dụng bộ công cụ tôi gửi kèm theo.
Bạn có thể nhập hàng loạt các biểu thức, sau đó tính cho cả loạt luôn, ví dụ
A1: 14-25/5+22*48+sin(pi()/2)
A2: 22-56/4 + cos(0) - 3^2 + cos(0)
A3: 13+45/3+27
Sau khi thực hiện lệnh sẽ như sau
A1: 14-25/5+22*48+sin(pi()/2) = 1066
A2: 22-56/4 + cos(0) - 3^2 + cos(0) = 1
A3: 13+45/3+27 = 55
Linh dowload http://www.megaupload.com/vn/?d=XZ4LDKXQ
Sao tôi không Upload vào đây được nhỉ.

Bạn ơi! Cái này thì cần gì Add-Ins cho rối... chỉ 1 function nhỏ xíu tôi viết ở trên là đủ lắm rồi (tôi cũng không biết bạn viết gì trong đó)
Vã lại tôi chỉ cần đặt 1 name
Tinh = Evaluate($A1)
rồi gõ công thức trên bảng tính =Tinh là xong! (khỏi UDF luôn)

 

[hoa35ktxd]

Hì, cái bạn viết thì với 10 ô có chứa biểu thức thì bạn phải nhập 10 lần, cái tôi viết là chỉ cần thực hiện 1 lần với 10 ô đó bạn ạ.

 

[ndu96081631]

Hì, cái bạn viết thì với 10 ô có chứa biểu thức thì bạn phải nhập 10 lần, cái tôi viết là chỉ cần thực hiện 1 lần với 10 ô đó bạn ạ.

Đâu có sao! Vấn đề vẫn là thuật toán ---> Nếu muốn làm 1 lần cho nhiều ô thì viết 1 sub, chạy cái vèo ra 1 loạt luôn!
Với công thức thuần vẫn làm được điều này vô tư luôn (công thức mãng)

 

[Po_Pikachu]

Code của bạn chưa thật hay lắm!
Sao không gán Evaluate luôn, vậy sẽ đơn giản hơn.
Thân.