Excel VBA：获取触发UserForm加载的单元格地址并填充表单控件

问题背景 #

双击Daily Summary工作表的D27:D93区域内任意单元格时，加载CommentDetails表单，需要用触发单元格向右偏移3列的数据填充表单内名为first_name的输入框，但无法捕获触发单元格地址，使用Application.Caller时出现「Object Required」错误。

错误原因分析 #

Application.Caller仅适用于自定义函数、控件按钮等主动调用的场景，在Worksheet_BeforeDoubleClick这类工作表事件中，该属性没有有效的调用对象，直接使用会触发对象缺失错误。正确的做法是直接利用事件自带的Target参数——它就是触发双击操作的单元格对象。

解决方案 #

方案1：直接在工作表事件中给表单控件赋值（最简） #

修改Worksheet_BeforeDoubleClick事件代码，无需额外传递参数，直接通过Target获取偏移单元格的值并赋值给表单控件：

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim targetArea As Range
    Set targetArea = ThisWorkbook.Sheets("Daily Summary").Range("D27:D93")
    
    ' 校验双击单元格是否在目标区域内
    If Not Application.Intersect(Target, targetArea) Is Nothing Then
        Cancel = True ' 取消默认双击编辑行为
        With CommentDetails
            ' 向右偏移3列，将对应单元格值赋值给first_name输入框
            .first_name.Value = Target.Offset(0, 3).Value
            .Show
        End With
    End If
End Sub

方案2：通过UserForm的Tag属性传递触发单元格信息（适合复杂场景） #

如果需要在表单初始化逻辑中统一处理数据填充，可以将触发单元格的地址存在表单的Tag属性中，再在UserForm_Initialize事件中读取：

工作表事件代码：

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim targetArea As Range
    Set targetArea = ThisWorkbook.Sheets("Daily Summary").Range("D27:D93")
    
    If Not Application.Intersect(Target, targetArea) Is Nothing Then
        Cancel = True
        With CommentDetails
            .Tag = Target.Address ' 存储触发单元格的地址
            .Show
        End With
    End If
End Sub

UserForm初始化代码：

Private Sub UserForm_Initialize()
    Dim triggerCell As Range
    ' 从Tag中解析触发单元格对象
    Set triggerCell = ThisWorkbook.Sheets("Daily Summary").Range(Me.Tag)
    ' 填充偏移3列的数据到输入框
    Me.first_name.Value = triggerCell.Offset(0, 3).Value
End Sub

额外注意事项 #

• 确保表单内的输入框名称first_name与代码中的引用完全一致，大小写不敏感但拼写必须准确。
• 使用ThisWorkbook限定工作表归属，避免因当前激活工作表变化导致的错误。

内容的提问来源于stack exchange，提问作者Armitage2k