基于RTD更新触发邮件宏：B1单元格自动执行问题求助

问题概述 #

• 需求：B1单元格数据来自RTD(OPC)服务器，要求其值变化时自动触发mail宏，无需手动干预
• 现状：使用Worksheet_Change事件宏时，手动修改B1可正常触发，但RTD自动更新B1时无响应
• 当前使用的VBA代码：

Public Sub Worksheet_Change(ByVal Target As Range)
Dim sampleID As String
If Range("B1") <> sampleID Then
sampleID = Range("B1")
Call mail
End If
End Sub

问题原因 #

Worksheet_Change事件仅响应用户手动编辑或VBA代码主动修改单元格的操作，RTD/OPC服务器的自动更新属于Excel内部的计算刷新行为，不会触发该事件。

解决方案 #

改用Worksheet_Calculate事件——RTD更新会触发工作表计算，通过监控B1的新旧值差异来触发目标宏。

修改后的代码实现 #

1. 在工作表模块的最顶部（所有过程之外）声明模块级变量，用于存储B1的上一次值：

Private prevB1Value As String

2. 编写Worksheet_Calculate事件过程：

Private Sub Worksheet_Calculate()
    Dim currentB1Value As String
    currentB1Value = Range("B1").Value
    
    ' 仅当B1值发生变化时触发mail宏
    If currentB1Value <> prevB1Value Then
        prevB1Value = currentB1Value ' 更新存储的旧值
        Call mail ' 执行mail宏
    End If
End Sub

注意事项 #

• 模块级变量prevB1Value必须放在工作表模块的全局位置，不能放在事件过程内部，否则每次计算都会重置为空值，导致重复触发
• 若B1可能出现空值，可根据实际需求调整判断逻辑，避免空值变化导致的误触发
• 工作表内其他单元格的计算也会触发Worksheet_Calculate，但通过值对比可确保仅在B1变化时执行mail宏

内容的提问来源于stack exchange，提问作者曾博新