[已解决]下拉莱单制作

cyj153 · 发表于 2015-3-23 12:07

本帖最后由 cyj153 于 2015-3-23 20:10 编辑

ComboBox1制作成下拉莱单，内容为Ａ１,Ｂ２,Ｄ１,Ｅ４.谢谢大家！

最佳答案

zjdh

2015-3-23 13:48

本帖最后由 zjdh 于 2015-3-23 13:59 编辑

1. 逐个添加
For I = 1 To 10
Me.ComboBox1.AddItem "A" & I
Next

2.数组添加
arr = Sheet2.Range("a1:a5")
或arr=array("A1","A2","B1","B2","C1")
Me.ComboBox1.List() = arr

跳转到最佳答案楼层

zjdh · 发表于 2015-3-23 12:43

本帖最后由 zjdh 于 2015-3-23 12:45 编辑

Book1.rar (6.86 KB, 下载次数: 10)

cyj153 · 发表于 2015-3-23 12:48

zjdh 发表于 2015-3-23 12:43

在窗体中，不用名称（指定）的方法，有没有其他办法可用。

cyj153 · 发表于 2015-3-23 12:54

zjdh 发表于 2015-3-23 12:43

用ComboBox的属性能完成否，谢谢老师

zjdh · 发表于 2015-3-23 13:48

本帖最后由 zjdh 于 2015-3-23 13:59 编辑

1. 逐个添加
For I = 1 To 10
Me.ComboBox1.AddItem "A" & I
Next

2.数组添加
arr = Sheet2.Range("a1:a5")
或arr=array("A1","A2","B1","B2","C1")
Me.ComboBox1.List() = arr

		自动登录	找回密码
密码			注册