欢迎来到天天文库
浏览记录
ID:19696089
大小:94.00 KB
页数:11页
时间:2018-10-05
《各种excel vba的命令4》由会员上传分享,免费在线阅读,更多相关内容在工程资料-天天文库。
1、各种ExcelVBA的命令1 本示例为设置工作表密码 ActiveSheet.ProtectPasse Nexte=currentBudget 本示例将新建的工作表移到工作簿的末尾'PrivateSubeNoeValue(00:00:15),my_Procedure 本示例设置my_Procedure在下午5点开始运行。 Application.OnTimeTimeValue(17:00:00),my_Procedure 本示例撤消前一个示例对OnTime的设置。 Application.OnTimeEarliestTim
2、e:=TimeValue(17:00:00),_ Procedure:=my_Procedure,Schedule:=False 每当工作表重新计算时,本示例就调整A列到F列的宽度。 'PrivateSubns(A:F).AutoFit EndSub 本示例使活动工作簿中的计算仅使用显示的数字精度。 ActiveWorkbook.PrecisionAsDisplayed=True 本示例将工作表Sh12345678910...下一页>>——..,。eet1上的A1:G37区域剪下,并放入剪贴板。 acrosxl
3、AutoOpen 本示例对活动工作簿运行Auto_Close宏,然后关闭该工作簿。acrosxlAutoClose.CloseEndicrosoftExcel向用户显示活动工作簿的路径和文件名称。'SubUseCanonical()Displaythefullpathtouser.MsgBoxActivesgBoxActiveicrosoftExcel将显示询问是否保存更改的对话框和相应提示。 axMinVal:=1,_ByChange:=Range(C4:E6)SolverAddCellRef:=Range(F4:F6),_Rela
4、tion:=1,_FormulaText:=100SolverAddCellRef:=Range(C4:E6),_Relation:=3,_FormulaText:=0SolverAddCellRef:=Range(C4:E6),_Relation:=4SolverSolveUserFinish:=FalseSolverSaveSaveArea:=Range(A33) 本示例隐藏Chart1、Chart3和Chart5。 Charts(Array(Chart1,Chart3,Chart5)).Visible=False 当激活工作表时,本示
5、例对A1:A10区域进行排序。'PrivateSubicrosoftExcel链接。 Activeode:=xlReadOnly 本示例使共享工作簿每三分钟自动更新一次? ActivesgBox'消息框[b7]=ActiveicrosoftExcel启动文件夹的完整路径。 MsgBoxApplication.StartupPath Activate事件 激活一个工作簿、工作表、图表或嵌入上一页12345678910...下一页>>——..,。图表时产生此事件。当激活工作表时,本示例对A1:A10区域进行排序
6、。 PrivateSubsgBoxa.FullName Nexta ChDir语句 改变当前的目录或文件夹。 ChDirpath 在Pop'在Macintosh中 本示例显示当前路径分隔符。 MsgBoxThepathseparatorcharacteris_ Application.PathSeparator Move方法 将一个指定的文件或文件夹从一个地方移动到另一个地方。 语法 object.Movedestination Move方法语法有如下几部分: 部分描述 object必需的。始终是一个Fil
7、e或Folder对象的名字。 destination必需的。文件或文件夹要移动到的目标。不允许有通配符。 CreateFolder方法 创建一个文件夹。 语法 object.CreateFolder(foldername) reateFolder方法有如下几部分: 部分描述 object必需的。始终是一个FileSystemObject的名字。 foldername必需的。字符串表达式,它标识创建的文件夹。 本示例使用MkDir语句来创建目录或文件夹。如果没有指定驱动器,新目录或文件夹将会建在当前驱动器中。 MkDirMYD
8、IR'建立新的目录或文件夹。 Name语句示例 本示例使用Name语句来更改文件的名称。示例中假设所有使用到的目录或文件夹都
此文档下载收益归作者所有