|
下面代码是
将列表框添加到第一张工作表中,并为该列表框设置填充区域。
Private Sub CommandButton1_Click()
u = [a65536].End(xlUp).Row
With Sheet2
Set lb = .Shapes.AddFormControl(xlListBox, 100, 10, 100, 100)
lb.ControlFormat.ListFillRange = "A1:A" & u
End With
End Sub
这个代码每一次都添加一个列表框,点击10次就添加10个,我想在原来的-----列表框1---基础上进行操作,
操作的目的是实时的把A列的值全部写进列表框,但是不能多余的空行,所以这里的 变量 U 就起作用了
求高人对 我的代码进行修改,主要是把变量 lb 设置下,我不懂怎么设置!对这一句进行转换下 Set lb = .Shapes.AddFormControl(xlListBox, 100, 10, 100, 100)
附件如下
新建 Microsoft Office Excel 工作表.rar
(44.1 KB, 下载次数: 3)
|
|