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

vBA 下拉框

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

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

Private Sub UserForm_Initialize() ComboBox1.AddItem "sheet1" ComboBox1.AddItem "sheet2" ComboBox1.AddItem "sheet3" End Sub 你是个聪明人!!真的.(至少比我聪明,呵)

如下这段,就是先选中 A列,然后设置它的下拉菜单数据为:ABC,BCD,CDE,DEF 如果下拉菜单数据来源于单元格,则把 Formula1:="ABC,BCD,CDE,DEF" 换成单元格地址,比如 Formula1:="=$B$1:$B$3" 这样即可。 Sub Macro1() Columns("A:A").Select With...

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

Private Sub UserForm_Initialize() Me.ComboBox1.AddItem "生产部" Me.ComboBox1.AddItem "维修部" End Sub 或 Private Sub UserForm_Initialize() Me.ComboBox1.List = Array("abc", "CDE") End Sub

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

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

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

这个对话框需要你自己做一个用户窗体,插入组合框控件。然后通过代码控制窗体的显示与隐藏。 先设置窗体隐藏,在该出现对话框的时候控制窗体显示,确定按钮赋值并隐藏,取消按钮不赋值并隐藏。 赋值只要带上完整对象名就行了,比如: a = UserFor...

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