Chuyển sang hàm WorksheetFunction

[hongphuong]

Anh chị chuyển giúp hàm này với.
Xin cảm ơn

Sub vbn()
With WorksheetFunction
.Range("c22") = .INDEX([$B$3:$J$3].MOD(.SMALL(.INDEX([$B4:$J4]+COLUMN([$B$3:$J$3[)%%,),COLUMN([D1])),1)*10^4-1)
End With
End Sub

 

[Deleted member 1392]

Bạn cần mô tả rõ hơn về vấn đề bạn đang gặp phải
1. Hàm này của bạn được sử dụng như thế nào?, mục tiêu của hàm này là gì?
2. Bạn cần chuyển hàm này là chuyển như thế nào, Từ hàm bình thường sang VBA?, Tăng tốc?, hoặc hàm không hoạt động. Bạn cần mô tả rõ hơn.
2. Bạn nên đưa hình ảnh mô tả vấn đề bạn đang gặp phải sẽ giúp mọi người dễ hiểu hơn.
3. Bạn nên có file Demo để mọi người có muốn giúp bạn cũng có cái để làm.