Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 3456|回复: 4

[分享] 【烟花原创】VBA零基础之第84篇 Application对象(二)

[复制链接]
发表于 2014-1-21 23:09 | 显示全部楼层 |阅读模式
CutCopyMode 属性
 返回或设置剪切或复制模式的状态。
 可为 TrueFalse 或如下表所示的一个 XLCutCopyMode 常量。
 返回值
  False 不处于剪切或复制模式。
  xlCopy 处于复制模式。
  xlCut 处于剪切模式。
 设置值
  不论是FALSE还是TRUE,设置值均会取消剪切或复制模式并清除移动边框。
 在单元格或区域执行复制或剪切操作后,周围会有虚线边框。                             
 一般在用代码进行复制或剪切后通过设置该属性来做去除该虚线框。
   84-1.jpg

DisplayAlerts 属性
 代表宏运行时决定Excel是否显示特定的警告和消息。
 在代码自动化操作的时候,如果不希望在代码运行的中间跳出一个确认对话框来点击,可以设置该属性为False
 说明:
  默认值为 True,将此属性设置为 False 可在宏运行时禁止显示提示和警告消息;
  当出现需要用户应答的消息时,Microsoft Excel 将选择默认应答。
  如果将该属性设置为 False,则在代码运行结束后,Microsoft Excel 会将该属性设置为 True,除非运行的是跨进程代码。
 例外情况:
  如果使用工作簿的 SaveAs 方法覆盖现有文件,则“确认另存为”对话框具有的默认响应为“否”;
  如果将 DisplayAlerts 属性设置为 False,则 Excel 选择的响应为“是”,则将覆盖现有文件。
   84-2.jpg
 在前面的很多代码示例中,均有用到这个属性,象对汇总后的单元格区域排序时就会有个提示对话框。

ScreenUpdating 属性
 表示是否启用屏幕更新。
 说明:
  代码提速技巧之一。
  关闭屏幕更新可加快宏的执行速度。
  这样将看不到宏的执行过程,但宏的执行速度加快了。
  当宏结束运行后,请记住将 ScreenUpdating 属性设置回 True
  在当代码中需要大量操作单元格、工作表和工作簿时,建议关闭屏幕

AskToUpdateLinks 属性
 True表示Excel打开带有链接的文件时询问用户是否更新链接。
 False表示Excel自动更新链接并且不显示对话框。

Calculation 属性
 返回或设置一个 XlCalculation 值,它代表计算模式。
  xlCalculationAutomatic 自动重算。
  xlCalculationManual 手动重算
  xlCalculationSemiautomatic 除模拟运算表外,自动重算。
  保存工作簿前重新计算选项对应于CalculateBeforeSave 属性。
 当工作簿中大量使用易失性函数时建议手动重算,避免大量公式重新计算导致运行缓慢。
   84-4.jpg

EnableEvents 属性
 如果对指定对象启用事件,则该属性值为 True
 在写事件代码时需要考虑到事件触发的问题。
 比如在写Change事件时,如果在事件代码里再次修改相关单元格的值或公式时,导致再次触发事件。
 如此则会循环产生事件,所以在事件代码里要需要考虑到这一点。
 当相关代码运行完之前,切记要再次用代码启用事件。
 如果碰到事件代码不运行的情况时:
  第一可以在立即窗口中直接检测或启用该属性;
  第二观察是否进入了设计模式。
   84-5.jpg

StatusBar 属性
 返回或设置状态栏中的文字。
 说明:
  如果 Microsoft Excel 控制状态栏,则本属性返回 False
  若要恢复默认的状态栏文字,可将本属性设为 False,这在状态栏处于隐藏状态时也起作用。

  当代码中大量操作工作簿,工作表时(遍历文件夹,工作簿,工作表,代码运行时间较长),
  可在状态时显示相关信息告知当前代码处理的进度或对象,在代码结束前记得恢复状态栏。
  application.StatusBar ="当前正在处理的工作簿:"& thisworkbook.FullName
  application.StatusBar=False
发表于 2014-4-17 20:15 | 显示全部楼层
回复

使用道具 举报

发表于 2014-6-11 16:45 | 显示全部楼层
回复

使用道具 举报

发表于 2014-6-18 12:41 | 显示全部楼层
回复

使用道具 举报

发表于 2014-6-30 07:47 | 显示全部楼层
继续学习中
谢谢分享,标记,八十四
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-5-2 14:35 , Processed in 0.778096 second(s), 9 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表