nhờ các anh bổ sung cho code gán công thức chứa function vào bang tính

[truonghagpex]

chào các anh ! em đang tập viết code trong exell nhưng không thể viết hoàn chỉnh như mong muốn được vì năng lực rất hạn chế, nay lên mạng nhờ anh em ai biết chỉ giùm em với em xin up file lên để các anh xem giúp. vì em gán công thức chứa function mà cell cần so sánh lại có địa chỉ dạng activeceel(j,i) nên không thể làm được. file 2 là bảng tính có công thức cần gán trong các cell màu xanh với chú ý la số hàng phía trên va cột bên trái có thể nhiều hơn hoặc ít hơn
việc lọc thì em làm được rồi chỉ còn lại đoạn gán công thức hì không làm được

 

[sealand]

Bạn phải hướng dẫn sắp xếp như thế nào, gán công thức ra sao chứ.

 

[truonghagpex]

nhờ các anh chỉ cho em cách lấy địa chỉ dạng activecell(i,j)

giả sử em có biến
bien1 = Application.InputBox("CHON O ", "DAY LA O THU 1 ", , , , , , 8)
đây là ô thứ nhất bất kỳ
bien2 = Application.InputBox("CHON O ", "DAY LA O THU 2 ", , , , , , 8)
đây là ô thứ 2 bất kỳ
em muốn tại activecell(i,j) cần gán công thức chứa function sosa để khi sang exell nó tự động gán cho em hàm "=if(sosa(bien 1) = sosa(bien 2),"bằng nhau", không bằng") với biến1 , 2 là địa chỉ nói trên thì làm như thế nào.
em đã làm như thế này
(đây là ví dụ đơn giản để các anh cho em cacchs làm thôi)
tại activecell(2,5) ="=if(sosa(bien 1).value = sosa(bien 2).value,"bằng nhau", không bằng")
với sosa là hàm em đã viết thì nó báo lỗi vậy phải làm sao bây giờ mong các anh giúp đỡ

 

[truonghagpex]

tìm địa chỉ cell

em có
b = Application.InputBox("CHON O ", "DAY LA O THU 1 ", , , , , , 8)
msgbox "ô đó là " & B
thì nó cho kết quả là R5C3 (giả sử vậy)
vậy em muốn có r5c3 đó để đưa vào công thức activecell(6,4) =123 thì làm sao để em tách được r5c3. mong các anh chi giúp

 

[sealand]

Bạn phải ghi rõ chọn như thế nào, mình không biết chọn đại nó xoá tùm lum cả.
Bạn nên tham khảo cách tham chiếu phổ dụng nhất, cách tham chiếu R1C1 này trên diễn đàn ít người dùng và khi đọc viết cũng khó hiểu hơn.