- ©«¤l
- 4901
- ¥DÃD
- 44
- ºëµØ
- 24
- ¿n¤À
- 4916
- ÂI¦W
- 255
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 20xx
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-4-30
- ³Ì«áµn¿ý
- 2024-11-25
|
¦^´_ 1# koiiven - Sub Macro1()
- '
- ' Macro1 Macro
- '
- '
- k = InputBox("¿é¤J³Ì²×¦C¦ì", , 532)
- Sheets("ì©lÀÉ").Select
- Range("B5:D" & k).Select '¬O§_¯à¦bExcelÀx¦s®æª½±µ¿é¤J¼Æ¦r½d³ò¦Óª½±µ±a¤JRange()?
- Selection.Copy
- Sheets("A1").Select
- Range("C7").Select
- Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
- :=False, Transpose:=False
- Sheets("ì©lÀÉ").Select
- Range("H5:H" & k).Select '¬O§_¯à¦bExcelÀx¦s®æª½±µ¿é¤J¼Æ¦r½d³ò¦Óª½±µ±a¤JRange()?
- Application.CutCopyMode = False
- Selection.Copy
- Sheets("A1").Select
- Range("F7").Select
- Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
- :=False, Transpose:=False
- Sheets("ì©lÀÉ").Select
- Range("G5:G" & k).Select '¬O§_¯à¦bExcelÀx¦s®æª½±µ¿é¤J¼Æ¦r½d³ò¦Óª½±µ±a¤JRange()?
- Application.CutCopyMode = False
- Selection.Copy
- Sheets("A1").Select
- Range("G7").Select
- Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
- :=False, Transpose:=False
- Sheets("ì©lÀÉ").Select
- Range("I5:I" & k).Select '¬O§_¯à¦bExcelÀx¦s®æª½±µ¿é¤J¼Æ¦r½d³ò¦Óª½±µ±a¤JRange()?
- Application.CutCopyMode = False
- Selection.Copy
- Sheets("A1").Select
- Range("H7").Select
- Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
- :=False, Transpose:=False
- Application.WindowState = xlNormal
- Range("A7").Select
- Application.CutCopyMode = False
- ActiveCell.FormulaR1C1 = "1"
- Range("A8").Select
- ActiveCell.FormulaR1C1 = "2"
- Range("A7:A8").Select
- Selection.AutoFill Destination:=Range("A7:A" & k + 2), Type:=xlFillDefault '¬O§_¯à¦bExcelÀx¦s®æª½±µ¿é¤J¼Æ¦r½d³ò¦Óª½±µ±a¤JRange()?
- Range("I7").Select
- ActiveCell.FormulaR1C1 = "500"
- Range("I7").Select
- Selection.AutoFill Destination:=Range("I7:I" & k + 2), Type:=xlFillDefault '¬O§_¯à¦bExcelÀx¦s®æª½±µ¿é¤J¼Æ¦r½d³ò¦Óª½±µ±a¤JRange()?
- Range("J7").Select
- ActiveCell.FormulaR1C1 = "=IF(RC[-2]>RC[-1],""¬O"",""§_"")"
- Range("J7").Select
- Selection.AutoFill Destination:=Range("J7:J" & k + 2), Type:=xlFillDefault '¬O§_¯à¦bExcelÀx¦s®æª½±µ¿é¤J¼Æ¦r½d³ò¦Óª½±µ±a¤JRange()?
-
- End Sub
½Æ»s¥N½X |
|