Excel的combo box下拉选项如何实现关键字筛选

michmichcat 2008-01-04 10:23:22
我做了user form来录入订单内容, 当中有combo box控件, 下拉显示产品列表。 因为产品很多,我希望录入订单时能根据产品全称当中的个别字眼,即关键字,通过在combo box 敲入一个关键字,点击combo box的下拉按钮,就会出现仅包含关键字的候选产品名称,从而使下拉列表大大缩短,便于查找。

combo box自身是可以根据手动输入某名称的首字符来搜索近似的选项名从而自动完成候选项的输入,并且这时按下下拉按钮就能得到以这个字符开头的选项。现在主要就是想使用关键字也能得到同样的效果。

要怎样实现呢?请帮忙哦,谢谢了!

我在http://www.ozgrid.com/forum/showthread.php?t=59306看到有人提问类似的问题,大家可以参考那里的解答

Private Sub CommandButton1_Click()



Dim lCount As Long



Dim rFoundCell As Range



Dim lLoop As Long



Dim wSheet As Worksheet



Dim StrFind As String







Set wSheet = Worksheets("Food_List")



Set rFoundCell = wSheet.Range("A1")



StrFind = TB5.Value



lLoop = WorksheetFunction.CountIf(wSheet.Columns(1), "*" & StrFind & "*")







If lLoop > 0 Then ComboBox1.RowSource = vbNullString







For lCount = 1 To lLoop



Set rFoundCell = wSheet.Columns(1).Find(What:=StrFind, After:=rFoundCell, _



LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, _



SearchDirection:=xlNext, MatchCase:=False)



ComboBox1.AddItem rFoundCell



Next lCount



End Sub
...全文
572 2 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
michmichcat 2008-01-06
  • 打赏
  • 举报
回复
我找过英文的论坛,有人问过跟我一样的问题,但是很可惜也没有答案,有人提供了使用listbox控件的解答方案,但是我希望得到用combobox来解决的办法。。。下面是那个英文的帖子的链接,麻烦高手有空看看。。

http://www.ozgrid.com/forum/showthread.php?t=65707

“I have a combo box with match entry = 1,

Is it possible to select an item from the list when I start typing parts of the item.
I have a large list and don’t always know the beginning characters.

Example, I type foq and in the combo box it goes to Ets.Foquet

I have already tried typing a * and so on. Before, *foq, #foq。。。”
changjiangzhibin 2008-01-04
  • 打赏
  • 举报
回复
up
大家好,又见面了!EasyUI又更新了,这次更新内容还是不少的,具体内容请参考下面的更新说明,官方的更新说明中还少了1条,我给补上了。 jQuery EasyUI 1.3.5版本更新内容: Bug(修复) searchbox:修复“searcher”函数提供的“name”参数值错误的问题; combo:修复“isValid”方法无法返回布尔值的问题; combo:修复点击页面某一个combo组件的下拉列表时触发的“onHidePanel”事件会导致页面上其他combo组件的下拉列表被关闭的问题; combogrid:修复某些从combo组件继承来的方法无法使用的问题。 Improvement(改进) datagrid:改进检查行时候的性能; menu:允许追加菜单分隔符; menu:新增“hideOnUnHover”属性用于在鼠标离开菜单的时候指示是否需要隐藏菜单; slider:新增“clear”和“reset”方法; tabs:新增“unselect”方法、“onUnselect”事件; tabs:新增“selected”属性,用于指定的默认打开的面板; tabs:Tab Panel(Tab页)新增“collapsible”属性,用于设置是否允许摺叠面板; tabs:新增“showHeader”属性、“showHeader”方法和“hideHeader”方法; combobox:允许“disabled”属性禁用下拉列表选项; tree:改进数据加载时候的性能; pagination:新增“layout”属性,用于自定义控件的样式布局; accordion:新增“unselect”方法、“onUnselect”事件; accordion:新增“select”和“multiple”属性; accordion:新增“getSelections”方法; datebox:新增“sharedCalendar”属性,允许多个datebox控件共享使用同一个calendar控件。 datebox:新增“buttons”属性,用于自定义日历下方的按钮。 (译者注:该点更新内容官方更新公告上没有注明,具体内容和用法请看datebox的API。) 历史版本: - jQuery EasyUI 1.3.4 离线API简体中文版 http://download.csdn.net/detail/richie696/6302785 - jQuery EasyUI 1.3.4 离线API简体中文版 http://download.csdn.net/detail/richie696/5363933

6,216

社区成员

发帖
与我相关
我的任务
社区描述
Microsoft Office应用
社区管理员
  • Microsoft Office应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧