话不多说先上菜,看下演示效果:
昨天我们一起学习了制作《可以联动的 表单控件 — 组合框与列表框 实际应用》
今天我们在这基础上继续优化它,使之成为带搜索、选择功能的订单模板工具。今天主要加入单选框以及加入几行代码 实现搜索和选择的功能。使之功能更完善。
今天案例您将学到如下内容:
单选框的使用 及搜索功能如何实现。
单选框的插入:菜单-【开发工具】-【插入】-【表单控件】-单选框。如下图所示:
单选框的设置:本案例我们需插入2个单选框,分别在顾客卡号前插入按卡号和顾客名称前加入按名称
按卡号的代码如下:
Sub 选项按钮11_Click()
Range("C4") = ""
Range("K1").Select
ActiveCell.Formula = "=MATCH(c4,n2:n8,0)"
Range("C4").Select
Range("C4").Interior.Color = 65535
End Sub
代码说明:按卡号单选框被选中时,顾客卡号清空,K1单元格赋予公式:MATCH(c4,n2:n8,0),这是更新组合框的数据源的链接单元。随着卡号的输入K2单元格会跟着变动从而组合框的数据源发生变动。输入卡号的单元变黄以醒目提示要输入卡号。
按名称的代码如下:
Sub 选项按钮10_Click()
Range("K1") = ""
Range("C4").Interior.Pattern = xlNone
Range("C4").Formula = "=iferror(VLOOKUP(K1,M:O,2,0),"""")"
End Sub
代码说明:按名称单选框被选中时,K1单元格被清空,卡号单元格黄色填充清空。卡号单元格赋予公式:=iferror(VLOOKUP(K1,M:O,2,0),""),当组合框选择不同的名称时卡号单元格通过VLOOKUP同步更新名称对应的卡号了。
关于其它的设置请参阅昨天的《可以联动的 表单控件 — 组合框与列表框 实际应用》里面有详细的说明。
后面我会再进一步的更新这个模板,使之功能更强大。请大家继续关注小编的更新哦。
相信以这个模板为原型大家一定可以设计出更多符合自己工作的模板,方便到大家的工作。今天就跟大家分享到这了,如果大家喜欢我分享的内容请收藏、转发、点赞,关注我的公众号excel-_-vba。
请点击并长按下方二维码关注吧!
特别声明:文章来源用户上传并发布,本站只提供信息存储服务,不拥有所有权,内容仅供参考。