Excell中彈出框的宏vb腳本

Question

我有 3 列A,B,C ，其中C是 ID，其余 2 列有值。 如果我更改A或B列中的某些值，我需要彈出一個消息框，其中顯示更改的行的 ID（例如：如果我更改第 10 行 A 列的值，則在彈出窗口中它應該顯示C列中第 10 行的 ID）。

請幫我解決這個問題。 下面是我嘗試過的腳本，但我無法填充C列值，我只能填充值已更改的下一列值（例如：如果我更改A列的值，pop 是顯示列B的值，但我需要列C的值）

請找到我正在使用的腳本

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not (Application.Intersect(Range("A1:C16"), Target) Is Nothing) Then
        MsgBox Target.Next & "" & Target.Address & " has changed.", vbInformation
    End If
End Sub

Answer 1

請嘗試下面的代碼。 它將為您提供更改單元格的地址和發生更改的行的 ID 值。

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not (Application.Intersect(Range("A1:C16"), Target) Is Nothing) Then
        MsgBox "ID:" & Cells(Target.Row, 3) & "-" & Replace(Target.Address, "$", "") & " has changed.", vbInformation
    End If
End Sub