lpk187

¦^´_ 1# aweihsu
·í²Ä¤G¦C¦³¿é¤J­È·|°±¯d¦b²Ä5¦C¡A¦Ó·í²Ä2¦C©M²Ä5¦C¦³­È®É¡A«h°±¯d¦b²Ä7¦C¡A²Ä5¦C©M²Ä7¦C¥¼¿é¤J­È«hÂI¿ï¨ä¥LÀx¦s®æ«á³£·|¸õ¦^¥¼¿é¤J­Èªº²Ä5¦C©Î²Ä7¦C

1. Option Explicit
   
2. 
   
3. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
4.     Dim Rng As Range, Col%
   
5.     For Each Rng In Target
   
6.         Col = Cells(2, Columns.Count).End(xlToLeft).Column
   
7.         If Cells(2, Col) <> "" Then
   
8.             If Cells(5, Col) = "" Then
   
9.                 Cells(5, Col).Select
   
10.                 Exit For
    
11.             ElseIf Cells(7, Col) = "" Then
    
12.                 Cells(7, Col).Select
    
13.                 Exit For
    
14.             End If
    
15.         End If
    
16.     Next
    
17. End Sub
    
18. 
    
19. Private Sub ­×§ï¼Ò¦¡_Click()
    
20.     Application.EnableEvents = False
    
21. End Sub
    
22. 
    
23. Private Sub ¿é¤J¼Ò¦¡_Click()
    
24. Application.EnableEvents = True
    
25. End Sub

½Æ»s¥N½X