¤W²¾

myleoyes

¦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!!

GBKEE

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

myleoyes

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