excel-vba常用宏应用技巧

excel-vba常用宏应用技巧

ID:19806572

大小:129.50 KB

页数:69页

时间:2018-10-06

excel-vba常用宏应用技巧_第1页
excel-vba常用宏应用技巧_第2页
excel-vba常用宏应用技巧_第3页
excel-vba常用宏应用技巧_第4页
excel-vba常用宏应用技巧_第5页
资源描述:

《excel-vba常用宏应用技巧》由会员上传分享,免费在线阅读,更多相关内容在工程资料-天天文库

1、Excel-VBA常用宏应用技巧Excel-常用宏技巧本示例为设置密码窗口(1)IfApplication.InputBox("请输入密码:")=1234Then[A1]=1'密码正确时执行Else:MsgBox"密码错误,即将退出!"'此行与第2行共同设置密码EndIf本示例为设置密码窗口(1)X=MsgBox("是否真的要结帐?",vbYesNo)IfX=vbYesThenClose本示例为设置工作表密码ActiveSheet.ProtectPassword:=641112'保护工作表并设置密码ActiveSheet.U

2、nprotectPassword:=641112'撤消工作表保护并取消密码'本示例关闭除正在运行本示例的工作簿以外的其他所有工作簿,并保存其更改内容。ForEachwInWorkbooksIfw.Name<>ThisWorkbook.NameThenw.CloseSaveChanges:=TrueEndIfNextw'每次打开工作簿时,本示例都最大化MicrosoftExcel窗口。Application.WindowState=xlMaximizedbeconsistentwithinthesamedisk.Alterna

3、teunifiedcorerequirementsplacedontheterminalstripterminals,onlineidentityandensurethecoppercoreisnotexposed.6.4.6enclosurewithinthesametothecablecoreprovidesbindingintoacircle,harnesstiespacingisgenerally100mm;branchofficesshallbebindingonbothends,eachcore'本示例显示活动工

4、作表的名称。MsgBox"Thenameoftheactivesheetis"&ActiveSheet.Name'本示例保存当前活动工作簿的副本。ActiveWorkbook.SaveCopyAs"C:TEMPXXXX.XLS"'下述过程激活工作簿中的第四张工作表。Sheets(4).Activate'下述过程激活工作簿中的第1张工作表。Worksheets(1).Activate'本示例通过将Saved属性设为True来关闭包含本段代码的工作簿,并放弃对该工作簿的任何更改。ThisWorkbook.Saved=True

5、ThisWorkbook.Close'本示例对自动重新计算功能进行设置,使MicrosoftExcel不对第一张工作表自动进行重新计算。Worksheets(1).EnableCalculation=False'下述过程打开C盘上名为MyFolder的文件夹中的MyBook.xls工作簿。Workbooks.Open("C:MyFolderMyBook.xls")'本示例显示活动工作簿中工作表sheet1上单元格A1中的值。MsgBoxWorksheets("Sheet1").Range("A1").Value本示例显示

6、活动工作簿中每个工作表的名称ForEachwsInWorksheetsbeconsistentwithinthesamedisk.Alternateunifiedcorerequirementsplacedontheterminalstripterminals,onlineidentityandensurethecoppercoreisnotexposed.6.4.6enclosurewithinthesametothecablecoreprovidesbindingintoacircle,harnesstiespacing

7、isgenerally100mm;branchofficesshallbebindingonbothends,eachcoreMsgBoxws.NameNextws本示例向活动工作簿添加新工作表,并设置该工作表的名称?SetNewSheet=Worksheets.AddNewSheet.Name="currentBudget"本示例将新建的工作表移到工作簿的末尾'PrivateSubWorkbook_NewSheet(ByValShAsObject)Sh.MoveAfter:=Sheets(Sheets.Count)EndS

8、ub本示例将新建工作表移到工作簿的末尾'PrivateSubApp_WorkbookNewSheet(ByValWbAsWorkbook,_ByValShAsObject)Sh.MoveAfter:=Wb.Sheets(Wb.Sheets.Count)EndSub本示例新建一张工作表,然后

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。