vba中简单实用的语句（Simple and practical sentences in VBA）.docVIP

vba中简单实用的语句（Simple and practical sentences in VBA） 常用语句 （1）。工作簿 1。错误恢复的忽略错误继续执行VBA代码，避免出现错误消息 2，GoTo ErrorHandler当错误发生时跳转到过程中的某个位置误差 3。应用。displayalerts =假”在程序执行过程中使出现的警告框不显示 4。应用。screenupdating =假”关闭屏幕刷新 screenupdating =真正的打开屏幕刷新应用。 5.activeworkbook.name”返回活动工作薄的名称 6。activeworkbook WindowState = xlmaximized”将当前工作簿最大化。 7。表（Sheet1）。名称=“和”“将Sheet1命名为总和 8。工作表（数组（“Sheet1”、“Sheet2”））。选择“同时选择工作表1和工作表2 9.activesheet.usedrange.formatconditions.delete”删除当前工作表中所有的条件格式 10，在当前工作表的pagesetup。定位= xllandscape或活动表。pagesetup。定位= 2将页面设置更改为横向 11.cells.select”选定当前工作表的所有单元格 12。范围（“A1”）。一个clearContents”清除活动工作表上单元格A1中的内容 selection.clearcontents”清除选定区域内容 范围（“A1：D4）。清晰的彻底清除A1至D4单元格区域的内容，包括格式 13活动单元格的偏移（1,0）。选择“活动单元格下移一行，同理，可下移一列 范围（“A1”）。偏移（columnoffset：= 1）或范围（“A1”）。偏移（，1）”偏移一列 范围（“A1”）。偏移（rowoffset：= 1）或范围（“A1”）。偏移（1）的向上偏移一行 14活动窗口选择的价值= XX XX输入到所选单元格区域中将值 15.activewindow.rangeselection.count”活动窗口中选择的单元格数 16。范围（“A1”）。interior.colorindex或细胞（1,1）。interior.colorindex”获取单元格A1背景色 17.names.add名称：=“MyArray”，指的是：= arraynum”将数组arraynum命名为MyArray 18.names.add名称：=“producenum”，是指：=“= $ 1美元”，可见：=假”将名称隐藏 19。细胞（8,8）。formulaarray =“=总和（R2c [ 1 ] [ 1 ]：R C [ 1 ] * [ 1 ] R2c：R C）”在单元格中输入数组公式注意必须使用R1C1样式的表达式。 （2）。图表 1.activesheet.chartobjects.count”获取当前工作表中图表的个数 2。将。ChartObjects（“Chart1”）。选择“选中当前工作表中图表Chart1 3。表（“表2”）。chartarea。内饰颜色= 2更改图表工作表中图表区的颜色 4.charts.add”添加新的图表工作表 5.activechart.plotarea.interior。 “将绘图区颜色变为白色xlnone ColorIndex = （3）。窗体 “你好1.msgbox！“消息框中显示消息你好 2。ANS = MsgBox（“继续吗？”，vbyesno）的在消息框中点击”是”按钮，则ANS值为vbyes；点击”否”按钮，则ANS值为vbno。 如果MsgBox（“继续吗？”，vbyesno） vbyes然后退出的返回值不为”是”，则退出 3.msgbox”这是第一行。”vbnewline与“二线”的在消息框中强制换行，可用vbcrlf代替vbnewline。 4.userform1.show”显示用户窗体 将隐藏的隐藏用户窗体 将我的卸载用户窗体或卸载卸载 5。应用。EnableEvents =假”禁用所有事件 应用。EnableEvents =真正的启用所有事件 6.application.ontime现在+时间价值（“00:00:15”），“myprocedure”等待15秒后运行myprocedure过程 7.application.ontime DateSerial（2006,6,6）+时间价值（“16:16:16”）、“BaoPo”在2006年6月6日的16:16:16开始运行宝珀过程 8.application.calculation = xlcalculationmanual”设置工作簿手动计算 应用计算xlcalculationautomatic”工作簿自动计算=。