在Cell Change VBA上返回表行号

时间:2014-09-11 18:39:27

标签: vba excel-2010

VBA新手。我试图识别表中发生了单元格更改的行。如果我更改表格最后一列中的一个单元格,我想将该行传递给宏。

我在另一个答案中找到了更改代码的基础,并添加了我的表格范围:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("Table4[Ready]")) Is Nothing Then Exit Sub
    Application.EnableEvents = False 'to prevent endless loop

    MsgBox Target.address

    Application.EnableEvents = True

End Sub

如何找到target.address是表4的第5行?

由于

1 个答案:

答案 0 :(得分:0)

这似乎有效:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("Table4[Ready]")) Is Nothing Then Exit Sub
    MsgBox Target.Row - Range("Table4[Ready]").Row + 1
End Sub