1

为什么下面的代码是错误的?

Sub SetFont()
    Dim a1 As Range
    Set a1 = Range("a1")
    SetFontSize (a1)
End Sub

Sub SetFontSize(target As Range)
    target.Font.Size = 11
End Sub

调用该方法时出现“运行时错误 424:需要对象”错误。SetFontSize

4

1 回答 1

4

您没有调用函数,调用时不需要括号SetFontSize (a1)

只需使用:

SetFontSize a1
于 2012-11-01T18:40:46.293 回答