Hsieh

¦^´_ 1# av8d

°²³]¸ê®Æ¦bAÄæ
¤u§@ªí¼Ò²Õ

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. Application.EnableEvents = False
   
3. If Target.Count = 1 Then
   
4. If Target.Column = 1 Then
   
5. ReDim Preserve Ar(s)
   
6. Ar(s) = Target.Value
   
7. s = s + 1
   
8. [B65536].End(xlUp).Offset(1) = Target
   
9. Target.Delete xlShiftUp
   
10. End If
    
11. End If
    
12. Application.EnableEvents = True
    
13. End Sub

½Æ»s¥N½X

¤@¯ë¼Ò²Õ

1. Public Ar(), s&
   
2. Sub «ö¶s1_Click()
   
3. If s = 0 Then Exit Sub
   
4. Application.EnableEvents = False
   
5. [A1].Resize(s, 1).Insert xlShiftDown
   
6. [A1].Resize(s, 1).Value = Application.Transpose(Ar)
   
7. Range([B2], [B2].End(xlDown)).ClearContents
   
8. s = 0: Erase Ar: Set Rng = Nothing
   
9. Application.EnableEvents = True
   
10. End Sub

½Æ»s¥N½X

¤U¸ü (131.66 KB)

2012-2-13 21:05

Hsieh

¦^´_ 3# av8d
¨S¦³XPª©¥»¡A2003´ú¸Õ¥i¥H³q¹L
Book1.zip (8.52 KB)

¤U¸ü¦¸¼Æ: 9

2012-2-15 15:33

Hsieh

¦^´_ 5# av8d


    ³]­p¼Ò¦¡¤U§ó§ïAÄæ¸ê®Æ
§ó§ï§¹¦¨«á¦Aµ²§ô³]­p¼Ò¦¡

¤U¸ü (149.94 KB)

2012-2-15 16:27