mbmc.net
当前位置:首页 >> vBA 下拉框 >>

vBA 下拉框

在窗体上拖一个复合框,粘贴如下初始代码: Private Sub UserForm_Initialize() ComboBox1.List = Array(".jpg", ".gif", ".bmp") End Sub 运行效果如图所示。

Dim Rng As Range Set Rng = range("A1") With Rng.Validation .Delete .Add Type:=xlValidateList, Formula1:="=$C$4:$C$7" End With Set Rng = Nothing

插入组合框ComboBox 添加代码 ComboBox1.AddItem "星期一" ComboBox1.AddItem "星期二" ComboBox1.AddItem "星期三" ComboBox1.AddItem "星期四" ComboBox1.AddItem "星期五" ComboBox1.AddItem "星期六" ComboBox1.AddItem "星期日"

Private Sub Form_Load()With Combo1 .AddItem ("1") .AddItem ("2") .AddItem ("3")End WithDim A As ByteA = Combo1.TextMsgBox AEnd Sub

你可以循环将字符串连接起来,再赋值给 formula1 嘛 实在要单条加入的话,看下面我写的一个例子(实质还是拼接): Sub test(rg As Range, str1 As String)If InStr(rg.SpecialCells(xlCellTypeAllValidation).Address, rg.Address) = 0 Then rg...

数据有效性里显示的内容修改。 如果允许来源是来自表格内的内容,修改来源的值即可。 例如下图情况,修改A列的值即可。 如果允许来源是输入的值,由英文逗号分开的方式,把其中的值进行修改即可。

你说的是组合框吧, 通常组合框的值有两种来源, 一种是比较固定的值,比如性别,文化程序, 在属性---数据---行来源类型 选"值列表", 在行来源 填入备选值,中间用逗号或分号隔开. 另一种不太固定,来自查询或表. 在行来源类型处选"表/查询" 在行来源...

szqaly的回答没错 你下拉框没东西是因为你把代码复制到Private Sub ComboBox1_Change() 你应该直接用他的代码就可以了 如果你复制到Private Sub ComboBox1_Change()里面,那比就要改变复合框里的内容,才会生成1-12

将控件与单元格关联即可。右键设置控件格式。控制里,看到源数据区域,和单元格链接了么?分别指定即可。 由于返回的是序号,用vlookup函数再查一下源数据区域表即可。

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

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