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

Question

我在双击单元格时打开了一个用户窗体；

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 显示我双击的第一个单元格的单元格值。

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

Answer 1

可能在显示表格之前告诉excel标签是=到目标。

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

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

Using active cell value in userform label

excel

label

userform