里面使用change不生效_VBA分享--组合框控件的组合使用

最新推荐文章于 2024-02-26 14:31:42 发布

weixin_39916379

最新推荐文章于 2024-02-26 14:31:42 发布

阅读量473

点赞数

文章标签：里面使用change不生效

本文链接：https://blog.csdn.net/weixin_39916379/article/details/112728955

版权

本文分享了一篇关于VBA在制作下单表中应用组合框控件的实践经验。通过3个ListBox控件，实现了区域、店铺等级和店铺明细的动态联动。在改变区域或店铺等级时，店铺明细会相应更新。为解决表格打开时控件未初始化的问题，作者添加了启动时运行代码的解决方案。

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

去年因为工作需要用VBA做了一个下单表，跟大家分享下里面组合框控件的组合使用，交互性和操作性都比较友好，效果见下面GIF动图。

通过筛选区域和店铺等级让店铺明细动态变化，用了3个ListBox组合框控件实现。

区域LB3代码：

Private Sub ListBox3_Click() '区域选择
 With Sheet10
        rq = .Range("j2:j5").Value'区域
    End With
With ListBox3 '调整位置到单元格处
        .Top = Sheet1.Cells(15, 1).Top 'listbox的顶端位置
        .Left = Sheet1.Cells(15, 1).Left  'listbox的左端位置
        .Width = 58 '宽度
        .Height = 70 '高度
        .Visible = True '可见
        '.ColumnHeads = True '显示标题行
        .ColumnCount = 1 '三列
        .ColumnWidths = "40" '设置第一列宽度50第二列宽度130……
        .List = rq '数据来源
        .MultiSelect = fmMultiSelectMulti '允许通过鼠标点击的方式进行多选
        .ListStyle = fmListStyleOption '选项按钮设置为方形
    End With
End Sub

店铺等级LB2代码：