excel中VBA下拉组合框的使用

在代码增加一句

combobox1.clear(放在你添加选项内容的代码前面)

就可以了.

if

combobox1.value=?

then

[a1]=??

else

if

comebobox1.value=??

then

[a1]=???

else

[a1]=???

end

if

end

if

或者定义数组

arr=array("a","b","c)

[a1]=arr(application.match(combobox1.value,combobox1.list,0)-1)

该属性返回或设里列表框与组合框的列表部分的项目。列表是一个字符申数组.数组的每一项都是一列表项目。可以在属性窗体中的List属性列表中添加选项。如图5.27所示为在组合框的List属性列表中添加4个选项。

---