Xin giải thích đoạn code VBA

[Bill group]

Mong ACE giải thích cho mình đoạn code này với (Đoạn 2. Cập nhật kết quả với advancdef Filter - có file đính kèm

Option Explicit

Sub Update_BC()
'1. Xoa du lieu cu
Sheets("ChiTiet").Range("A7:F1000").Clear
'2. Cap nhat ket qua voi advanced Filter
Sheets("ChiPhi").Range("A2:K722").AdvancedFilter _
Action:=xlFilterCopy, _
CriteriaRange:=Range("I6:K7"), _
CopyToRange:=Range("A6:F6"), _
Unique:=False
'3. Tim dong cuoi
Dim lr As Long
lr = Sheets("ChiTiet").Cells(Rows.Count, 1).End(xlUp).Row
'4. Gan ket qua vao dong cuoi
With Sheets("ChiTiet")
.Range("B" & lr + 1).Value = Range("I2").Value 'o I2 co doan text la Tong cong
.Range("F" & lr + 1).Value = Application.WorksheetFunction.Sum(.Range("F7:F" & lr))
End With
'5. Dinh dang
With Sheets("ChiTiet")
.Range("A" & lr + 1 & ":F" & lr + 1).Style = "Total"
.Range("F" & lr + 1).NumberFormat = "#,##0"
End With
End Sub

 

[ExcelQN]

'2. Cap nhat ket qua voi advanced Filter
Sheets("ChiPhi").Range("A2:K722").AdvancedFilter _
Action:=xlFilterCopy, _
CriteriaRange:=Range("ChiTiet!I6:K7"), _
CopyToRange:=Range("ChiTiet!A6:F6"), _
Unique:=False
Chỗ màu xanh đó bạn

 

[snow25]

Mong ACE giải thích cho mình đoạn code này với (Đoạn 2. Cập nhật kết quả với advancdef Filter - có file đính kèm

Option Explicit

Sub Update_BC()
'1. Xoa du lieu cu
Sheets("ChiTiet").Range("A7:F1000").Clear
'2. Cap nhat ket qua voi advanced Filter
Sheets("ChiPhi").Range("A2:K722").AdvancedFilter _
Action:=xlFilterCopy, _
CriteriaRange:=Range("I6:K7"), _
CopyToRange:=Range("A6:F6"), _
Unique:=False
'3. Tim dong cuoi
Dim lr As Long
lr = Sheets("ChiTiet").Cells(Rows.Count, 1).End(xlUp).Row
'4. Gan ket qua vao dong cuoi
With Sheets("ChiTiet")
.Range("B" & lr + 1).Value = Range("I2").Value 'o I2 co doan text la Tong cong
.Range("F" & lr + 1).Value = Application.WorksheetFunction.Sum(.Range("F7:F" & lr))
End With
'5. Dinh dang
With Sheets("ChiTiet")
.Range("A" & lr + 1 & ":F" & lr + 1).Style = "Total"
.Range("F" & lr + 1).NumberFormat = "#,##0"
End With
End Sub

Bạn biết chức năng AdvancedFilter trong excel không.Recode macro lại 1 lần sẽ hiểu code về nó nhé.Nếu vẫn chưa hiểu thì lại chạy lại code đó.Khác hiểu ngay.