请教一个有关excel vba代码的问题，以下为代码，希望哪位大哥能帮忙详解一下这代码，谢谢！

Question

Private Sub Worksheet_Activate()
Call 销售清空筛选
End Sub
Sub 销售条件查询()
If Cells(3, 13).Value = "" Or Cells(3, 13).Value = 1 Then
Application.ScreenUpdating = False '关闭屏幕刷新
Application.Calculation = xlCalculationManual '手动重算
ActiveSheet.Range("s13:l65536").ClearFormats '清除格式
Sheets("销售数据").Columns("A:k").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("b3:l4"), CopyToRange:=Range("b13:l13"), Unique:=False
Application.Calculation = xlCalculationAutomatic '自动重算
Range("B13:L13").Select
Selection.AutoFilter
Else
Call 销售清空筛选
MsgBox ("货号错误请查证后重新查询")
End If

End Sub
Sub 销售日期范围筛选()
Application.ScreenUpdating = False '关闭屏幕刷新
Application.Calculation = xlCalculationManual '手动重算
ActiveSheet.Range("s13:l65536").ClearFormats '清除格式
Sheets("销售数据").Columns("A:k").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("c9:d10"), CopyToRange:=Range("b13:l13"), Unique:=False
Application.Calculation = xlCalculationAutomatic '自动重算
Range("B13:L13").Select
Selection.AutoFilter
End Sub

Sub 销售清空筛选()
Range("b4:l4").Select
Selection.ClearContents
Range("C8:D8").Select
Selection.ClearContents
Rows("13:65536").Select
Selection.ClearContents
Range("e5").Select

End Sub

Answer 1

在vba编辑器中 帮助—ms basic帮助，自己输入关键字解释的很清楚的

Range("H7").Select
当前表的H7单元格被选中
Sheets("基础表").Range("A3:L19").AdvancedFilter
基础表的“A3:L19”单元格区域进行高级筛选，后面有三个参数
Action:=xlFilterCopy,
筛选模式参数，具体参数意义查看帮助
CriteriaRange:=Range("A1:D2"),
条件区域
CopyToRange:=Range("A4:K4"), Unique:=False
如果 Action 为 xlFilterCopy，则本参数指定被复制行的目标区域。否则忽略本参数