更改多个单元属性VBA

Question

如果我有一条线

Range("S434").Value = "whatever"

我可以加贴

.Font.Color = vbRed

最后某种程度上，还是我需要换行？感谢

Answer 1

一般：

Sub uncle()
    With Range("s434")
        .Value = "whatever"
        .Font.Color = vbRed
    End With
End Sub

但：

Sub uncle()
    With Range("s434")
        .Value = "whatever": .Font.Color = vbRed
    End With
End Sub

也可以（使用冒号允许在一条物理线路上输入几行逻辑代码）

此引用适用于VB.NET，但它也主要适用于VBA：

splitting or combining lines of code

Answer 2

或者您可以构建一个“帮助者”子来完成所有工作，并且只在“主”代码中使用一个代码行来调用它：

Sub DoAll(rng As Range, myValue As Variant, myColor As Long)
    With rng
        .Value = myValue
        .Font.Color = myColor
    End With
End Sub

这样你的“主要”代码就是

‘.... your code
DoAll Range("s434"), "whatever", vbRed
‘... rest of your code