返回列表 上一主題 發帖

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

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
1# 跳轉到 »
發表於 2014-11-12 17:21 | 顯示全部帖子
回復 1# PKKO
ListBox是Userform上的還是工作表上的?
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
2#
發表於 2014-11-12 20:30 | 顯示全部帖子
回復 1# PKKO
假設是指Userform上ListBox，
可利用暫時的TextBox來找出各欄最大寬度再設定
  1. Sub checkWashCar()
  2.   Dim arr(), rng, i%, j%, m%
  3.   aaa = WorksheetFunction.CountA(Rows("1:1"))
  4.   Me.ListBox1.ColumnCount = aaa
  5.   'Me.ListBox1.ColumnWidths = "60,100,60"
  6.   
  7.   rng = [a1].CurrentRegion
  8.   For i = 1 To UBound(rng)
  9.     If i = 1 Or rng(i, searchW) Like serchItem Then
  10.       m = m + 1
  11.       ReDim Preserve arr(1 To aaa, 1 To m)
  12.       For j = 1 To aaa
  13.         arr(j, m) = rng(i, j)
  14.       Next
  15.     End If
  16.   Next
  17.   Me.ListBox1.List = Application.Transpose(arr)

  19.   '新增以下code
  20.   Dim sWidth As String, dTotal As Double
  21.   Dim oTemp As Object
  22.   
  23.   Set oTemp = Me.Controls.Add("Forms.TextBox.1")
  24.   With oTemp
  25.     .AutoSize = True
  26.     .MultiLine = True
  27.     .WordWrap = False
  28.     .SelectionMargin = False
  29.     .Font.Name = Me.ListBox1.Font.Name
  30.     .Font.Size = Me.ListBox1.Font.Size
  31.   End With
  32.   
  33.   For j = 0 To Me.ListBox1.ColumnCount - 1
  34.     oTemp.Text = ""
  35.     For i = 0 To Me.ListBox1.ListCount - 1
  36.       oTemp.Text = oTemp.Text & Me.ListBox1.List(i, j) & vbCr
  37.     Next
  38.     dTotal = dTotal + oTemp.Width
  39.     sWidth = sWidth & oTemp.Width & ";"
  40.   Next
  41.   Me.Controls.Remove oTemp.Name
  42.   Me.ListBox1.Width = dTotal + Me.ListBox1.ColumnCount + 5
  43.   Me.ListBox1.ColumnWidths = sWidth
  44. End Sub
複製代碼
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
3#
發表於 2014-11-13 13:33 | 顯示全部帖子
回復 4# PKKO
1.  ListBox 控制項無分隔線設定，有興趣可找 ListView 控制項試試
2.  輸出到工作表，不懂你問題在哪，下面code就能簡單做到了
  1. Private Sub CommandButton2_Click()
  2.   Dim ar
  3.   
  4.   ar = Me.ListBox1.List
  5.   With Sheets(3).[A1].Resize(UBound(ar) + 1, UBound(ar, 2) + 1)
  6.     .Value = ar
  7.     .EntireColumn.AutoFit
  8.   End With
  9. End Sub
複製代碼
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
4#
發表於 2014-11-13 13:37 | 顯示全部帖子
回復 5# PKKO
Me.ListBox1.Width = dTotal + Me.ListBox1.ColumnCount + 5
這行是調整總寬度，要固定總寬度就不要加
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

        靜思自在 : 虛空有盡．我願無窮，發願容易行願難。
返回列表 上一主題