在用户表单标签中使用活动单元格值答案

【问题标题】：Using active cell value in userform label在用户表单标签中使用活动单元格值
【发布时间】：2019-05-06 22:35:16
【问题描述】：

双击单元格时打开用户窗体；

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    If Not Intersect(Range("B5:K20"), Target) Is Nothing Then

    Cancel = True
    UserForm1.Show

    End If

End Sub

我想将我双击的单元格中的单元格值添加到用户窗体上的 Label1。

我在UserForm1.Show 之后尝试了UserForm1.Label1.Caption = ActiveCell.Value。第一次双击，用户窗体Label1没有显示值，第二次双击一个单元格，Label1显示我双击的第一个单元格的单元格值。

如何在用户窗体打开时显示当前（双击）单元格值？

【问题讨论】：

您必须在用户表单中创建一个Property，以便您可以Set 双击单元格中的值。然后，您将使用该属性值到标签的.Caption 或文本框的.Text。

标签： excel label userform

【解决方案1】：

可能在显示表单之前告诉 excel 标签是 = to teh taget。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim s As String
    If Not Intersect(Range("B5:K20"), Target) Is Nothing Then
        s = Target.Value

        UserForm1.Label1.Caption = s
        UserForm1.Show
    End If
    Cancel = True

End Sub

【讨论】：