vba中简单实用的语句（simple and useful sentences in vba）

《vba中简单实用的语句（simple and useful sentences in vba）》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、vba中简单实用的语句（SimpleandusefulsentencesinVBA）常用语句（1）。工作簿1。错误恢复的忽略错误继续执行VBA代码，避免出现错误消息2，GoToErrorHandler当错误发生时跳转到过程中的某个位置误差3。应用。displayalerts=假”在程序执行过程中使出现的警告框不显示4。应用。screenupdating=假”关闭屏幕刷新screenupdating=真正的打开屏幕刷新应用。5.activeworkbook.name”返回活动工作薄的名称6。act

2、iveworkbookWindowState=xlmaximized”将当前工作簿最大化。7。表（Sheet1）。名称=“和”“将Sheet1命名为总和8。工作表（数组（“Sheet1”、“Sheet2”））。选择“同时选择工作表1和工作表29.activesheet.usedrange.formatconditions.delete”删除当前工作表中所有的条件格式10，在当前工作表的pagesetup。定位=xllandscape或活动表。pagesetup。定位=2将页面设置更改为横向11.

3、cells.select”选定当前工作表的所有单元格12。范围（“A1”）。一个clearContents”清除活动工作表上单元格A1中的内容selection.clearcontents”清除选定区域内容范围（“A1：D4）。清晰的彻底清除A1至D4单元格区域的内容，包括格式13活动单元格的偏移（1,0）。选择“活动单元格下移一行，同理，可下移一列范围（“A1”）。偏移（columnoffset：=1）或范围（“A1”）。偏移（，1）”偏移一列范围（“A1”）。偏移（rowoffset：=1）

4、或范围（“A1”）。偏移（1）的向上偏移一行14活动窗口选择的价值=XXXX输入到所选单元格区域中将值15.activewindow.rangeselection.count”活动窗口中选择的单元格数16。范围（“A1”）。interior.colorindex或细胞（1,1）。interior.colorindex”获取单元格A1背景色17.names.add名称：=“MyArray”，指的是：=arraynum”将数组arraynum命名为MyArray18.names.add名称：=“pr

5、oducenum”，是指：=“=$1美元”，可见：=假”将名称隐藏19细胞（8,8）。formulaarray=“=总和（R2c[1][1]：RC[1]*[1]R2c：RC）”在单元格中输入数组公式注意必须使用R1C1样式的表达式。（2）。图表1.activesheet.chartobjects.count”获取当前工作表中图表的个数2。将。ChartObjects（“Chart1”）。选择“选中当前工作表中图表Chart13。表（“表2”）。chartarea。内饰颜色=2更改图表工作表中图表

6、区的颜色4.charts.add”添加新的图表工作表5。activechart。plotarea。内饰颜色=xlnone”将绘图区颜色变为白色（3）。窗体“你好1.msgbox！“消息框中显示消息你好2。ANS=MsgBox（“继续吗？”，vbyesno）的在消息框中点击”是”按钮，则ANS值为vbyes；点击”否”按钮，则ANS值为vbno。如果MsgBox（“继续吗？”，vbyesno）<>vbyes然后退出的返回值不为”是”，则退出3.msgbox”这是第一行。”vbnewline与“二线

7、”的在消息框中强制换行，可用vbcrlf代替vbnewline。4.userform1.show”显示用户窗体将隐藏的隐藏用户窗体将我的卸载用户窗体或卸载卸载5。应用。EnableEvents=假”禁用所有事件应用。EnableEvents=真正的启用所有事件6.application.ontime现在+时间价值（“00:00:15”），“myprocedure”等待15秒后运行myprocedure过程7.application.ontimeDateSerial（2006,6,6）+时间价值（

8、“16:16:16”）、“BaoPo”在2006年6月6日的16:16:16开始运行宝珀过程8.application.calculation=xlcalculationmanual”设置工作簿手动计算应用计算xlcalculationautomatic”工作簿自动计算=。9.application.autocorrect.addreplacement”葛洲坝”、“三峡”自动将在工作表中进行输入的”葛洲坝”更正为”三峡”10。日期=#6/6/2006#时间=#6:16:16是#”将系统时间更改为