[已解决][求助]怎样为下拉框添加选择项

fishatmoon · 发表于 2011-1-18 08:54

我是新手，请问如何为下拉框添加选择项，数值放在sheet2中的a1-a4,控件在sheet1中，把属性linkedcell改为Sheet2!A1:A4也不行，多谢

下拉框赋值.rar (9.69 KB, 下载次数: 30)

zzmxy · 发表于 2011-1-18 09:05

要将Sheet2!A1:A4填在ListFillRange属性里，不能填在LinkedCell属性……
分清楚两个属性的作用，再试一下吧！

fishatmoon · 发表于 2011-1-18 09:08

好的，谢谢，问题解决了，请问如果要放在代码里，应该怎么做，这样对吗：
Private Sub ComboBox1_Change()
ComboBox1.List = Sheets("Sheet2").Range("a1:a4").Value
End Sub

yuanlong1980 · 发表于 2011-1-18 09:10

不是不行，是你没有引发你的宏程序。最简单的办法直接打开你的vba运行一下即可

fishatmoon · 发表于 2011-1-18 09:21

本帖最后由 fishatmoon 于 2011-1-18 09:26 编辑

怎么运行啊，宏里面没有，在vba里选择运行出现错误：运行时错误‘70’。。不能像表单控件那样直接显示出来，必须要运行吗，我没选择表单控件是不知道怎么更改下拉菜单显示的字体

zzmxy · 发表于 2011-1-18 09:52

這不就是VBA控件嘛，退出“設計模式”就得了啊……

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