Listbox欄位顯示的問題 - Excel程式區

[發問] Listbox欄位顯示的問題

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

1^# 跳轉到 »

發表於 2013-12-12 09:49 | 顯示全部帖子

回復 1# lifedidi
見ColumnCount 說明

若將 ColumnCount 設成 0，顯示的行數便是 0；若設成 -1，便顯示所有的資料行。
對一個非資料連結的資料來源而言，最多只能有 10 行 (0 到 9)。
您可用 ColumnWidths 屬性來設定控制項中的資料行寬。

TOP

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

2^#

發表於 2013-12-12 10:21 | 顯示全部帖子

回復 3# lifedidi
要破10欄限制，1是從 .RowSource 引用工作表範圍
2是用二維陣列一次給到 .List ，如下

Private Sub UserForm_Initialize()
Dim ar
With ListBox1
.ColumnCount = 37
.ColumnWidths = "20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt"
End With
With Sheet5
ar = .Range(.[a1], .[a1].End(xlDown)).Resize(, 37).Value
End With
ListBox1.List = ar
End Sub

複製代碼

TOP

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

3^#

發表於 2013-12-12 14:44 | 顯示全部帖子

直接用不行嗎?

Private Sub UserForm_Initialize()
Dim ar
With Sheet5
ar = .Range(.[a2], .[a2].End(xlDown)).Resize(, 37).Value
End With
With ListBox1
.ColumnCount = 37
.ColumnWidths = "20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt;20 pt"
.List = ar
End With
End Sub