Xin chào các thành viên, mình mới tập tành học VBA để giúp công việc cho nhanh, nhưng chưa biết viết. Hắng ngày copy thủ công mất nhiều thời gian quá.
Minh có 2 File ( mình xóa cho ngắn gọn, chứ File này dài khoảng 2000 dòng), nếu làm hàm Excel thì khó áp dụng vào File , vì File còn nhiều công thức khác , không thể kéo xuống được, Mình có thấy đoạn Code này nhưng triển khai mở rộng cho file của mình chưa được, mong các thành viên hỗ trợ. Cám ơn.
==> của người ta là vậy ===> triển khai theo của mình là: IFERROR(INDEX('[Ke hoach cuoi.xlsb]Thang 03'!$K$12:$AO$2500,MATCH($P16,[Ke hoach cuoi.xlsb]Thang 03'!$J$12:$J$2500,0),MATCH(Q$13,[Ke hoach cuoi.xlsb]Thang 03'!$K$10:$AO$10,0)),"0")
Application.Interactive = True
Application.EnableEvents = True
Application.ScreenUpdating = True
Minh có 2 File ( mình xóa cho ngắn gọn, chứ File này dài khoảng 2000 dòng), nếu làm hàm Excel thì khó áp dụng vào File , vì File còn nhiều công thức khác , không thể kéo xuống được, Mình có thấy đoạn Code này nhưng triển khai mở rộng cho file của mình chưa được, mong các thành viên hỗ trợ. Cám ơn.
Mã:
Application.Interactive = False
Application.EnableEvents = False
Application.ScreenUpdating = False
For i = 4 To LastRow1
'Cells(i, 11).Value = "=INDEX(Data!B:F,MATCH(B4,Data!B:B,0),5)"
Cells(i, 11).Value = Application.Index(Worksheets("data").Range("B:F"), Application.Match(Range("B" & i), Worksheets("data").Range("B:B"), 0), 5)
Next i
Application.Interactive = True
Application.EnableEvents = True
Application.ScreenUpdating = True
Bạn cần đăng nhập để thấy link