excel - 在 VBA 中使用 IF

Question

谁能告诉我这是否是表达这个 VBA 宏的正确方法？

它的想法是检查 A2:A70 范围内的所有单元格(实际上，如果更容易的话，可能是 A 列的所有单元格)，如果 FA_Win_2 或 FA_Win_3 的文本在那里，请将单元格设为粗体。

If Range(“A2:A70”) = FA_Win_2 Or _
   Range(“A2:A70”) = FA_Win_3 Then
   Range(“A2:A70”).font.Bold = “True”
End If

我尝试了不同的方法，例如将 FA_Win_2 包含在“”中，在范围后添加 .Value，但总是出现编译错误。

任何帮助将不胜感激。

干杯

Answer 1

我的方法是设置 .Font.Bold = TRUE/FALSE等于你的测试语句。

我不确定您是否真的只需要遍历此范围，但您可以通过交换 70 轻松更新以使其更具动态性。到变量最后一行 calc

Sub Test()

Dim i as Long

With ThisWorkbook.Sheets("Sheet1") '<-- Update
    For i = 2 To 70
        .Range("A" & i).Font.Bold = .Range("A" & i) = "FA_Win_2" Or .Range("A" & i) = "FA_Win_3"
    Next i
End With

End Sub