ªð¦^¦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)

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

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

TOP

        ÀR«ä¦Û¦b : ¡i¬O§_µo´§¤F¨}¯à¡H¡j¤H¶¡¹Ø©R¦]¬°µu¼È¡A¤~§óÅã±o¬Ã¶Q¡CÃø±o¨Ó¤@½ë¤H¶¡¡AÀ³°Ý¬O§_¬°¤H¶¡µo´§¤F¦Û¤vªº¨}¯à¡A¦Ó¤£­n¤@¨ý¨Dªø¹Ø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD