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()
通過以上三步可以實現你要的結果,如果需要,可以幫你做代碼,不過最好你自己做一下.順便學習,有問題再聯系我.