删除用户窗体列表框中选择的行或项目

Question

我有一个用户表单，我可以在其中输入一些信息，但我还想让用户可以通过从列表框中选择数据来删除他输入的数据，然后单击删除，他们需要输入密码。不幸的是，我尝试了这段代码，但它不起作用。

Private Sub delete_Click()
Dim i As Integer
  For i = 1 To Range("A65656").End(xlUp).Row
    If lstdiplay.Selected(i) Then
      Rows(i + 1).Selected
      Rows(i).Select
      Selection.delete
    End If
  Next i
End Sub

当我选择像图片一样的 XOXO 并单击删除时，我想删除有关 XOXO 的全部信息，确实意味着删除 XOXO 和 SA 以及他的电话号码等.....是的，我有相同的工作表上的数据和删除数据单元格后我想保持空白

Answer 1

Private Sub delete_Click()
    Const listStart As Long = 3 'Your listbox keeps the rows starting with row 3
    Dim sh As Worksheet
    Set sh = ActiveSheet 'better use your worksheet name here...
    If Not Me.lstdiplay.ListIndex = -1 Then
        Me.lstdiplay.RemoveItem Me.lstdiplay.ListIndex
        sh.Rows(Me.lstdiplay.ListIndex + listStart).Delete
    Else
        MsgBox "You must have a listbox selected row!", vbInformation, "No row selected"
    End If        
End Sub

它删除选定的列表框行并删除等效的工作表行。如果列表框已从第 3 行（含）开始加载。否则，您应该调整 `listStart ' 常量值...

如果选择丢失，它也会发出警告。