VBA，如何給listbox設置多列數據 （未完成）

 

 

 listbox 如何指定多列內容 ?  

• 沒有columnSource   屬性
• 只有columncount屬性
• 可以在rowsource指定一個區域
• 設置列寬度，sheListBox1.ColumnWidths = "50;100;50"    '實測用兩種分隔都可以  "50,100,50"

  

 

Private Sub UserForm_Initialize()

ListBox1.RowSource = "sheet3!a2:c10"  
ListBox1.ColumnCount = 3
ListBox1.ColumnWidths = "50;80;50"    '實測用兩種分隔都可以  "50,100,50"
ListBox1.ColumnHeads = True           ’設置了heads好像會自動往上找1行

End Sub

 

更復雜的案例

http://club.excelhome.net/thread-537053-1-1.html

http://club.excelhome.net/thread-1481528-1-1.html

 

 

 

• 增加內容
• ListBox2.AddItem ListBox1.Text
• 刪除內容
• ListBox1.RemoveItem ListBox1.ListIndex