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
展开
 我来答
若以下回答无法解决问题,邀请你更新回答
wu302791539
推荐于2016-01-01 · TA获得超过709个赞
知道小有建树答主
回答量:391
采纳率:0%
帮助的人:209万
展开全部
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’开启刷屏
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 1条折叠回答
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式