VBA當單元格等於另一個工作表中的單元格時發送電子郵件

Question

我試圖在一個單元格等於另一個工作表中的另一個單元格時觸發電子郵件。 我進行了一些研究，發現Worksheets（“ Sheet2”）。Range（“ C1”）似乎是執行此操作的最佳方法，但它不起作用。 如果僅使用Range（“ C1”）將其保留在當前工作表中，則電子郵件發送不會有問題。 但是，一旦我嘗試讓另一張紙參與其中，那不是嗎？

Dim xRg As Range
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Target.Cells.Count > 1 Then Exit Sub
    Set xRg = Intersect(Target, Range("D1:D10"))
    If xRg Is Nothing Then Exit Sub
    If (Range("D1") = Worksheets("Sheet2").Range("C1")) Then
        Call Mail_small_Text_Outlook
    End If
End Sub

Answer 1

Worksheet_Change事件鏈接到1個工作表。 如果將以下代碼放在工作表代碼標簽中，則該代碼僅適用於該特定工作表

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$C$1" Then
MsgBox ("Change happend!")
End If

End Sub  

因此，我想如果您希望所有工作表都發生這種情況，則可以調用一個模塊或將其復制到所有工作表中。