大于使用VBA的条件格式

您好，我从网站使用XMLHTTP请求的自定义函数获取一些数据现在我需要应用一些格式条件来复制数据，我将不胜感激使用VBA的一些build议：

活动单元格“B”列

less于10个红色10至15个黄色超过15个绿色

所有不返回任何数字的单元格应该是空白的

谢谢

Answer 1

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

简单的方法：

使用Excel内置的条件格式（select您的范围，然后单击“ 常用”选项卡>“ 条件格式” >“添加规则”或从默认规则中select – 我认为它具有足够满足您的需要的广泛选项。

哲学的方式：

从您的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 

并运行macros。

这是一个输出示例：

我推荐哪一个？

我会build议你使用条件格式 ，如果好的内置Excelfunction可以处理它，不需要VBA魔术，除非你需要certificate。