Giúp tạo công thức bằng VBA để in theo Form

[vantrinh107]

Chào các anh chị E xecl

Em đang tạo 1 file E xecl để in ra form nhưng mà do dữ liệu lớn quá nên ko thể dùm công thức bình thường được do chậm quá.
Mà e không biết lập trình VBA, cũng tham khảo 1 số bài viết trên GPE mà cũng ko hiểu luôn vì vậy nên nhờ a chị giúp dùm

 

[vantrinh107]

em có thử làm bằng cách này, học hỏi theo code của a Concogia, không hiểu sao nó vẫn không chạy :

Option Explicit


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$a$7" Then
If Target.Value <> "" Then
[E10:N300].Clear
With Sheets("TaphopDX").Range(Sheets("TaphopDX").[f8], Sheets("TaphopDX").[f1000].End(xlUp)).Resize(, 14)
.AutoFilter 1, [a7]
Sheets("TaphopDX").Columns("f:f").EntireColumn.Hidden = True
.SpecialCells(12).Copy [e10]
.AutoFilter
Sheets("TaphopDX").Columns("f:f").EntireColumn.Hidden = False
End With
End If
End If
End Sub