Nhớ giúp đỡ viết code VBA (5 người xem)

[leduy78]

IF(AA10>1,IF(Y10>0,AB10+IF(ISTEXT(X9)=TRUE,0,X9),0),AB10)
Mình có công thức như trên, bây giờ muốn viết 1 hàm trong VBA, nhưng không biết các viết thế nào. Các bạn hỗ trợ giúp mình nhé. Xin cám ơn rất nhiều ạ.

 

[Hoàng Tuấn 868]

Nhớ giúp đỡ viết code VBA​

IF(AA10>1,IF(Y10>0,AB10+IF(ISTEXT(X9)=TRUE,0,X9),0),AB10)
Mình có công thức như trên, bây giờ muốn viết 1 hàm trong VBA, nhưng không biết các viết thế nào. Các bạn hỗ trợ giúp mình nhé. Xin cám ơn rất nhiều ạ.

Vụ này khó quên quá.

 

[cantl]

Nhớ giúp đỡ viết code VBA​

Vụ này khó quên quá.

Đấy, vì thế mới nhắc cho nhớ. Chắc Diễn đàn phải bổ sung tính năng đánh dấu chưa đọc để biết còn làm. Mà tính năng này cần thiết thật, nhiều khi xem điện thoại, sau mở máy thì nó mờ mất tiêu.

 

[Hoàng Tuấn 868]

bổ sung tính năng đánh dấu chưa đọc để biết còn làm

Cái này có từ khi khai sinh diễn đàn.

 

[cantl]

Khả năng phải đạt chuẩn nào thì mới có nút chưa đọc hoặc đọc sau hay sao ấy?

Cái này có từ khi khai sinh diễn đàn.

 

[Hoàng Tuấn 868]

Khả năng phải đạt chuẩn nào thì mới có nút chưa đọc hoặc đọc sau hay sao ấy?

Tiêu đề xanh đậm là những bài chưa đọc.

 

[cantl]

Tiêu đề xanh đậm là những bài chưa đọc.

Không, ý mình là đã vào xem rồi, lúc quay ra muốn đánh dấu là chưa đọc ấy. Mail tương tự nó gọi là Mark Unread ấy.

 

[bebo021999]

Dùng hàm UDF nhé

Option Explicit
Function cong(AB As Range)
Application.Volatile
Dim AA, X, Y
AA = AB.Offset(, -1).Value
Y = AB.Offset(, -3).Value
X = AB.Offset(-1, -4).Value
If Y > 0 And AA > 1 Then cong = IIf(IsNumeric(X), X, 0)
cong = AB + cong
End Function

Công thức tại sheet:

=cong(AB10)