excel - OnKey "Delete"清除组合框

Question

我有一个带有多个组合框的用户表单。用户可以输入新项目或从列表中选择一项。

他可以开始输入想要的项目的第一个字母，但是当他犯错并以例如开始时。 “b”而不是“n”，他必须手动清除组合框或使用鼠标或箭头在列表中找到项目。

我想使用删除键快速清除框，以便用户可以再次开始输入。但是我不知道如果正确的话把这行代码放在哪里(输入事件，更改事件，或者其他一些？)。

Application.OnKey "{Delete}", "WyczyscPole"

首先 Excel 需要知道用户在哪个框中，然后清除它。

我试图用一个变量创建单独的模块，该变量找出当前的组合框名称并在下一步中清除它。但我不知道下面的 sub 是否正确。

Sub WyczyscPole()

Dim NazwaPola As ComboBox

NazwaPola = frmZakupy.ActiveControl.Name
NazwaPola.Clear

End Sub

Answer 1

当用户位于组合框中时，您可以使用 KeyDown 事件捕获 Delete 键 (KeyCode = 46)。

Private Sub NazwaPola_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

    If KeyCode = 46 Then
        Me.NazwaPola.Value = vbNullString
    End If

End Sub