关于ListBox标题设置

hnjz6700

ListBox1中设置了标题，但标题中无内容，

shiruiqiang

蓝桥玄霜

1. Private Sub UserForm_Initialize()
   
2.     Dim rng As Range
   
3.     Set rng = Sheet1.Range("A2:D10") ' 包括标题行
   
4. 
   
5.     ' 设置列标题
   
6.     ListBox1.ColumnCount = rng.Columns.Count
   
7.     ListBox1.ColumnHeads = True
   
8.     ListBox1.ColumnWidths = "50;50;50;50" ' 根据需要调整宽度
   
9. 
   
10.     ' 加载数据
    
11.     ListBox1.RowSource = rng.Address
    
12. End Sub
    

复制代码

ynzsvt

关键点是rng不要包含标题行，然后rng的上一行自动为标题行。宽度足够就看的全。

hnjz6700

蓝桥玄霜 发表于 2024-9-7 10:47

如果lisbox1只显示工作表中第1列和4列怎么改

hnjz6700

shiruiqiang 发表于 2024-9-7 10:39

如果lisbox1只显示工作表中第1列和4列怎么改

shiruiqiang

lisbox1属性不支持

lss001

hnjz6700 发表于 2024-9-7 16:41
如果lisbox1只显示工作表中第1列和4列怎么改

'仅显示第1列和第4列

Private Sub UserForm_Initialize()
    Dim rng As Range '获取/拆分数据
    Set rng = Sheet1.Range("A1:D10")
    arr = Application.Index(rng, [Row(1:10)], [{1,4}])

    ' 设置列标题/False*****
    ListBox1.ColumnCount = Ubound(arr, 2)
    ListBox1.ColumnHeads = False
    ListBox1.ColumnWidths = "50;50"

    ' 加载数据
    ListBox1.List = arr
End Sub

taller

hnjz6700 发表于 2024-9-7 16:40
如果lisbox1只显示工作表中第1列和4列怎么改

借用3楼蓝版的代码，修改第2，3列宽度为0

1. Private Sub UserForm_Initialize()
   
2.     Dim rng As Range
   
3.     Set rng = Sheet1.Range("A2:D10") ' 包括标题行
   
4. 
   
5.     ' 设置列标题
   
6.     ListBox1.ColumnCount = rng.Columns.Count
   
7.     ListBox1.ColumnHeads = True
   
8.     ListBox1.ColumnWidths = "50;0;0;50" ' 根据需要调整宽度
   
9. 
   
10.     ' 加载数据
    
11.     ListBox1.RowSource = rng.Address
    
12. End Sub

复制代码