Application.Calculation = xlCalculationManual '手动计算
Application.Calculation = xlCalculationAutomatic '自动计算
Application.ScreenUpdating = False '关闭屏幕刷新
Application.DisplayAlerts = False '禁止弹出提示框
Application.EnableEvents = False '禁止事件
Application.CutCopyMode = False'退出复制/剪切模式
Application.ActivateMicrosoftApp Index:=0'使用Windows的计算器
Application.Dialogs(xlDialogOpen).Show'显示内置对话框
VBA常用代码
猜你喜欢
转载自www.cnblogs.com/zhujie-com/p/11696040.html
今日推荐
周排行