Excel 启动代码时接收1004错误

我正在尝试执行一些小程序，我有1004个错误 这是我的密码

Sub program2()
    With Worksheets("Test")
        .Range("a1").Value = "Test"
        .Range("b1") = "Test"
        .Cells(2, 2) = "Test"
        .Range("b2").Font.ColorIndex = 3
    End With
    With Range("a1:b1").Font = 9
        .Bold = True
        .Name = "Arial"
        .Size = 16
        .ColorIndex = 5
    End With
End Sub

谁能告诉我，怎么了？谢谢

试试看

With Range("a1:b1").Font
    '.Size = 9   ' 9 or 16; not both
    .Bold = True
    .Name = "Arial"
    .Size = 16
    .ColorIndex = 5
End With

---

以下是您要查找的内容：

Sub program2()
    With Worksheets("Test")
        .Range("a1").Value = "Test"
        .Range("b1") = "Test"
        .Cells(2, 2) = "Test"
        .Range("b2").Font.ColorIndex = 3
    End With
    With Range("a1:b1").Font
        .Bold = True
        .Name = "Arial"
        .Size = 16
        .ColorIndex = 5
    End With
End Sub