当前位置:首页 > application对象
Application对象的属性和方法
6.3把当前工作簿中的所有工作表的名称写在sheet1从A1开始的单元格中 (sheets.count属性) 6.4使用Application显示标准应用程序的名称 (applicatoin属性) 6.5重计算sheet1工作表上已使用区域中A、B、C列的公式。 (calculate方法) 启动并激活Word。
6.6打开“打开”对话框
6.7设置从现在开始15秒后运行my_procedure1;下午5点运行my_procedure2;撤销OnTime设置 6.10退出excel
6.11调用“人口预测”宏 控制Windows
6.12将活动窗口扩展为可用的最大值(非最大化) 控制Excel状态和显示
6.13禁止事件触发,如禁止workbook_BeforeSave、workbook_Change、worksheet_Change触发。 关闭屏幕更新。
6.14为“Ctrl+加号”分配“InserProc”过程
为“Shift+Ctrl+向右键”分配“SpecialPrintProc”过程 为“Shift+Ctrl+向右键”重新设为正常含义 为“Shift+Ctrl+向右键”设为不发生任何操作 为Excel2007应用程序指定快捷键为功键F3 Application对象的事件 工作表行为
SheetActivate事件:Excel传递一个Object变量给该事件处理过程,Object变量包含一个对激活工作表的引
用。Object变量必须强制转换为正确类型的变量(Worksheet、Chart等),才可使用。
SheetBeforeDoubleClick事件
SheetBeforeRightClick事件:不会发生于图表工作表 SheetCalculate事件:重新计算任意工作表时发生
SheetChange事件:任意工作表中的单元格发生更改时发生 SheetDeactivate事件:工作表失去焦点时发生
SheetFollowHyperlink事件:单击表中任意超链接时发生
SheetSelectionChange事件:工作表中所选内容发生更改时发生,不会发生于图表工作表
窗口行为(Application独特的事件,需在类模块中通过定义响应事件的对象,通过此对象编写事件的响应过程) WindowActivate事件:激活任意窗口时发生 WindowDeactivate事件
WindowResize事件:调整窗口大小时发生 6.15工作簿窗口被激活时将窗口最大化 6.16工作簿窗口失去焦点时将窗口最小化
6.17工作簿窗口调整大小时,设置应用程序状态栏标题为工作簿名称+“重新设置窗口”+现在的时间
工作簿管理
NewWorkbook事件:创建新工作簿时发生 WorkbookActivate事件 WorkbookBeforeClose事件 WorkbookBeforePrint事件 WorkbookBeforeSave事件 WorkbookDeactivate事件
WorkbookNewSheet事件:将新的工作表添加到工作簿时发生 WorkbookOpen事件
6.18创建新工作簿时,对打开的窗口进行排列 6.19关闭工作簿前询问用户是否关闭
6.20打印工作簿前对所有工作表进行重新计算 6.21保存工作簿前询问用户是否保存 6.22将新建的工作表移动到工作簿末尾
6.23打开一个工作簿时,对所有打开的窗口进行排列
常用的文件操作
FileDialog对象的方法,用于打开文件、获取文件名、在一个文件夹中浏览文件名等
6.24使用Show方法在Excel中打开文件对话框,允许用户选择一个或多个文件。选中后,Excel逐条显示每个文件的路径,并保存于工作中。
6.25打开标准圣诞框,选定指定类型的文件 6.26 GetSaveAsFilename方法的使用 6.27获取不含路径的纯文件名
Sub 例6_3() Dim i As Integer
For i = 1 ToWorksheets.Count
Sheet1.Range(\ Next i
Msgbox“本过程设置了快捷键F3” End Sub
Sub 例6_4()
Debug.PrintApplication.Application?Application属性返回对象的名称,即Excel应用程序的名称 MsgBox (\这是 \对象\End Sub
sheet1.UsedRange.Columns(\Sub 例6_5
Application.ActivateMicrosoftAppxlMicrosoftWord End sub
Sub 例6_6()
Application.FindFile End Sub
Sub 例6_7()
Application.OnTimeearliesttime:=Now + TimeValue(\Application.OnTimeTimeValue(\
Application.OnTimeearliesttime:=Now + TimeValue(\End Sub
Sub 例6_10()
msgbox \将会关闭\Application.Quit End Sub
Sub 例6_11()
Application.Run macro:=\人口预测\?与用Call语句调用的作用完全相同 End Sub
Sub 例6_12()
With ActiveWindow
.WindowState = xlNormal .Top = 1 .Left = 1
.Height = Application.UsableHeight .Width = Application.UsableWidth End With End Sub
Private Sub Workbook_BeforeSave(ByValSaveAsUI As Boolean, Cancel As Boolean) Range(\End Sub
Sub 例6_13()
Application.EnableEvents = False ActiveWorkbook.Save
Application.EnableEvents = True End sub
Sub 例6_14()
Application.OnKey \
Application.OnKey \Application.OnKey \
Application.OnKey \Application.OnKey \例6_3()\
MsgBox \过程例6_3()被分配了快捷键F3,但是不能用,不知道为什么\End Sub
Private Sub Workbook_Open() ?工作簿打开事件中,分配快捷键 Set_FKeys End Sub
Private Sub Workbook_BeforeClose(Cancle As Boolean) ?工作簿关闭事件中,重设快捷键为默认值 Restore_FKeys End Sub 6_15
Private Sub Workbook_WindowActivate(By Val Wn As Excel.Window)?此Wn为Excel.Window Wn.WindowState = xlMaximized End Sub 6_16
Private Sub Workbook_WindowDeactivate(ByValWn As Window) Wn.WindowState = xlMinimized End Sub 6_17
Private Sub Workbook_WindowResize(ByValWn As Window) Application.StatusBar = Wn.Caption& \重新设置窗口\End Sub 6_18
Private Sub App_NewWorkbook(By Val Wb As Workbook) Application.Windows.ArrangexlArrangeStyleTiled End Sub 6_19
Private Sub App_WorkbookBeforeClose(By Val Wb As Workbook,Cancel as boolean) Dim a
a = MsgBox(“Do you really want to close the workbook?”,vbYesNo) If a =vbNo Then Cancel=true End Sub 6_20
Private Sub App_WorkbookBeforePrint(By Val Wb As Workbook,Cancel as boolean) Dim ws as range
For Each ws in Wb.worksheets ws.Calculate Next End Sub 6_21
Private Sub App_WorkbookBeforeSave(By Val Wb As Workbook,By Val SaveAsUI As Boolean,Cancel as boolean) Dim a
a=MsgBox(“Do you really want to save the workbook?”,vbYesNo) If a=vbNo Then Cancel=True Next End Sub 6_22
Private Sub App_WorkbookNewSheet(By Val Wb As Workbook, ByValsh As Object) sh.Move after:=Wb.Sheets(Wb.Sheets.Count) End Sub 6_23
Private Sub App_WorkbookOpen(By Val Wb As Workbook) Application.Windows.ArrangexlArrangeStyleTiled End Sub
共分享92篇相关文档