VBA for excel，包含一个条件

我有一个简单的子程序以某种方式格式化选定的单元格 我希望在这个过程中有一个条件，这样匹配条件的选定单元格将接收特定格式，而其他单元格将接收另一种格式

我可以用一个简单的循环来完成，但我的问题是专门针对

with

是否有类似于：

With Selection
    value > 10 THEN HorizontalAlignment = xlCenter
End With

---

您可以使用中的条件。只需使用常规语法即可。
例如，您想将单元格A1的值更改为“我的值”，如果单元格A2的值大于10，则更改单元格A1的水平对齐方式。
这看起来像：

With Sheets("nameofasheet").Range("A1")
    .Value = "my Value"
    If Sheets("nameofasheet").Range("A2").Value > 10 Then
        .HorizontalAlignment = xlCenter
    End If
End With

---

如果值>10，则

With

用于更改同一对象的多个属性，您可以在其中使用标准的

IF

说明，但不能使用您编写的方式，只需使用标准的

IF

syntaxinside？我会写一个正确的答案您不能在excel中使用条件格式吗，而不是用VBA来做这个？