VBA 中COMBOBOX如何收起下拉列表

钺灵

已于 2024-03-21 20:35:15 修改

阅读量615

点赞数 2

分类专栏： VBA COMBOBOX DropDown 文章标签：开发语言

于 2024-03-21 20:30:03 首次发布

本文链接：https://blog.csdn.net/yuel666/article/details/136919052

版权

VBA 同时被 3 个专栏收录

1 篇文章 0 订阅

订阅专栏

COMBOBOX

1 篇文章 0 订阅

订阅专栏

DropDown

1 篇文章 0 订阅

订阅专栏

文章讲述了如何在COMBOBOX的change事件中控制DROPDOWN方法的触发，以防止输入时自动显示下拉列表，同时确保清空内容时不触发。作者给出了使用Enter和Exit事件作为前提条件的示例。

摘要由CSDN通过智能技术生成

COMBOBOX提供了DROPDOWN的方法，如果想在输入的时候触发下拉列表，那么只需要在change事件中使用DROPDOWN的方法即可，但是清空COMBOBOX中的内容也会触发下拉列表，那么怎么能做到COMBOBOX输入时触发下拉列表，清空COMBOBOX内容的时候不触发下拉列表呢？

Private Sub ComboBox1_Change()
'对change事件设置前提条件
If ThisWorkbook.Sheets("测试").Range("a1") = 1 And Len(ComboBox1.Text) > 1 Then
ComboBox1.DropDown
End If
End Sub

'当鼠标点击进入复选框的时候允许执行change事件
Private Sub ComboBox1_Enter()
ThisWorkbook.Sheets("测试").Range("a1") = 1
End Sub

'当鼠标点击进入复选框的时候不允许执行change事件
Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
ThisWorkbook.Sheets("测试").Range("a1") = 0
End Sub

'以下举例通过其他控件来清空ComboBox1内容,如果有上面的Enter和Exit事件控制前提条件，因为没有触发ComboBox1_Enter事件，ComboBox1_Change前提条件不成立，无法触发ComboBox1_Change事件
Private Sub CommandButton1_Click()
ComboBox1 = ""
End Sub