作者：绿色风
分类：
时间：2022-08-17
浏览：131
楼主
DJ_Soo |
Q:combobox中的自动匹配不好用,如何可以将combobox的也可以随输入数据更新?
A:根据下面两个帖子的方法分别设置Combobox可手动输入,并且不自动匹配:
Combobox控件中怎样允许手动输入?
http://www.exceltip.net/thread-33894-1-1.html
Combobox控件可手动输入模式下如何不自动匹配?
http://www.exceltip.net/thread-33896-1-1.html
在thisworkbook中输入代码作为初始化:- Private Sub Workbook_Open()
- With Sheet1
- With .ComboBox1
- .MatchEntry = fmMatchEntryNone '不自动匹配,可手动设置属性
- .Style = fmStyleDropDownCombo '可手动输入,可手动设置属性
- Sheet1.arr_List = WorksheetFunction.Transpose([table1])
- .List = Sheet1.arr_List
- End With
- End With
- End Sub
在vbe中的sheet1代码区输入以下代码:- Option Explicit
- Public arr_List As Variant 'public声明在thisworkbook中可以赋值和引用
- Private Sub ComboBox1_Change()
- Dim tmp_list As Variant
- Dim actChar As String
- With ComboBox1
- actChar = .Text
- .List = Filter(arr_List, actChar)
- End With
- End Sub
- Private Sub ComboBox1_LostFocus()
- ComboBox1.List = arr_List
- End Sub
 Upload.rar
|
2楼
Rongson_Chart |
学习~~嘿嘿！ |
3楼
omnw |
好帖啊，学习了！ |
4楼
老糊涂 |
 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一