GBKEE

¦^´_ 3# vic

¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim i As Integer
   
4.     With Workbooks(1)       '²Ä¤@­Ó¬¡­¶Ã¯
   
5.         .Activate           '¦¨¬°§@¥Î¤¤ªº¬¡­¶Ã¯
   
6.         With ActiveWindow   '§@¥Î¤¤ªº¬¡­¶Ã¯
   
7.             .NewWindow   '·s¶}Window(µøµ¡)
   
8.         
   
9.         End With
   
10.     End With
    
11.     Windows.Arrange ArrangeStyle:=xlHorizontal
    
12. 
    
13.     'Arrange : ¹ï¿Ã¹õ¤Wªºµøµ¡¶i¦æ±Æ¦C¡C
    
14.     With Workbooks(1).Windows
    
15.         '²Ä¤@­Ó¬¡­¶Ã¯,Windows ¶°¦X¡A¦¹¶°¦X¥Nªí«ü©w¬¡­¶Ã¯¤¤ªº©Ò¦³µøµ¡¡C
    
16.         For i = 1 To .Count
    
17.             .Item(i).ScrollRow = i * 15
    
18.         Next
    
19.     End With
    
20. End Sub

½Æ»s¥N½X