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

¦p¦ó¦bÅã¥Ü¸ê®Æ³Ì«á¤@µ§«á~±N³Ì«á¤@µ§Åã¥Ü¦b²Ä2¦C(G¤jÁÂÁÂ)

¦p¦ó¦bÅã¥Ü¸ê®Æ³Ì«á¤@µ§«á~±N³Ì«á¤@µ§Åã¥Ü¦b²Ä2¦C(G¤jÁÂÁÂ)

¥»©«³Ì«á¥Ñ av8d ©ó 2012-7-12 15:47 ½s¿è

Åã¥Ü¸ê®Æ³Ì«á¤@µ§   
ActiveSheet.Range("A1048576").End(xlUp).Select

³Ì«á¤@µ§Åã¥Ü¦b²Ä2¦C¡A°µªk´N¬O§â¥kÃ䪺´Î¤l©¹¤U©Ô

¦^´_ 1# av8d
¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Sub Ex()
  3.     Dim xlRow As Long
  4.     xlRow = Rows.Count
  5.     ActiveWindow.ScrollRow = ActiveSheet.Range("A" & xlRow).End(xlUp).Row - 1  'Åã¥Ü2¦C
  6. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¯Ê¤fªºªM¤l¡A¦pªG´«¤@­Ó¨¤«×¬Ý¥¦¡A¥¦¤´µM¬O¶êªº¡C
ªð¦^¦Cªí ¤W¤@¥DÃD