|
|
Sub 销售条件查询()
If Cells(1, 14).Value = "" Or Cells(1, 14).Value = 1 Then
Sheets("销售数据").Columns("A:l").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("a4:l4"), CopyToRange:=Range("a4:l4"), Unique:=False
Application.Calculation = xlCalculationAutomatic '自动重算
Range("a4:l65536").Select
Selection.AutoFilter
Else
Call 销售清空筛选
MsgBox ("货号错误请查证后重新查询")
End If
副本.rar
(14.6 KB, 下载次数: 146)
|
|
