mlfk.net
当前位置:首页 >> ExCEl表VBA中用代码如何建立多级ComBoBox下拉菜单 >>

ExCEl表VBA中用代码如何建立多级ComBoBox下拉菜单

ExcelVBA字典实现窗体二级下拉菜单: 问题提出: 选择确定ComboBox1中的数值后,ComboBox2的下拉列表自动引用ComboBox1中数值对应的列的内容。如何能做到,现在想在加一重判断:就是判断ComboBox2中的数值,如果是原来ComboBox1对应列中已有的值...

试试下面的代码: ComboBox下拉框的ColumnWidths属性 如:下拉框.ColumnWidths="50" '列宽为50磅 下拉框.ColumnWidths="0,100" '两列只显示第二列 ColumnWidths是各列宽度,ListWidth才是总宽度.ListWidth最好不要小于ColumnWidths之和

----57132899---- 是有代码了还是要代写代码?

ComboBox就是创建一个下拉列表 Private Sub UserForm_Initialize() For i = 1 To 100 ComboBox1.AddItem "aa" & i Next End Sub

Sub s() Sheet1.ComboBox1.clearEnd Sub

代码可实现,一般采用文本框加列表框来处理,而不是像你这样的处理。

将这部分代码放入初始化模块中: ComboBox1.AddItem "男" ComboBox1.AddItem "女" ComboBox2.AddItem "0" ComboBox2.AddItem "10" ComboBox2.AddItem "20" ComboBox2.AddItem "30" ComboBox2.AddItem "40" ComboBox2.AddItem "50" ComboBox2.Add...

SetRng=sht.Range("A;A").Find(ComboBox1.Value,,,xlWhole) '查找列表框的值Range("A;A")不能这么写吧,况且中间好像还写的是分号,只见过Columns("A:A")这种写法。如果第一行为标题行的话,应该这样写:iMaxRow = sht.Range("A65535").End(xlUp...

Controls("combobox" & a)

直接指定一个RANGE

网站首页 | 网站地图
All rights reserved Powered by www.mlfk.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com