Excel中点击B7超链接生成邮件前如何自动更新E7单元格NOW()值

你现在用的Worksheet_SelectionChange事件触发时机不符合预期：这个事件是单元格选中动作完全完成后才会执行。当你点击B7的超链接时，Excel会优先读取B7里HYPERLINK函数的参数，直接取E7当前存储的时间值拼接邮件链接、调起邮件客户端，等整套超链接逻辑跑完，才会触发SelectionChange事件执行重算，自然永远是邮件生成后才更新时间。

最稳妥的方式是放弃在B7单元格里直接写HYPERLINK公式的逻辑，把触发、计算、发邮件的全流程放到VBA里控制执行顺序，从根源避免时序问题。

1. 先清空B7单元格原有HYPERLINK公式，手动输入需要显示的超链接文本（比如「点击发送邮件」），给单元格设置蓝色字体、下划线样式，模拟常规超链接外观即可。
2. 打开当前工作表的代码编辑页，删掉原有失效的SelectionChange代码，粘贴以下代码：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ' 检测是否选中触发单元格B7
    If Not Intersect(Target, Me.Range("B7")) Is Nothing Then
        ' 仅重算E7单元格，比全表计算速度更快
        Me.Range("E7").Calculate
        ' 等待重算结果写入完成，避免取到旧值
        DoEvents
        ' 拼接邮件链接，以下参数请按实际需求修改
        Dim recvMail As String, mailSubject As String, mailBody As String
        recvMail = "收件人邮箱@domain.com" ' 替换成实际收件人
        mailSubject = Application.EncodeURL("你的固定邮件主题前缀 " & Me.Range("E7").Value)
        mailBody = Application.EncodeURL("你的邮件正文内容")
        ' 调起默认邮件客户端生成邮件
        ThisWorkbook.FollowHyperlink "mailto:" & recvMail & "?subject=" & mailSubject & "&body=" & mailBody
    End If
End Sub

可选优化（防误触） #

如果担心单击选中B7就触发邮件容易误操作，可以把触发逻辑改成双击B7才生效，替换成以下代码即可：

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Me.Range("B7")) Is Nothing Then
        Cancel = True ' 拦截默认的双击进入编辑状态行为
        Me.Range("E7").Calculate
        DoEvents
        Dim recvMail As String, mailSubject As String, mailBody As String
        recvMail = "收件人邮箱@domain.com"
        mailSubject = Application.EncodeURL("你的固定邮件主题前缀 " & Me.Range("E7").Value)
        mailBody = Application.EncodeURL("你的邮件正文内容")
        ThisWorkbook.FollowHyperlink "mailto:" & recvMail & "?subject=" & mailSubject & "&body=" & mailBody
    End If
End Sub

• 不要使用全表重算Application.Calculate，直接指定E7单元格重算效率更高
• 拼接邮件参数时必须用Application.EncodeURL转义，否则中文、特殊符号会出现乱码
• DoEvents不能省略，否则VBA执行过快可能在E7重算完成前就读取到旧时间值

内容的提问来源于stack exchange，提问作者2Took