如何修改VBA代码实现双击工作表单元格填充UserForm指定TextBox？

需求：双击工作表B列任意单元格时，自动打开UserForm1，并把该单元格的内容填入窗体里名为TxtBoxFUZEProjectID的文本框中。

修改后的完整代码 #

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updateby20171226
    If Not Application.Intersect(Target, Range("B:B")) Is Nothing Then
        Cancel = True
        ' 将双击单元格的值赋值给窗体的文本框
        UserForm1.TxtBoxFUZEProjectID.Text = Target.Value
        UserForm1.Show
    End If
End Sub

关键修改说明 #

• 替换原代码中无效的注释语句，用Target.Value直接获取当前双击单元格的内容，赋值给目标文本框
• 赋值操作必须放在UserForm1.Show之前，确保窗体打开时文本框已经填充好内容

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