ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

½Ð°Ý Ctrl + Home À³¸ÓÂI¼g

½Ð°Ý Ctrl + Home À³¸ÓÂI¼g

½Ð°Ý¨ìµøµ¡¥k¤U¨¤ end+home  ¬O xlLastCell
­YªG·Q¨ìµøµ¡¥ª¤W¨¤, À³¸ÓÂI¼g©O
½Ð«ü±Ð

Range("A1").Select

TOP

·í­áµ²µøµ¡«á, ¦p¦óªð¨ì§@¥Îµøµ¡ªº¥ª¤W¨¤

TOP

¦^´_ 3# enoch

»P­áµ²µøµ¡µLÃö
ªð¦^§@¥Îµøµ¡ªº¥ª¤W¨¤
Range("a1").Select
Cells(1,1).Select
[a1].Select

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2012-6-27 11:51 ½s¿è

¦^´_ 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

TOP

        ÀR«ä¦Û¦b : ¤@¥y·Å·xªº¸Ü¡A´N¹³©¹§O¤H¨­¤WÅx­»¤ô¡A¦Û¤v·|ªg¨ì¨â¤Tºw¡C
ªð¦^¦Cªí ¤W¤@¥DÃD