admin 管理员组

文章数量: 1086019


2024年3月10日发(作者：手机网站导航模板)

ExcelVBA字典实现窗体二级下拉菜单

ExcelVBA字典实现窗体二级下拉菜单问题提出:

选择确定ComboBox1中的数值后，ComboBox2的下拉列表自动引用ComboBox1

中数值对应的列的内容。如何能做到

我现在想在加一重判断：就是判断ComboBox2中的数值，如果是原来ComboBox1

对应列中已有的值，就直接向下进行，如果原来ComboBox1对应列中没有该值，自动添

加到该列最下一个非空行之后再向下执行。

字典的引用:窗体代码如下:

Public Arr, Dic As New

Dictionary

'声明为公共变量,引用“Microsoft Scripting Runtime”

Private Sub UserForm_Initialize() '窗体初始化事件

Dim

Brr

Arr =

("A1").

'A1单元格已用区域

For i = 1 To

UBound(Arr,

2)

'循环标题，并添加到字典

If Not (Arr(1, i))

Then

'字典中不存在关键字

Arr(1, i), +

1

'添加关键字,Item为索引

End If

Next

Brr =

'清除列表框1条目

For i = 0 To

UBound(Brr) -

1

'列表框1添加条目

m Brr(i)

Next

End Sub

Private Sub ComboBox1_DropButtonClick() '列表框1下拉事件

Dim

Brr

If

= "" Then Exit

Sub

'如果列表框1为空，就退出过程

'清空列表框2条目

If

() Then '如果列表框的关键字,在字典中有记录

Brr = (Arr, 0,

Dic()) '用Index函数取出整列数据

For i = 2 To UBound(Brr,

1)

'列表框2添加条目

m Brr(i,

1)

'列表框2添加条目

Next

End If

End Sub

Private Sub CommandButton1_Click() '按钮1单击事件

If

= "" Or = "" Then Exit

Sub

'如果列表框1,2为空，就退出过程

Dim Brr,

Crr

Brr =

(Arr, 0,

Dic())

'用Index函数取出整列数据

Crr =

(ose(Brr), ,

True)

'取出匹配列表框2的值

If

UBound(Crr) = -1 Then

'如果有列表框2的值,数组不会为-1

,'如果列表框2中没有此关键字,往原数据添加此关键字

(,

Dic()).End(xlUp).Offset(1).Value =

End If

(, 10).End(xlUp).Offset(1).Value =

'+ '把数据写入单元格

= "": =

""

'列表框1，2显示为空白

:

'清空列表框1，2的条目

Call

UserForm_Initialize

'初始化窗体，为下一次录入数据准备

End Sub

效果图:更多分享请关注微信号

微信号：Excel335081548 或: 雪山飞狐Excel

喜欢本文，请点击右上角，分享本文。

或扫扫二维码


本文标签： 列表框 字典 添加 窗体

版权声明：本文标题：ExcelVBA字典实现窗体二级下拉菜单 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://roclinux.cn/p/1710056683a555685.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。