Chuyển công thức vlookup & Indirect thành vba

[Bong0503]

Nhờ các anh chị, các bạn trên diễn đàn chuyển dùm công thức trong Sheet BC_DIEN sang vba.
Mình dùng vlookup & Indirect số lượng sheet trên file thực tế mình đang dùng khá nhiều nên khi mở sheet khá lá chậm.
Mình dùng nút lệnh để gọi sheet nên nhờ các bạn dặt code vào sự kiện Worksheet_Activate() dùm mình.
Chân thành cảm ơn!

 

[befaint]

Mình dùng vlookup & Indirect số lượng sheet trên file thực tế mình đang dùng khá nhiều nên khi mở sheet khá lá chậm.

Chậm là hiển nhiên.
Trong công thức, vùng tìm tới đâu thì lấy tới đó thôi.
=IFERROR(VLOOKUP($B6,INDIRECT("'"&$E$5&"'!$B:$T"),2,FALSE),0)
Thứ nhất, bạn phang nguyên cột B-T;
Thứ hai, bạn chỉ lấy kết quả ở cột 2 thì chỉ chọn 2 cột thôi, đằng này bạn chọn nguyên 19 cột. 19 cột * 1048576 =??? chịu sao nổi?