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