作者：乔山办公网日期：
返回目录：excel表格制作
还补充下，
不知你插入的是什么下拉框控件，表单的还是ACTIVEX的
它们都可以引用表格上的一个数据区作为表单项，并且可以把控件的值返回到表格中
1、首百先需要打开Excel的表格，如图所示，点击下面的文件1，鼠标右键单击选择查看代码。
2、然后就是进度入代码页面，可以看到页面上现在的代码。
3、然后接下来就是需要用listbox用法，如图所示，输入版Sheet1.Cells(1, 3) = Sheet1.Cells(1, 1) + Sheet1.Cells(1, 2)，回车。
4、最后，再返回到页面上，如图所示，双击一下表格就可以看到数字权了，listbox用法成功。
代码如下，需要使e799bee5baa6e59b9ee7ad94336用VBAworksheet事件。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Target.Value = "B" Then
With Range("B1").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="E,F,G"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.IMEMode = xlIMEModeNoControl
.ShowInput = True
.ShowError = True
End With
End If
End Sub
列的数量可以通过ColumnCount属性抄来控制。要显示列标题袭 ，设置百ColumnHeads = True，注意最终显示多少列好像和Listbox中的数据有几列有关，取两度者中的最小值。
可以通过RowSource属性来添加表格中的数据到ListBox中。在vba中用Range对象的知Address属性来设置ListBox的RowSource，这样也就可以把一个道Range对象的数据放到ListBox中了，注意Range对象的上一行则设置为列标题。代码如下：
ListBox1.RowSource=rng.Address