如何获得在Excel VBA更新单元格的行？

Question

我想行和更新单元格的列，列是“H”。我想下面的代码：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(Target, Range("H:H")) Is Nothing Then
    MsgBox Target.Row
End If

End Sub

当我刚单击单元格它给了我正确的行，但是当我编辑单元格，然后按回车，信息显示为下一行和编辑的单元格的未行输出。

我怎样才能得到编辑的单元格的行/列？

Answer 1

你想Worksheet_Change，不Worksheet_SelectionChange。

当您选择单元格的不同的单元格或区域Worksheet_SelectionChange被触发。

当一个或多个细胞的值从打字，粘贴或VBA改变Worksheet_Change被触发。在从式计算出的值的变化不会触发它。对于计算的变化，使用Worksheet_Calculate。

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Range("H:H")) Is Nothing Then
        MsgBox Target(1).Row
    End If

End Sub

这是非常可能的目标可能比单细胞多;因此目标（1）.Row获得所述第一小区中的目标。