
Application.ScreenUpdating = False 请帮我翻译一下EXCEL的VBA代码
Application.ScreenUpdating=FalseRange("A7","T7").CurrentRegion.ClearSheets("江南嘉捷按钮")....
Application.ScreenUpdating = False
Range("A7", "T7").CurrentRegion.Clear
Sheets("江南嘉捷按钮").Cells.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
Range("A1:C2"), CopyToRange:=Range("A7"), Unique:=False
Application.ScreenUpdating = True
End Sub 展开
Range("A7", "T7").CurrentRegion.Clear
Sheets("江南嘉捷按钮").Cells.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
Range("A1:C2"), CopyToRange:=Range("A7"), Unique:=False
Application.ScreenUpdating = True
End Sub 展开
若以下回答无法解决问题,邀请你更新回答
1个回答
展开全部
Application.ScreenUpdating = False '屏蔽刷屏
Range("A7", "T7").CurrentRegion.Clear ‘清空A7到T7的内容
AdvancedFilter 基于条件区域从列表中筛选或复制数据。如果初始选定区域为单个单元格,则使用单元格的当前区域。
Action 必选 用于指定是否就地复制或筛选列表。
CriteriaRange 可选 Variant 条件区域。如果省略该参数,则没有条件限制。
CopyToRange 可选 Variant 如果 Action 为 xlFilterCopy,则为复制行的目标区域。否则,忽略该
Unique 可选 Variant 如果为 True,则只筛选唯一记录。如果为 False,则筛选符合条件的所有记录。默认值为 False。
Application.ScreenUpdating = True’开启刷屏
Range("A7", "T7").CurrentRegion.Clear ‘清空A7到T7的内容
AdvancedFilter 基于条件区域从列表中筛选或复制数据。如果初始选定区域为单个单元格,则使用单元格的当前区域。
Action 必选 用于指定是否就地复制或筛选列表。
CriteriaRange 可选 Variant 条件区域。如果省略该参数,则没有条件限制。
CopyToRange 可选 Variant 如果 Action 为 xlFilterCopy,则为复制行的目标区域。否则,忽略该
Unique 可选 Variant 如果为 True,则只筛选唯一记录。如果为 False,则筛选符合条件的所有记录。默认值为 False。
Application.ScreenUpdating = True’开启刷屏
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询