excel - 有没有办法使用 Delete 键从列表框中删除选定的项目？

Question

按下 Delete 键时，我想从列表框中删除所选项目。实际上，在我的用户表单中，我有一个列表框，它显示工作表中的数据，我有一个“删除”命令按钮，可以从工作表中删除整个匹配行，然后更新列表框。但我想使用键盘的物理 Delete 键做同样的事情。我在互联网上搜索了很多，但找不到任何东西。

标签： excelvbadelete-row

Answer 1

尝试这个

Private Sub ListBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    
    If KeyCode = 46 Then
        With Me.ListBox1
            If .ListIndex <> -1 Then
                If MsgBox("Delete current item?" & vbCrLf & .Value, vbYesNo + vbExclamation, "Delete entry") = vbYes Then
                    .RemoveItem (.ListIndex)
                End If
            End If
        End With
    End If
    
End Sub