0 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim TxtRng As Range
    Set TxtRng = ActiveCell

    If Not Intersect(Target, TxtRng) Is Nothing Then

------------Statements           

    End If

End Sub

我得到一个无限循环。我只想为该范围分配一个单元格地址（例如“B6”或“A5”，根据选择）

4

1 回答 1

1

只需将其设置为目标：

Set TxtRang = Target

那你就是金子了。

干杯，LC

于 2013-06-26T11:54:15.883 回答