ScreenUpdating
application.screenupdating = false
此时此刻，执行的过程不再显示出来
application.screenupdating = true
此时此刻，执行的每一过程都被显示出来
sheet.delete 和 displayalerts
application.displayalerts = false
不显示警告信息了
enableevents
sub worksheet_selectionchange（byval target as range）
意思是单元格被选中时，触发事件
end sub
在运行过程中，一旦遇到这个语句，事件过程即可停止，但是代码依然运行
worksheetfunction
application.worksheetfunction.countif(range（A1：A10）,">1000")
可以直接调用excel里面的函数