Excel 根据特定范围内的活动单元格显示行数和列数

我有一些VBA代码，用于显示各个命名范围内活动单元格的行数和列数：State\u row和State\u column

Public子工作表\u selection更改（ByVal目标作为范围）
Sheet1.Range（“State_Row”）.Value=ActiveCell.Row
Sheet1.Range（“State_Column”）.Value=ActiveCell.Column
端接头

这很好，但是，我希望它只适用于D10:E65范围，因此，如果用户在该范围之外单击，行号和列号不会更新。

使用以下方法：

使用以下方法：

Public Sub Worksheet_SelectionChange(ByVal Target As Range)

if intersect(target,range("D10:E65")) is nothing then exit sub

Sheet1.Range("State_Row").Value = target.Row 'use target

Sheet1.Range("State_Column").Value = target.Column

End Sub