使用单元格双击事件更改用户窗体文本框值

Question

我整个上午都在寻找答案，但没有提出解决方案。 我想在双击事件后更改userform1上textbox1的值。 我不断收到方法或数据成员未找到错误。 如何通过双击事件完成此操作？

Public Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Worksheets("Offense").Range("A:A")) Is Nothing Then
    Cancel = True
    DataCollectionFormValid.Show
    Me.RowNumber.Value = ActiveCell.Row ' error here
End If
End Sub

Answer 1

Me指的是运行代码的对象，在这种情况下，该对象是工作表，而不是用户窗体。 你需要：

Public Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Worksheets("Offense").Range("A:A")) Is Nothing Then
    Cancel = True
    With DataCollectionFormValid
      .RowNumber.Value = ActiveCell.Row
      .Show
    End With
End If
End Sub