GBKEE

¦^´_ 3# enoch

1. Option Explicit
   
2. Sub Ex() '­áµ²µøµ¡ ¤À³Îµøµ¡ ¤¤  ²¾°Ê¨ì§@¥Îµøµ¡ªº¥ª¤W¨¤
   
3.     Dim Rng As Range, xlRow As Integer, xlCol As Integer
   
4.     With ActiveWindow
   
5.         If .Split = False Then          '¨S¤À³Îµøµ¡
   
6.             [a1].Select
   
7.             Exit Sub
   
8.         End If
   
9.         Set Rng = Selection.Cells(1)    '³]¥ß §@¥Î¤¤ªºÀx¦s®æ
   
10.         xlRow = .SplitRow               '¤À³Î¦¨µ¡®æ³Bªº¦C¼Æ
    
11.         xlCol = .SplitColumn            '¤À³Î¦¨µ¡®æ³BªºÄæ¼Æ
    
12.     End With
    
13.     If Rng.Row <= xlRow Then            '©Ò¦b¦C¼Æ ¤p©óµ¥©ó ¤À³Î¦¨µ¡®æ³Bªº¦C¼Æ
    
14.         If Rng.Column <= xlCol Then     '©Ò¦bÄæ¼Æ ¤p©óµ¥©ó ¤À³Î¦¨µ¡®æ³BªºÄæ¼Æ
    
15.             Cells(1, 1).Select
    
16.         Else                            '©Ò¦bÄæ¼Æ ¤j©ó ¤À³Î¦¨µ¡®æ³BªºÄæ¼Æ
    
17.             Cells(1, xlCol + 1).Select
    
18.         End If
    
19.     Else                               '©Ò¦b¦C¼Æ ¤j©ó ¤À³Î¦¨µ¡®æ³Bªº¦C¼Æ
    
20.         If Rng.Column <= xlCol Then
    
21.             Cells(xlRow + 1, 1).Select
    
22.         Else
    
23.             Cells(xlRow + 1, xlCol + 1).Select
    
24.         End If
    
25.     End If
    
26. End Sub
    
27. Sub Ex_1() '­áµ²µøµ¡ ¤À³Îµøµ¡ ¤¤ ²¾°Ê¨ì¥k¤Uµøµ¡ªº¥ª¤W¨¤
    
28.     Application.SendKeys "^{HOME}"
    
29. End Sub

½Æ»s¥N½X