koiiven

°õ¦æOK
·PÁ¤j¤jÀ°¦£

¤p§Ì·Q½Ð°ÝRangeªº°ÝÃD

1. Sub Macro2()
   
2. Dim j&
   
3. Dim k&
   
4. k = InputBox("Á`¼Æ¶q", , 0)
   
5. 
   
6. Do Until s >= k
   
7. i = InputBox("¿é¤J¦WºÙ", , 0)
   
8. j = InputBox("¿é¤J¼Æ¶q", , 0)
   
9.    
   
10.     Sheets("ªÅ¥Õªí®æ").Select
    
11.     Sheets("ªÅ¥Õªí®æ").Copy After:=Sheets(2)
    
12.     Sheets(3).Select
    
13.     Sheets(3).Name = i
    
14.    
    
15.     Sheets("­ì©lÀÉ").Select
    
16.     Range("B5").Offset(s, 0).Resize(j, 3).Select
    
17. s = s + j
    
18.     Selection.Copy
    
19.     Sheets(3).Select
    
20.     Range("C7").Select
    
21.     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    
22.         :=False, Transpose:=False
    
23.    
    
24.     Sheets("­ì©lÀÉ").Select
    
25.     Range("H5").Offset(s, 0).Resize(j, 1).Select   '·|¿ï¾ÜH8¨ìH10   ¸Ó¦p¦ó­×§ï¤~¯à¿ï¾ÜH5¨ìH7©O?
    
26. s = s + j
    
27.     Selection.Copy
    
28.     Sheets(3).Select
    
29.     Range("F7").Select
    
30.     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    
31.         :=False, Transpose:=False
    
32. 
    
33. Loop
    
34. 
    
35. End Sub

½Æ»s¥N½X

°²³]j¿é¤J3
µ{¦¡·|¿ï¾Ü(B5:D7)ªº½d³ò

¦ý¨ì¤FH5®É
«hª½±µ±qH8¶}©l¿ï¾Ü

¦pªG·Q¤@¼Ë±qH5¶}©l¿ï¾Ü
½Ð°Ý¸Ó¦p¦ó­×§ï?

·PÁ¤j¤j

Hsieh

¦^´_ 1# koiiven

1. Sub nn()
   
2. Dim j&
   
3. Do Until s >= 100
   
4. j = InputBox("¿é¤J¼Æ¶q", , 0)
   
5.     Range("B5").Offset(s, 0).Resize(j, 3).Select
   
6. s = s + j
   
7. Loop
   
8. End Sub

½Æ»s¥N½X