如何將單個單元格分配給范圍？

Question

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”，根據選擇）

Answer 1

只需將其設置為目標：

Set TxtRang = Target

那你就是金子了。

干杯，LC