Hsieh

¦^´_ 1# koiiven

1. Sub Macro1()
   
2. '
   
3. ' Macro1 Macro
   
4. '
   
5. 
   
6. '
   
7. k = InputBox("¿é¤J³Ì²×¦C¦ì", , 532)
   
8.     Sheets("­ì©lÀÉ").Select
   
9.     Range("B5:D" & k).Select   '¬O§_¯à¦bExcelÀx¦s®æª½±µ¿é¤J¼Æ¦r½d³ò¦Óª½±µ±a¤JRange()?
   
10.     Selection.Copy
    
11.     Sheets("A1").Select
    
12.     Range("C7").Select
    
13.     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    
14.         :=False, Transpose:=False
    
15.     Sheets("­ì©lÀÉ").Select
    
16.     Range("H5:H" & k).Select   '¬O§_¯à¦bExcelÀx¦s®æª½±µ¿é¤J¼Æ¦r½d³ò¦Óª½±µ±a¤JRange()?
    
17.     Application.CutCopyMode = False
    
18.     Selection.Copy
    
19.     Sheets("A1").Select
    
20.     Range("F7").Select
    
21.     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    
22.         :=False, Transpose:=False
    
23.     Sheets("­ì©lÀÉ").Select
    
24.     Range("G5:G" & k).Select   '¬O§_¯à¦bExcelÀx¦s®æª½±µ¿é¤J¼Æ¦r½d³ò¦Óª½±µ±a¤JRange()?
    
25.     Application.CutCopyMode = False
    
26.     Selection.Copy
    
27.     Sheets("A1").Select
    
28.     Range("G7").Select
    
29.     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    
30.         :=False, Transpose:=False
    
31.     Sheets("­ì©lÀÉ").Select
    
32.     Range("I5:I" & k).Select   '¬O§_¯à¦bExcelÀx¦s®æª½±µ¿é¤J¼Æ¦r½d³ò¦Óª½±µ±a¤JRange()?
    
33.     Application.CutCopyMode = False
    
34.     Selection.Copy
    
35.     Sheets("A1").Select
    
36.     Range("H7").Select
    
37.     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    
38.         :=False, Transpose:=False
    
39.     Application.WindowState = xlNormal
    
40.     Range("A7").Select
    
41.     Application.CutCopyMode = False
    
42.     ActiveCell.FormulaR1C1 = "1"
    
43.     Range("A8").Select
    
44.     ActiveCell.FormulaR1C1 = "2"
    
45.     Range("A7:A8").Select
    
46.     Selection.AutoFill Destination:=Range("A7:A" & k + 2), Type:=xlFillDefault '¬O§_¯à¦bExcelÀx¦s®æª½±µ¿é¤J¼Æ¦r½d³ò¦Óª½±µ±a¤JRange()?
    
47.     Range("I7").Select
    
48.     ActiveCell.FormulaR1C1 = "500"
    
49.     Range("I7").Select
    
50.     Selection.AutoFill Destination:=Range("I7:I" & k + 2), Type:=xlFillDefault '¬O§_¯à¦bExcelÀx¦s®æª½±µ¿é¤J¼Æ¦r½d³ò¦Óª½±µ±a¤JRange()?
    
51.     Range("J7").Select
    
52.     ActiveCell.FormulaR1C1 = "=IF(RC[-2]>RC[-1],""¬O"",""§_"")"
    
53.     Range("J7").Select
    
54.     Selection.AutoFill Destination:=Range("J7:J" & k + 2), Type:=xlFillDefault '¬O§_¯à¦bExcelÀx¦s®æª½±µ¿é¤J¼Æ¦r½d³ò¦Óª½±µ±a¤JRange()?
    
55.    
    
56. End Sub

½Æ»s¥N½X