Excel高级运用技巧

《Excel高级运用技巧》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、Excel宏當级运用技巧1、设置密码窗口22、本示例为设置提示窗口23、本示例为设置工作表保护密码24、本示例关闭除正在运行本示例的工作簿以外的其他所有工作簿，并保存其更改内容25、每次打开工作簿时，本示例都最大化MicrosoftExcel窗口26、本示例显示活动工作表的名称37、本示例保存当前活动工作簿的副本38、下述过程激活工作簿中的第四张工作表39、下述过程激活工作簿中的第1张工作表310、本示例通过将Saved属性设为True来关闭包含本段代码的工作簿，并放弃对该工作簿的任何更改311、本示例对自动重新计算功能进行

2、设置，使MicrosoftExcel不对第一张工作表自动进行重新计算...312、下述过程打开C盘上名为MyFolder的文件夹中的MyBook.xls工作簿313、本示例显示活动工作簿中工作表sheetl上单元格A1中的值414、本示例显示活动工作簿中每个工作表的名称415、本示例向活动工作簿添加新工作表，并设置该工作表的名称416、本示例将新建的工作表移到工作簿的末尾417、本示例将新建工作表移到工作簿的末尾418、本示例新建一张工作表，然后在第一列中列出活动工作簿中的所有工作表的名称419、本示例将第十行移到窗口的最上

3、面？520、当计算工作簿中的任何工作表时，本示例对第一张工作表的Al:A100区域进行排序521、本示例显示工作表Sheetl的打印预览522、本示例保存当前活动工作簿？523、本示例保存所有打开的工作簿，然后关闭MicrosoftExcel524、下例在活动工作簿的第一张工作表前面添加两张新的工作表525、本示例设置15秒后运行my-Procedure过程，从现在开始计时626、本示例设置my-Procedure在下午5点开始运行627、本示例撤消前一个示例对OnTime的设置628、每当工作表重新计算时，本示例就调整A列

4、到F列的宽度629、本示例使活动工作簿中的计算仅使用显示的数字精度630、本示例将工作表Sheetl上的A1:G37区域剪下，并放入剪贴板631、Calculate方法632、本示例更新当前活动工作簿中的所有链接733、本示例设置第一张工作表的滚动区域71、设置密码窗口IfApplication.InputBox（'*请输入密码：n）=1234Then[Al]=1，密码正确时执行Else:MsgBox"密码错误，即将退出！此行与第2行共同设置密码EndIf本示例为设f提示窗口X=MsgBox（"是否真的要结帐？vbYesN

5、o）IfX=vbYesThenClose3、本示例为设置工作表保护密码ActiveSheet.ProtectPassword:=641112'保护工作表并设置密码ActiveSheet.UnprotectPassword:=641112/撤消工作表保护并取消密码4、本示例关闭除正在运行本示例的工作簿以外的其他所有工作簿，并保存其更改内容ForEachwInWorkbooksIfw.Name<>ThisWorkbook.NameThenw.CloseSaveChanges:=TrueEndIfNextw5>每次打开工作簿时，本

6、示例都最大化MicrosoftExcel窗口Application.WindowState=xlMaximized6、本示例显示活动工作表的名称MsgBox"Thenameoftheactivesheetis"&ActiveShect.Name7、本示例保存当前活动工作簿的副本ActiveWorkbook.SaveCopyAs"C:TEMPXXXX.XLSn8、下述过程激活工作簿中的第四张工作表Sheets(4)・Activate9、下述过程激活工作簿中的第1张工作表Worksheets(1).Activate10、本示

7、例通过将Saved属性设为True来关闭包含本段代码的工作簿，并放弃对该工作簿的任何更改ThisWorkbook.Saved=True11、ThisWorkbook.Close本示例对自动重新计算功能进行设置，使MicrosoftExcel不对第一张工作表自动进行重新计算Worksheets(1).EnableCalculation=False12、下述过程打开C盘上名为MyFolder的文件夹中的MyBook.xls工作簿Workbooks.Open("C:MyFolderMyBook.xlsH)13、本示例显示活动工

8、作簿中工作表sheetl上单元格A1中的值MsgBoxWorksheets("Sheetl").Range(nAln).Value14.本示例显示活动工作簿中每个工作表的名称ForEachwsInWorksheetsMsgBoxws.Name15.Nextws本示例向活动工作簿添加新工作表