excel中如何通过VBA获取指定范围内鼠标所点击的单元格所在的行数？

Question

比如表单1中的b1到h1中我点击任意一个单元格，自动在a1单元格显示我所点击的单元格所在的行数 如何通过VBA来实现？谢谢了！

Answer 1

在对应工作表中粘贴以下代码（不要新建模块！！！）

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If (Target.Column >= 2 Or Target.Column <= 8) And Target.Row = 1 Then   '选定B1:H1时
    Range("A1") = Target.Row    'A1显示选定的行数
    Range("A2") = Target.Column    'A2显示选定的列数
End If
End Sub