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

Question

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

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

当我select比如XOXO喜欢图片，点击DELETE，我想删除关于XOXO的全部信息，意思是删除XOXO和SA以及他的号码phone等。 ....是的，我在工作表上有相同的数据，删除数据单元格后我想保持空白

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

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

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

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

delete a line or item selected on listbox of userform

excel

vba

listbox