大于使用VBA的条件格式

Question

您好我从网站使用带有XMLHTTP请求的自定义函数获取一些数据现在我需要对复制数据应用一些格式化条件，我希望使用VBA提供一些建议：

活跃的细胞＆＃34; B＆＃34;专栏

小于10红色 10到15之间的黄色 超过15绿色

所有未返回任何数字的单元格应为空白

THX

Answer 1

有两种方法可以做到这一点：

简单方法：

使用Excel内置条件格式设置（选择范围并点击主页标签＆gt; 条件格式＆gt;添加规则或选择来自默认规则 - 我认为它有足够的选项供您满足。）

哲学方法：

从VBA IDE添加新模块。

复制并粘贴此代码：

 Sub ColorRange()
Dim d as Double
Dim r As Range
Set r = ActiveSheet.Range("B1:B500")
For Cell in r
If Cell.Text <> "" And IsNumeric(Cell.Value) = True Then
If Cell.Text < 10 Then
Cell.Interior.Color = RGB(255, 0, 0)
ElseIf Cell.Text >= 10 And Cell.Text <= 15 Then
Cell.Interior.Color = RGB(255, 255, 0)
Else
Cell.Interior.Color = RGB(0, 255, 0)
End If
End If
Next
End Sub

并运行宏。

这是一个输出示例：

我推荐哪一个？

我建议您使用条件格式，如果旧的内置Excel功能可以处理它，则无需使用VBA魔法，除非您需要另外证明。