在用户窗体内使用私有子项的单元格地址

Question

我正在使用Private Sub Worksheet_Change来定位单元格范围内的所有更改。进行更改并满足某些要求之后，我需要一个文本框，以便用户可以或可以不修改此类更改。在此文本框中，我不知道如何引用“专用子”中使用的原始单元地址。

我尝试使用全局变量，但是它不起作用。

Global A as Range
' Code for a specific worksheet 
Private Sub Worksheet_Change(ByVal T As Range)
Dim KeyCells As Range
Set KeyCells = Range("Ag5:KL205")
     If Not Application.Intersect(KeyCells, Range(T.address)) Is Nothing Then

A = T

' Code for Conditions

Unload UserForm1
UserForm1.Show
End

End Sub

---------------------------------------------------------------------------
' Code inside UserForm1
Private Sub CommandButton1_Click()

If OptionButton1.Value = True Then

TextValue1 = TextBox1.Value
A.Value = TextValue1

我希望在该文本框内，要更改的单元格是激活“专用子”中代码的单元格。我曾尝试使用ActiveCell.Value，但事实是，如果用户按下“输入”，则该文本框的活动单元格为下面的单元格。如果用户按下“向右箭头”，则活动单元格就是它旁边的单元格。我尝试为用户可能执行的特定操作指定代码，但是我也没有运气。