VBA入门到进阶常用知识代码总结57

第57集 列表和组合框
268、 列表框和组合框
列表框更占位置，但显示明显，组合框占位置少，但显示不明显。

269、 组合框常用设置

1. 显示多列内容
   ColumnCount属性可以设置显示的列数
   TextColumn选取多列时显示N列的内容
   BoundColumn属性可以指定返回第N列的值
   Private Sub CommandButton1_Click()
   商品.RowSource = “sheet3!a2:c9” 'rowsource属性可以从工作表中导入数据
   商品.ColumnCount = 3
   商品.ColumnHeads = True '只有使用导入单元格数据能用，且不能包含标题
   End Sub
   '注:Columnheads只在引用工作表数据源时才有效，而且数据源不能包括标题行
2. 设置返回组合框第二列的值
   Private Sub CommandButton2_Click() '设置返回组合框第二列的值
   Dim arr
   arr = Range(“b2:d9”).Value
   '商品.ColumnHeads = True
   商品.List = arr
   商品.ColumnCount = 3
   商品.TextColumn = 3 '组合框中显示第3列的值
   商品.BoundColumn = 2 '选取后第2列为默认值
   End Sub
3. 商品栏设置
   Private Sub 商品_Change()
   Dim sr
   If 商品.ListIndex <>