云题海 - 专业文章范例文档资料分享平台

当前位置:首页 > application对象

application对象

  • 62 次阅读
  • 3 次下载
  • 2025/7/10 4:51:12

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

搜索更多关于: application对象 的文档
  • 收藏
  • 违规举报
  • 版权认领
下载文档10.00 元 加入VIP免费下载
推荐下载
本文作者:...

共分享92篇相关文档

文档简介:

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状态和显示

× 游客快捷下载通道(下载后可以自由复制和排版)
单篇付费下载
限时特价:10 元/份 原价:20元
VIP包月下载
特价:29 元/月 原价:99元
低至 0.3 元/份 每月下载150
全站内容免费自由复制
VIP包月下载
特价:29 元/月 原价:99元
低至 0.3 元/份 每月下载150
全站内容免费自由复制
注:下载文档有可能“只有目录或者内容不全”等情况,请下载之前注意辨别,如果您已付费且无法下载或内容有问题,请联系我们协助你处理。
微信:fanwen365 QQ:370150219
Copyright © 云题海 All Rights Reserved. 苏ICP备16052595号-3 网站地图 客服QQ:370150219 邮箱:370150219@qq.com