返回列表下一主題上一主題發帖

[發問] ListBox.ColumnWidths有辦法設定為自動欄寬嗎?

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

論壇榮譽勳章論壇贊助勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2014-11-12 08:04 | 顯示全部帖子

[發問] ListBox.ColumnWidths有辦法設定為自動欄寬嗎?

Sub checkWashCar()
Dim arr(), rng, i%, j%, m%
aaa = WorksheetFunction.CountA(Rows("1:1"))
Me.ListBox1.ColumnCount = aaa
Me.ListBox1.ColumnWidths = "60,100,60"
rng = [a1].CurrentRegion
For i = 1 To UBound(rng)
If i = 1 Or rng(i, searchW) Like serchItem Then
m = m + 1
ReDim Preserve arr(1 To aaa, 1 To m)
For j = 1 To aaa
arr(j, m) = rng(i, j)
Next
End If
Next
Me.ListBox1.List() = Application.Transpose(arr)
End Sub

複製代碼

實際上我的字數有可能變多或是變少,有可能依據字數自動欄寬嗎?
而不要像我原本的方式手動欄寬?

樓主熱帖

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

論壇榮譽勳章論壇贊助勳章

2^#

發表於 2014-11-13 03:22 | 顯示全部帖子

回復 3# stillfish00

感謝大大,完全了解,原來還有這種方法,借鏡再把鏡子刪除,感恩哦!!

另外還想請問一下

一、listbox有辦法有分隔線嗎?(A欄與B欄之間有分隔線,或是第一列與第二列中間有分隔線?)

二、我在看過別人的listbox可以輸出至sheet內,變成sheet1的內容,要如何辦到呢~?

PKKO

TOP

PKKO