- ©«¤l
- 2035
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 2031
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-3-22
- ³Ì«áµn¿ý
- 2024-2-1
|
¥»©«³Ì«á¥Ñ c_c_lai ©ó 2016-10-29 16:39 ½s¿è
¦^´_ 60# starbox520 - Private Sub lstSelector_³]©w()
- Dim i As Integer, Arr()
-
- With lstSelector ' ** frmSelector ¤¤ªº ²Ä¤@Ó ListBox ±±¨î¶µ
- .Clear
- i = 0
- '**¤Ï¦Êªº³¡¤À¥i¥H¥u¯à¤Ï¥Õ¤@µ§ ¡A¤£n³o»ò¦hµ§¶Ü
- ' **¨ú®ø .MultiSelect = 1 *** MultiSelect ÄÝ©Ê «ü©wª«¥ó¬O§_±µ¨ü¦h«¿ï¨ú¡C
- Arr = Sheets("TR±Æ¾÷&²£¥X").Sh_Ar
- If Not IsEmpty(Arr) Then
- On Error Resume Next
- i = UBound(Arr, 2)
- If i > 0 Then
- .List = Arr
- Else
- .AddItem
- For i = 0 To UBound(Arr)
- .List(0, i) = Arr(i + 1)
- Next i
- End If
- End If
- End With
- With ListBox1 ' ** frmSelector ¤¤ªº ²Ä¤GÓ ListBox ±±¨î¶µ
- .ColumnCount = 9
- .ColumnWidths = "90,45,130,60,35,50,90,50,70"
- End With
- End Sub
½Æ»s¥N½X |
|