函数为符合特定条件的单元格着色

如何解决函数为符合特定条件的单元格着色

我想编写一个函数 color_yellow(table As Range) 来输出带有颜色小于 0.5 的单元格的表格。

示例

我的伪代码：

Function color_yellow(table As Range)
    Dim temp As Variant,i As Long
    temp = table.Value

    For i = 1 To UBound(temp,1)
        If temp(i,1) < 0.5 Then
           fill_with_yellow (temp(i,1))
        End If
    Next
   
    color_yellow = temp

End Function

我称它为“伪代码”是因为没有fill_with_yellow这样的函数。你知道我应该用什么来替换 fill_with_yellow(temp(i,1)) 以获得预期的结果吗？

编辑

使用条件格式： 我发现我感兴趣的颜色编号为 65535。

我知道如果我想要我的病情，我只需要使用 :

With Cells(1,1).FormatConditions.add(xlCellValue,xlLess,"=0.5")
    .Color = 65535
    .StopIfTrue = False
End With

但我不确定如何将其添加到我的函数 color_yellow 中。