yliu

¦^´_ 5# GBKEE

GBKEE§A¦n,
½Ð°Ý­Y½Æ»s½d³ò¤£¬O³sÄò½d³ò®É, ¸Ó«ç»ò°µ?
¨Ò¦p: ¥Øªº¦a¤u§@ªí¡¨final¡¨ªºCÄæ¡y³W®æ¡z§R°£, ¨Ó·½¤u§@ªí¬O³sÄò½d³ò, ¦ý¥Øªº¦a¤u§@ªí¤£¬O³sÄò½d³ò®É.

GBKEE

¦^´_ 4# yliu

1. Private Sub CommandButton1_Click()
   
2.     Dim rowcnt&, rowcnt_login&
   
3.     Dim g As Integer, §Ç¸¹ As Range, I As Integer
   
4.     Set §Ç¸¹ = Sheets("login").[B9:J19]                             'ª«¥ó : ³]©w½Æ»sªº½d³ò
   
5.     g = Application.CountA(Sheets("final").[A:A]) + 1               'Ū¨úAø󦳸ê®Æ¼ÆªºÀx¦s®æ¼Æ +1
   
6.     I = 1
   
7.     Do Until §Ç¸¹.Range("A" & I) = "" Or I > §Ç¸¹.Rows.Count
   
8.          '½d³ò ªº Range("A" & I)->½d³òªº"A"øó  ,Rows.Count;½d³ò¦C¼Æªº­pºâ
   
9.         With Sheets("final")
   
10.             .Cells(g, "A") = Sheets("login").ComboBox1.Value
    
11.             .Cells(g, "B").Resize(1, §Ç¸¹.Columns.Count) = §Ç¸¹.Rows(I).Value
    
12.             g = g + 1
    
13.             I = I + 1
    
14.         End With
    
15.     Loop
    
16. End Sub

½Æ»s¥N½X

yliu

¦^´_ 2# Hsieh

·PÁÂHsiehª©¤jªºÀ°¦£¡A¥i¥H¨Ï¥Î¤F¡AÁÂÁ¡I

Hsieh

¦^´_ 1# yliu

1. Private Sub ListBox1_Change()
   
2. Dim ar()
   
3. With ListBox1
   
4. For i = 0 To .ListCount - 1
   
5.   If .Selected(i) Then
   
6.   ReDim Preserve ar(s)
   
7.   ar(s) = Array(i + 1, .List(i, 0), .List(i, 1), .List(i, 2), .List(i, 3))
   
8.   s = s + 1
   
9.   End If
   
10. Next
    
11. End With
    
12. [A9:E19] = ""
    
13. If s > 0 Then [A9].Resize(s, 5) = Application.Transpose(Application.Transpose(ar))
    
14. End Sub

½Æ»s¥N½X

yliu

½Ð±Ð°ª¤â,
¦p¦ó±NListBox ²M³æ¤ºªº¸ê®Æ¼g¤J¤u§@ªí¤WªºÀx¦s®æ,¦p¹Ï,
¿ï¨ú§Ç¸¹001,002«á,¸ê®Æ§e²{©óÀx¦s®æA9:E10.

¤U¸ü (45.06 KB)

2013-7-22 23:35

ListBox°ÝÃD (2).zip (19.12 KB)

¤U¸ü¦¸¼Æ: 16

2013-7-22 23:35