Excel VBA习题

《Excel VBA习题》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、例题和习题Application对象的属性和方法6.3把当前工作簿中的所有工作表的名称写在sheet1从A1开始的单元格中6.4使用Application显示标准应用程序的名称6.5重计算sheet1工作表上已使用区域中A、B、C列的公式。启动并激活Word。6.6打开“打开”对话框6.7设置从现在开始15秒后运行my_procedure1；下午5点运行my_procedure2；撤销OnTime设置6.10退出excel6.11调用“人口预测”宏控制Windows6.12将活动窗口扩展为可用的最大值(非最大化)控制Excel状态和显示6.13禁止事件触发，如禁止workbook

2、_BeforeSave、workbook_Change、worksheet_Change触发。关闭屏幕更新。6.14为“Ctrl+加号”分配“InserProc”过程为“Shift+Ctrl+向右键”分配“SpecialPrintProc”过程为“Shift+Ctrl+向右键”重新设为正常含义为“Shift+Ctrl+向右键”设为不发生任何操作为Excel2007应用程序指定快捷键为功键F3Application对象的事件工作表行为SheetActivate事件：Excel传递一个Object变量给该事件处理过程，Object变量包含一个对激活工作表的引用。Object变量必须强

3、制转换为正确类型的变量(Worksheet、Chart等)，才可使用。SheetBeforeDoubleClick事件SheetBeforeRightClick事件：不会发生于图表工作表SheetCalculate事件：重新计算任意工作表时发生SheetChange事件：任意工作表中的单元格发生更改时发生SheetDeactivate事件：工作表失去焦点时发生SheetFollowHyperlink事件：单击表中任意超链接时发生SheetSelectionChange事件：工作表中所选内容发生更改时发生，不会发生于图表工作表窗口行为(Application独特的事件，需在类模块中

4、通过定义响应事件的对象，通过此对象编写事件的响应过程)WindowActivate事件：激活任意窗口时发生WindowDeactivate事件WindowResize事件：调整窗口大小时发生6.15工作簿窗口被激活时将窗口最大化6.16工作簿窗口失去焦点时将窗口最小化6.17工作簿窗口调整大小时，设置应用程序状态栏标题为工作簿名称+“重新设置窗口”+现在的时间工作簿管理NewWorkbook事件：创建新工作簿时发生WorkbookActivate事件WorkbookBeforeClose事件WorkbookBeforePrint事件WorkbookBeforeSave事件Work

5、bookDeactivate事件WorkbookNewSheet事件：将新的工作表添加到工作簿时发生WorkbookOpen事件6.18创建新工作簿时，对打开的窗口进行排列6.19关闭工作簿前询问用户是否关闭6.20打印工作簿前对所有工作表进行重新计算6.21保存工作簿前询问用户是否保存6.22将新建的工作表移动到工作簿末尾6.23打开一个工作簿时，对所有打开的窗口进行排列常用的文件操作FileDialog对象的方法，用于打开文件、获取文件名、在一个文件夹中浏览文件名等6.24使用Show方法在Excel中打开文件对话框，允许用户选择一个或多个文件。选中后，Excel逐条显示每个

6、文件的路径，并保存于工作中。6.25打开标准圣诞框，选定指定类型的文件6.26GetSaveAsFilename方法的使用6.27获取不含路径的纯文件名Sub例6_3()DimiAsIntegerFori=1ToWorksheets.CountSheet1.Range("A"&i)=Worksheets(i).NameNextiMsgbox“本过程设置了快捷键F3”EndSubSub例6_4()Debug.PrintApplication.Application‘Application属性返回对象的名称，即Excel应用程序的名称MsgBox("这是"&Application.A

7、pplication&"对象")EndSubsheet1.UsedRange.Columns("A:C").calculateSub例6_5Application.ActivateMicrosoftAppxlMicrosoftWordEndsubSub例6_6()Application.FindFileEndSubSub例6_7()Application.OnTimeearliesttime:=Now+TimeValue("00:00:15"),procedure:="my_pr