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.Label1.Caption = ActiveCell.Value之后尝试了UserForm1.Show。第一次双击，用户窗体在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

在用户表单标签中使用有效单元格值

1 个答案: