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

¤W²¾

¤W²¾

¦U¦ì«e½ú§A­Ì¦n!
¡@¡@      «e½ú!°ÝÃD¦pªþÀÉ®×»¡©ú¡@
              Sub ¦ì²¾()
            If ActiveWindow.ScrollRow > 90 Then
            ActiveWindow.ScrollRow = 2
            Else
            ActiveWindow.ScrollRow = ActiveWindow.ScrollRow + 10
            End If
            End Sub
          ½Ðª¾¹Dªº«e½ú,¤£§[½ç±ÐÁÂÁ¦A¤T!!

Leov7.rar (8.01 KB)

¦^´_ 2# GBKEE
GBKEE«e½ú§A¦n!
¡@¡@¡@¡@ ¨}®v!!¯u¬O·P®¦...ÁÂÁ¦A¤T!!

TOP

¦^´_ 1# myleoyes
  1. Sub ¦ì²¾()
  2.     Dim ¦ì²¾¼Æ%
  3.     ¦ì²¾¼Æ = 12
  4.      If ActiveWindow.ScrollRow > ¦ì²¾¼Æ Then
  5.         ActiveWindow.ScrollRow = (ActiveWindow.ScrollRow + ¦ì²¾¼Æ + 1) - ActiveWindow.ScrollRow Mod ¦ì²¾¼Æ
  6.      ElseIf ActiveWindow.ScrollRow <= ¦ì²¾¼Æ Then
  7.         ActiveWindow.ScrollRow = ¦ì²¾¼Æ + 1
  8.      End If
  9. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¡i¦æµ½­n¤Î®É¡j¦æµ½­n¤Î®É¡A¥\¼w­n«ùÄò¡C¦p¿N¶}¤ô¤@¯ë¡A¥¼¿N¶}¤§«e¤d¸U¤£­n°±º¶¤õ­Ô¡A§_«h­«¨Ó´N¤Ó¶O¨Æ¤F¡C
ªð¦^¦Cªí ¤W¤@¥DÃD