GBKEE

¦^´_ 2# ´Ñ»y³¾»ï
Sheets("²Î­p­È")ªºµ{¦¡½X

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     If Not Application.Intersect([A2:A12], Target(1)) Is Nothing Then
   
3.         With Sheets("Á`ªí").Cells(Rows.Count, "A").End(xlUp).Offset(1)
   
4.             .Cells(1) = Target(1)
   
5.             .Cells(1, 2).Resize(, 3) = Range("R2").Resize(, 3).Value
   
6.         End With
   
7.     End If
   
8. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 4# ´Ñ»y³¾»ï
Worksheet_SelectionChange   ´N¬O¤u§@ªí¹w³]¨Æ¥óµ{¦¡  (·Æ¹«¥ªÁäÂIÀ»¤@¦¸)

GBKEE

¦^´_ 6# ´Ñ»y³¾»ï
¤£¤Ó¤F¸Ñ§Aªº·N«ä ¸Õ¬Ý¬Ý

¥þ³¡½Æ»s

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     Dim Rng As Range
   
3.     Set Rng = [A2:A12]
   
4.     If Not Application.Intersect(Rng, Target(1)) Is Nothing Then
   
5.         With Sheets("Á`ªí").Cells(Rows.Count, "A").End(xlUp).Offset(1)
   
6.             .Cells(1).Resize(Rng.Rows.Count) = Rng.Value
   
7.             .Cells(1, 2).Resize(Rng.Rows.Count, 3) = Range("R2").Resize(, 3).Value
   
8.         End With
   
9.     End If
   
10. End Sub

½Æ»s¥N½X

½Æ»s ¿ï¾Ü³B¨ì©³³¡

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     Dim Rng As Range
   
3.     Set Rng = [A2:A12]
   
4.     If Not Application.Intersect(Rng, Target(1)) Is Nothing Then
   
5.         For i = Target(1).Row To Rng.End(xlDown).Row
   
6.             With Sheets("Á`ªí").Cells(Rows.Count, "A").End(xlUp).Offset(1)
   
7.                 .Cells(1) = Cells(i, Target(1).Column)
   
8.                 .Cells(1, 2).Resize(, 3) = Range("R2").Resize(, 3).Value
   
9.             End With
   
10.         Next
    
11.     End If
    
12. End Sub

½Æ»s¥N½X