MACRO技术问题：strbody行调试异常，无法激活FormulaCell实现超限值邮件通知

听起来你卡在了如何让超限检测单元格（FormulaCell）触发行信息添加到邮件正文strbody的环节——我来帮你一步步理清逻辑和代码实现：

核心思路 #

你需要先遍历目标列的每个FormulaCell，判断它是否触发超限条件，一旦满足，就把该行的关键信息（比如行号、对应列的内容）拼接进strbody变量里，最后把这个变量作为邮件正文发送。

具体代码实现示例 #

假设你的数据在名为「数据清单」的工作表中，D列是用来判断超限的FormulaCell（比如单元格值大于100就算超限），A列是记录名称，B列是相关数值，以下是完整的可参考代码：

Sub SendThresholdAlert()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim strBody As String
    Dim threshold As Double
    Dim formulaCell As Range
    
    ' 初始化参数
    Set ws = ThisWorkbook.Worksheets("数据清单") ' 替换成你的工作表名
    threshold = 100 ' 替换成你的超限阈值
    lastRow = ws.Cells(ws.Rows.Count, "D").End(xlUp).Row ' 获取D列最后一行数据
    
    ' 初始化邮件正文开头
    strBody = "您好，以下是本次检测到的超限记录：" & vbCrLf & vbCrLf
    
    ' 遍历每一行（跳过表头，从第2行开始）
    For i = 2 To lastRow
        ' 定位当前行的FormulaCell（这里是D列）
        Set formulaCell = ws.Cells(i, "D")
        
        ' 执行超限判断（根据你的实际逻辑调整，比如是数值比较/公式结果判断）
        ' 示例1：如果是数值超限（比如大于阈值）
        If formulaCell.Value > threshold Then
            ' 把该行信息拼接进strbody
            strBody = strBody & "● 记录名称：" & ws.Cells(i, "A").Value & _
                      " | 当前值：" & formulaCell.Value & _
                      " | 阈值：" & threshold & vbCrLf
        End If
        
        ' 示例2：如果FormulaCell是用公式返回"超限"文本（比如=IF(C2>100,"超限","正常")）
        ' If formulaCell.Value = "超限" Then
        '     strBody = strBody & "● 行" & i & "：" & ws.Cells(i, "A").Value & " 触发超限" & vbCrLf
        ' End If
    Next i
    
    ' 发送邮件（以Outlook为例）
    Dim olApp As Object
    Dim olMail As Object
    Set olApp = CreateObject("Outlook.Application")
    Set olMail = olApp.CreateItem(0)
    
    With olMail
        .To = "收件人邮箱@xxx.com" ' 替换成实际收件人
        .Subject = "【超限预警】" & Format(Now(), "yyyy-mm-dd")
        .Body = strBody
        .Display ' 用.Display预览，确认没问题后改成.Send直接发送
    End With
    
    ' 释放对象
    Set olMail = Nothing
    Set olApp = Nothing
    Set ws = Nothing
End Sub

调试时的关键检查点 #

1. FormulaCell的定位是否正确：确认你指定的列（比如示例中的D列）确实是用来判断超限的单元格，循环范围是否覆盖了所有数据行（不要漏掉表头或最后几行）。
2. 超限判断逻辑是否匹配实际场景：如果你的FormulaCell是用公式返回文本（比如"超限"），就不要用数值比较，要改成文本相等判断。
3. 调试时查看中间结果：可以在循环里加Debug.Print strBody，然后打开VBA编辑器的「立即窗口」（Ctrl+G），查看每一步拼接后的正文内容，确认超限行是否被正确添加。

内容的提问来源于stack exchange，提问作者Ryan Liggett