Vba VLookup，來自VBA上有關單元格更改的另一個工作表

Question

我在D列上進行了一些數據驗證，並且選擇了選項1時，它應該運行一個在同一文件中vlookup另一個工作表並在G列（同一行）中輸入數據的makro。

這是我到目前為止的內容：

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Address(True, True) = Sheets("SERVICES BREAKDOWN").Range("$D$15") Then
        Select Case Target
            Case "ORIGIN CHARGE"
              Sheets("SERVICES BREAKDOWN").Range("$G$15").Value = Application.WorksheetFunction.VLookup(Sheets("SERVICES BREAKDOWN").Range("$D$15"), Sheets("INITIAL").Range("D15:K22"), 4, False)
                      Case Else
                'Do nothing
        End Select
    End If

這段代碼不會返回錯誤，仍然沒有任何作用，任何人都可以猜測如何解決？

Answer 1

Target.Address(True, True) = Sheets("SERVICES BREAKDOWN").Range("$D$15")

將嘗試將D15中的值與目標地址進行比較，除非D15中有其自己的地址，否則將永遠不會如此。

Range().Address返回一個字符串，因此使用：

If Target.Address(1,1) = "$D$15" then

或如流行：

If Not Intesect(Target,Range("$D$15")) Is Nothing Then