stillfish00

¦^´_ 1# PKKO
ListBox¬OUserform¤WªºÁÙ¬O¤u§@ªí¤Wªº?

stillfish00

¦^´_ 1# PKKO
°²³]¬O«üUserform¤WListBox¡A
¥i§Q¥Î¼È®ÉªºTextBox¨Ó§ä¥X¦UÄæ³Ì¤j¼e«×¦A³]©w

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)
    
18. 
    
19.   '·s¼W¥H¤Ucode
    
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

½Æ»s¥N½X

stillfish00

¦^´_ 4# PKKO
1.  ListBox ±±¨î¶µµL¤À¹j½u³]©w¡A¦³¿³½ì¥i§ä ListView ±±¨î¶µ¸Õ¸Õ
2.  ¿é¥X¨ì¤u§@ªí¡A¤£À´§A°ÝÃD¦b­þ¡A¤U­±code´N¯à²³æ°µ¨ì¤F

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

½Æ»s¥N½X

stillfish00

¦^´_ 5# PKKO
Me.ListBox1.Width = dTotal + Me.ListBox1.ColumnCount + 5
³o¦æ¬O½Õ¾ãÁ`¼e«×¡A­n©T©wÁ`¼e«×´N¤£­n¥[