Application.EnableEvents =false(true)的理解

最新推荐文章于 2024-03-13 16:29:28 发布
原创 最新推荐文章于 2024-03-13 16:29:28 发布 · 1.3w 阅读 · 3 ·
CC 4.0 BY-SA版权
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
文章标签：

#integer #c

本文介绍了一种使用VBA在Excel中处理单元格变化的方法。通过禁用和启用事件，可以避免因单元格更新而引发的连锁反应问题，确保计算过程的准确性。
部署运行你感兴趣的模型镜像
Private Sub Worksheet_Change(ByVal Target As Range)

Dim iRow As Integer

iRow = Target.Row

Application.EnableEvents = False

Cells(iRow, 3) = Cells(iRow, 3) + Cells(iRow, 2)

Application.EnableEvents = True

End Sub

这个程序的目的是要在 B2 输入新的数时，C2 会将 B2 输入的新数加上 C2 原有的数呈现在 C2 上。

照上面有加上 Application.EnableEvents = False 程序执行当然没问题。

现在你在 Application.EnableEvents = False 与 Application.EnableEvents = True 前加上「 '」看看（下面代码）。

程序前加上「 '」的目的是要使「 '」之后的文字变成说明文字，程序执行时是会跳过说明文字，不执行说明文字的内容。

程序前加上「 '」符号后，文字会变成绿色。

执行第二个程序时，你将发现 C2 不会按你所要求的，呈现结果。

这就是所谓的事件连锁反应。


Private Sub Worksheet_Change(ByVal Target As Range)

Dim iRow As Integer

iRow = Target.Row

'Application.EnableEvents = False

Cells(iRow, 3) = Cells(iRow, 3) + Cells(iRow, 2)

'Application.EnableEvents = True

End Sub

再如：

本示例在保存文件之前禁用事件，以使 BeforeSave 事件不能触发。


Application.EnableEvents = False
ActiveWorkbook.Save
Application.EnableEvents = True

 

您可能感兴趣的与本文相关的镜像

AutoGPT

AutoGPT

AI应用

AutoGPT于2023年3月30日由游戏公司Significant Gravitas Ltd.的创始人Toran Bruce Richards发布,AutoGPT是一个AI agent（智能体），也是开源的应用程序，结合了GPT-4和GPT-3.5技术，给定自然语言的目标，它将尝试通过将其分解成子任务，并在自动循环中使用互联网和其他工具来实现这一目标

Excel中VBA编程学习笔记（六）--Application对象
数据之道
11-25 8079
1、基本属性设置 Sub main()    Application.ScreenUpdating = False '禁止屏幕更新    Application.ScreenUpdating = True '允许屏幕更新    Application.DisplayAlerts = False '禁止出现提示对话框    Application.DisplayAlerts = True ...
宏中常用到的属性和方法
diutihui6853的博客
08-13 950
1、Option Explicit '强制对模块内所有变量进行声明 Option Private Module '标记模块为私有,仅对同一工程中其它模块有用,在宏对话框中不显示 Option Compare Text '字符串不区分大小写 Option Base 1 '指定数组的第一个下标为 1 2、On Error Resume Next '忽略错误继续执行 VBA代码,避免出...
EnableEventValidation="false"
dyh12345678的博客
11-08 1208
出现这种原因在页面开头添加上 EnableEventValidation="false"
VBA，Application对象的常用属性和方法
奔跑的犀牛先生
02-01 1万+
1 Application 对象的常见属性 1.0对象管理器里可以查看application的所有属性，方法 Dim i As cell 错误，没有这种类型定义 只能 dim i as range dim sh as sheet dim wb as workbook 1.1 Application的常见属性 Application.screenupdating = ...
excel操作性能优化（一）
nbspzs的专栏
03-13 2097
Excel 为工作簿和打开的工作簿使用的控件创建这些文件。识别循环引用及其依赖项后，每次迭代都要求 Excel 不仅计算循环引用中的所有单元格，还要计算依赖于循环引用链中的单元格的任何单元格，以及易失性单元格及其依赖项。如果您有依赖于循环引用中的单元格的复杂计算，则将其隔离到单独的封闭工作簿中并在循环计算收敛后打开它进行重新计算可能会更快。请记住，数组公式有点像易失性公式：如果它引用的任何一个单元格已更改、易失性或已重新计算，则数组公式将计算公式中的所有单元格并计算它所引用的所有虚拟单元格。
vba中工作簿事件，工作表事件，EnableEvents 属性
pgymeitianjinbu的博客
02-28 3372
object是对象的意思
对enableEvents类的应用
yayax的专栏
04-02 1859
实现代码如下： MyButton.java文件代码： import java.awt.*; import java.awt.event.*; public class MyButton extends Button { private MyButton friend = null; public MyButton(String title) { // T
Application.EnableEvents = False 要改成True吗
09-19
Application.EnableEvents = False ``` 但 **没有恢复成 `True`** —— 尤其是在发生错误的情况下，程序跳过了恢复语句。 --- ### ✅ 正确答案： > **必须手动执行 `Application.EnableEvents = True` 来恢复事件...
Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Application.EnableEvents = False Application.DisplayStatusBar = False Application.EnableCancelKey = xlDisabled
10-24
### `Application.EnableEvents = False` - **作用**：停止响应事件。在Excel中，有许多事件可以触发宏的执行，如工作表的变更事件、工作簿的打开事件等。将`EnableEvents`设置为`False`后，这些事件将不会触发相应...
WPS JS宏 Application.EnableEvents = true
最新发布
11-28
引用[2]中提供了一个使用场景：在打开表格自动执行的函数`Workbook_Open`中，首先检查`Application.EnableEvents`是否为false，如果是，则将其设置为true，以确保能够监听单元格变化事件。这是因为在某些情况下，...
Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False Call LBSKQI Application.EnableEvents = True End Sub
06-11
此外，通过添加错误处理 (`On Error GoTo SafeExit`)，即使代码中发生错误，也可以确保 `Application.EnableEvents` 被重新设置为 `True`，以恢复正常的事件触发功能。 需要注意的是，`Application.EnableEvents` ...
Application.ScreenUpdating = False ' ...执行操作... Application.ScreenUpdating = True 什麼司儀
08-31
用户希望了解`Application.ScreenUpdating = False`和`Application.ScreenUpdating = True`的含义。根据引用[1]和引用[2]，我们可以得知： 1. `Application.ScreenUpdating = False`：停止屏幕刷新。这意味着在执行...
vba EnableEvents 状态设置查看
nbspzs的专栏
06-27 532
【代码】vba EnableEvents 状态设置查看。
VBA，禁止修改workbook的所有内容
奔跑的犀牛先生
01-30 2931
1 代码1：禁止修改工作簿所有内容 在workbook的 sheetchange() 里增加判断 只要内容发生变化，触发 sheetchange() 就把 target参数内容置回之前的内容 需要事先捕捉，修改前的 范围内容 Dim arr1 Private Sub Workbook_Open() MsgBox "此工作簿不允许修改" End Sub Private S...
转：经典Excel VBA代码
weixin_33790053的博客
08-06 1061
转：经典Excel VBA代码 VBA基础在大家的关注声中即将告一段落了，有许多经典的VBA操作我们只是作了简要的介绍，想要熟练地使用VBA还需要大家慢慢地去消化和吸收，然后在实践中总结和提高。最后我们收集了常见的VBA代码以飨广大的读者，希望对大家有所启示。Application（Excel程序）篇Application.EnableEven...
他山之石——VBA出入库管理
预见未来to50的专栏
07-04 4300
说实话，不知道这样的程序还有没有实际价值？也就是说，有没有人在实际的出入库业务中使用这样的Excel程序来辅助业务？Sub 入库录入() Dim arr, arr1, x As Integer, mydate As Date, hm As String, sr As String, sql As String Dim mydata As New Data查询 mydate = [e6...
EXCEL下拉框设置多选
热门推荐
sucre_smile的博客
07-23 13万+
我这里是微软office的版本，其它版本大同小异： 1、数据校验入口 2、设置数据 3、sheet页右击查看代码 4、复制下面代码进去： 5、效果如下： Option Explicit Sub Worksheet_Change(ByVal Target As Range) '让数据有效性选择 可以多选,重复选 Dim rngDV As Range Dim oldV...
VBA之动态的更改值来完成筛选
amamiyayouko的博客
03-26 1037
通过修改 l列的 车间名字,直接 来把A1:F232的数据里的1车间筛选到L1:Q232里 Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False Range(“l1:q10000”).ClearContents Range(“a1:f232”).AutoFilter field:...
VBA 常用处理
baidu_37289241的博客
09-17 782
1.禁止连续触发事件 'EXCEL中有多个单元格有change事件，只有当前单元格发生改变时触发当前单元格对应的处理 Private Sub Worksheet_Change(ByVal Target As Range) '禁止连续触发事件 Application.EnableEvents = False '======主要处理略 '允许连续触发事件 Application.EnableEvents = True End Sub 2.获取当前单元格的位置：Target.address 3.获取当前单元格
评论 1
成就一亿技术人!
拼手气红包6.0元
还能输入1000个字符
 
红包 添加红包
表情包 插入表情
表情包 代码片
 条评论被折叠 查看
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值