使用Excel宏录制了解VBA的API以及文件打开自动运行脚本

因一个朋友问起如何实现定时更改Excel的颜色，就此临时存个东西，到时候好跟他说

Sub Macro()
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "123"
    Range("A1").Select
    Selection.Copy
    Range("A7:C8").Select
    ActiveSheet.Paste
    Range("A13:B13").Select
    ActiveSheet.Paste
    Range("A13").Select
    With Selection.Interior
        .ColorIndex = 6
        .Pattern = xlSolid
    End With
    Selection.Copy
    Range("A19:E24").Select
    ActiveSheet.Paste
    Range("C21").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("A24").Select
    Selection.Copy
    Range("A28:G33").Select
    ActiveSheet.Paste
    Range("A28:C33").Select
    Selection.Font.ColorIndex = 7
    ActiveWorkbook.Save
End Sub

Sub Auto_Open()
    Application.OnTime Now + TimeValue("00:00:10"), "Macro"
End Sub