Question

我有3列A,B,C，其中C是ID，其余2有值。如果我更改了A或B列中的某些值，我需要弹出一个消息框，其中显示已更改的行的ID（EX：如果我更改了第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

Excell中弹出框的宏vb脚本

1 个答案: