excel 100内加减法自动出题及评分

VBA | 2016-05-30 21:39:09 | 12737次阅读 | 0评
Sub Macro5()
'
' Macro5 Macro
' qunxingw  2016/5/21 
全部录制。

'
    Sheets("Sheet3").Select
    Range("E1").Select
    Application.CutCopyMode = False
    Selection.AutoFill Destination:=Range("E1:E50")
    Range("E1:E50").Select
    Range("A1:C50").Select
    Selection.Copy
    Sheets("Sheet2").Select
    ActiveWindow.SmallScroll Down:=-15
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Sheet3").Select
    Range("G1:I50").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sheet2").Select
    Range("G1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub
100内加减法.xls (下载278次,上传于2016-05-30 21:39:09)
博友评论,共0条
浏览152299次