如果单元格更改，则根据单元格内容运行宏-解网

问：

如果单元格仅根据更改的单元格值进行更改，我想运行宏。例如，我希望它查看 F 列，如果 F4 和 F5 中已经有数据，但我在单元格 F6 中输入了一个值，可以是“MMD”、“OPS”或“IMD”，那么我希望它仅基于 F6 内容运行。然后，如果我稍后保持 F4、F5 和 F6 不变，但以相同的方式更改 F7，它将仅根据 F7 的内容运行。也就是说，如果更改的单元格包含“IMD”，我希望它向“IMD”发送一封唯一的电子邮件，如果更改的单元格包含“MMD”，则向“MMD”发送电子邮件，依此类推，并且无论 F 列的其余部分内容如何，只要更改的单元格出现在 F 列中，我都会这样做。

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim KeyCells As Range

    Set KeyCells = Range("F4")

If Not Application.Intersect(KeyCells, Range("F4:F20")) _
           Is Nothing Then

    If Sheet1.Range("F4").Value = "IMD" Then
        Call Mail_small_Text_Outlook_IMD
    End If
    
    If Sheet1.Range("F4").Value = "MMD" Then
        Call Mail_small_Text_Outlook_MMD
    End If
    
    If Sheet1.Range("F4").Value = "OPS" Then
        Call Mail_small_Text_Outlook_OPS
    End If
End If

End Sub

Excel VBA 单元格工作表

如果单元格更改，则根据单元格内容运行宏

Run macro based on cell contents if cell changes

评论