VBA - 双击单元格后的Excel显示表单

Question

我遇到了一个奇怪的问题。我在 Excel 中有一个用户输入表单。 此表单提供基本的 CRUD 功能来编辑表中的列表。现在这个用户窗体也有一个列表框，它显示了所有带有 Id 的条目和一些基本信息（所以你知道哪个条目是哪个）。现在我想要的是，如果你在普通的excel表格中选择了一行，然后打开InputForm，表格中的选定行也应该在InputForm的listBox中被选中。

我是这样做的：

  If Selection.Row >= StartRow() Then
      ListBoxAll.listIndex = Selection.Row - StartRow()      
  Else
      ListBoxAll.listIndex = 0
  End If

如果我每次单击按钮都打开 Ui，这将非常有用。但是，如果我尝试使用双击前事件打开表单。我有一个偏移量。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    UserFormInput.Show
End Sub

现在是奇怪的部分。如果我检查 Selection.Row 的值，通过 MessageBox 显示它，一切正常！但是，一旦我删除 MessageBox，它就会再次损坏。

    If Selection.Row >= StartRow() Then
        ListBoxAll.listIndex = Selection.Row - StartRow()
        MsgBox Selection.Row
    Else
        ListBoxAll.listIndex = 0
    End If

如果我把消息框放在哪里都没关系。

那么问题有人遇到过同样的问题吗？有人知道解决方案或解决方法吗？ （我不想显示消息框！）

所以我添加了一些截图以便于理解。

更新我认为它与双击后的焦点有关，它（可能）在双击的单元格上。如果我放出一个 MsgBox 就会改变

Answer 1

（我会写这个作为答案，但这只是代码的一部分...... :)

哦，德语^.^

我相信每次调用用户表单时，都必须将所选数据与列表框数据进行比较。由于您有一个多列列表框，您可以通过以下方式执行此操作（我相信，但未经测试）：

Dim ThisRow As Integer
ThisRow = ActiveCell.Row
Dim ThisValue As String
ThisValue = ActiveWorkbook.Sheet("Tabelle1").Cells(ThisRow, 1).Value 

这个“1”应该是包含与列表框第一列中显示的相同类型信息的列。

Dim i As Integer
For i = 1 to UserFormInput.Listbox1.Listcount
    If UserFormInput.Listbox1.List(i, 0).Value = ThisValue Then
        UserFormInput.Listbox1.List(i).Select
    End If
Next i