主题：[求助]如何自动将CTRL + ENTER 写入代码

2、高级筛选功能

前面提到的自动筛选功能，只能筛选出以输入字符开始的项目。
如果需要筛选出包括输入字符的项目，可以按“Ctrl + Enter"键。
例如下图中，我们输入“贸易”二字，然后按“Ctrl + Enter"键，即可自动列出所有包括“贸易”二字的项目供选择。

请问如下代码,如何自动将CTRL + ENTER 写入代码

If e.IsFocusCell Then '如果是焦点单元格
    If e.Col.Name = "公司简称" Then
        If e.Row.IsNull("费用关联") Then
            e.Col.Combolist = ""
        Else
            e.Col.Combolist = DataTables("客户与供应商").GetComboListString("客户简称")
        End If
   end if