ComboBox1控件

2012-3-8 21:40整理

加载：

方法一：

ComboBox1.RowSource = Sheets("MenuData").Range("A1:A3").Address

方法二：

ComboBox1.AddItem yuanliaoName.Range("B" & I)

方法三：

rng = yuanliaoName.Range("B3:B" & YLMRow)

' ComboBox1.AddItem "所有饲料"

' For Ctr = LBound(rng) To UBound(rng)

' ComboBox1..AddItem rng(Ctr, 1)

Next

方法四：

ComboBox1.AddItem siliaopeibi.Cells(3, X)’显示值

ComboBox1.List(X - 3, 1) = siliaopeibi.Cells(2, X)加载另一值

读取：

Cells(1, 1)=ComboBox1.text

Cells(1, 2)=ComboBox1.List(ComboBox1..ListIndex, 1)当前选择的

清除

ComboBox1.Clear

选择第一项

ComboBox1.ListIndex = 0

不选择项

ComboBox1.ListIndex = -1

禁止自行输入

ComboBox1.Style = fmStyleDropDownList '

列表总个数

ComboBox1.Items.Count