Hsieh

¦^´_ 3# myleoyes
¸Õ¸Õ¬Ý

    Sheet1¼Ò²Õ

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.        If Not Intersect(Target(1), Range("J3:J1443")) Is Nothing And Target(1) <> "" And [A1] <> "¨ú®ø" Then
   
3.           ActiveCell.Offset(0, -3).Copy [Y3]
   
4.           Me.Names.Add "x", ActiveCell.Offset(0, -3)
   
5.        Range(Target(1).Offset(1, -9), Target(1).Offset(1, -9).End(xlDown)).EntireRow.Hidden = True
   
6.        Target.Offset(, -3) = Target.Value
   
7.        Range("G:J").EntireColumn.AutoFit
   
8.        Range("AA1") = 1
   
9.      End If
   
10.      Select Case Target(1).Address(0, 0)
    
11.         Case "J1"
    
12.           ÁÙ­ì
    
13.     End Select
    
14. End Sub

½Æ»s¥N½X

¤@¯ë¼Ò²Õ

1. Sub ÁÙ­ì() 'J1
   
2.    Sheet1.[x] = [Y3]
   
3.     Range("Y3,AA1") = ""
   
4.     Rows("3:1443").EntireRow.Hidden = False
   
5. End Sub

½Æ»s¥N½X