Question

excel vba 列表框 中属性：rowsource sheet2!a1:b9，controlsource 求属性，谢谢？

Answer 1

列表框控件、BoundColumn、ControlSource 和 RowSource 属性示例

下例在列表框中使用工作表单元格的区域，并且，当用户从列表中选中一行时，在另一工作表单元格中将显示该行索引。这个代码示例使用了 RowSource 、BoundColumn 和 ControlSource 属性。

若要使用该示例，请将示例代码复制到某窗体的声明变量部分。请确保该窗体包含名为 LIstBox1 的列表框。在工作表单元格的 A1:E4 中输入数据。还需确认单元格 A6 中没有数据。

Private Sub UserForm_Initialize()

ListBox1.ColumnCount = 5
ListBox1.RowSource = "a1:e4"

ListBox1.ControlSource = "a6"
'把 ListIndex 置于单元 a6
ListBox1.BoundColumn = 0
End Sub

追问

你好，我想controlsource，将选中行，都显示出来，谢谢！比如，rowsource sheet2!a1:b9
时，controlsource怎么样才能显示a1:a9非常感谢。

追答

controlsource 的属性不是你理解的那样.listbox控件的这两个属性要创建了实体,然后赋值才可用
不能直接在控件属性里设置 你把上面的例子做一遍 就明白了 仔细阅读以下例子的说明

追问

你好，非常感谢，但是要是想实现我的想法应该 怎样做呢？我的想法其实很简单，就是在单击 或双击，列表框某一行时，将此行数据 剪切到工作表中或另一个列表框中。谢谢

追答

还是用上面的例子 只是你要在useform1里多添加一个listbox 一个listbox1 一个listbox2
添加下面的代码到useform1 就可以双击添加项目到listbox2 并删除listbox1相应的行
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim MuBiaoCount, YuanIndex As Integer
ListBox2.ColumnCount = ListBox1.ColumnCount
YuanIndex = ListBox1.ListIndex
MuBiaoCount = ListBox2.ListCount

ListBox2.AddItem MuBiaoCount
For i = 0 To ListBox1.ColumnCount - 1
ListBox2.List(MuBiaoCount, i) = ListBox1.List(YuanIndex, i)
Next
Range("a" & YuanIndex + 1).EntireRow.Delete

End Sub

Private Sub UserForm_Initialize()

ListBox1.ColumnCount = 5
ListBox1.RowSource = "a1:e4"
ListBox1.BoundColumn = 0
End Sub