Question

VBA中的With

With Range("A1")
With Font
.Bold = True
.Color = vbRed
End With
End With
求问各路大神，这段代码哪里有错？Debug说 .Blod = True 有误。。。
先谢谢啦~~~

Answer 1

With Range("A1")
With .Font '此行代码中的Font必须加点，代表的是 Range("A1").Font否则系统认不出Font是什么，只能报错
.Bold = True
.Color = vbRed
End With
End With

Answer 2

With Range("A1")
With .Font
.Bold = True
.Color = vbRed
End With
End With
因为Font是Range（“A”）的一个属性，具体可查看VBE中对象浏览器。

Answer 3

With Range("A1").Font
.Bold = True
.Color = vbRed
End With
这样就OK了