1. 请教，Excel2003中，如何在VBA中使用列表框或组合框
Private Sub ComboBox1_Change()
Dim A
A = ComboBox1.Text '赋值给变量
End Sub
Private Sub ComboBox1_GotFocus()
Dim I As Long
ComboBox1.Clear
For I = 1 To UsedRange.Rows.Count
ComboBox1.AddItem Range("A" & I).Value '添加到combox
Next
ComboBox1.ListIndex = 0 '选中第一项
End Sub
2. Excel vba 组合框的问题
假设你的组合框名字是combobox1。录制下面一段即可
Private Sub Workbook_Open()
UserForm1.ComboBox1.AddItem ("香蕉")
UserForm1.ComboBox1.AddItem ("苹果")
UserForm1.Show 0
End Sub
3. vba中请问如何利用组合框进行筛选
给你提供一个思路，自己写一下：
1、首先通过if确定2012/2/25的开始行号和结束行号
2 循环添加商品名称到组合框,for if搭配使用
for i=1 to lastrow
先添加第一个
然后通过if判断如果不重复,则添加
next i
3 计算用函数worksheetfounction.sumif()
通过以上三步可以实现你要的结果,如果需要,可以帮你做代码,不过最好你自己做一下.顺便学习,有问题再联系我.