Question

EXCEL VBA rowsource 动态引用

组合框和列表框的rowsource属性，如何设置带变量的单元格区域引用。

Answer 1

比如把A1到A5的值添加到LISTBOX1的ROWSOURCE中。而这里5我们是不知道的。用下面代码

Private Sub UserForm_Click()
Dim x
x = Range("a1000").End(3).Row
ListBox1.RowSource = "a1:a" & x
End Sub

追问

前面一个单元格也是动态的，我这有多列内容，这样也可以吗

追答

Private Sub CommandButton1_Click()
Dim sm, x
sm = 1
x = Range("a1000").End(3).Row
ListBox1.RowSource = "a" & sm & ":a" & x
End Sub

SM等于多少，你自己付你想要的值。

追问

前面要带工作表信息

追答

dim y
for y= 1 sheets.count
sheets(y)......
...........