电脑教程
位置:首页>> 电脑教程>> office教程>> excel VBA LISTBOX初始化代码

excel VBA LISTBOX初始化代码

  发布时间:2022-06-08 17:40:43 

标签:多个,汉字,表头,设置,Excel函数

Private Sub UserForm_Initialize()
Dim lsb As Worksheet
Set lsb = Sheets("临时表")
X = lsb.[a65536].End(3).Row
With ListBox1
.ColumnCount = 7 ‘设置7列
.ColumnWidths = "30,70,70,70,70,70,50" ‘设置每列宽度

.ColumnHeads = True ‘是否有标题表头
.RowSource = lsb.Range("a2:g" & X).Address(External:=True) ‘设置内容
End With
End Sub

0
投稿

猜你喜欢

手机版 电脑教程 asp之家 www.aspxhome.com