Excel 无法为函数中的单元格区域着色

我试图给作为参数传递给函数的单元格着色，但它似乎不起作用。代码如下：

Sub my_test(Target As Range)

    With Target.Cells(1, 1).Interior
        .ColorIndex = 3
        .PatternColorIndex = xlAutomatic
    End With

End Sub


Function f_Lookup_domain(P_Cell_name As Range, ByVal P_Default As String) As String

    Call my_test(P_Cell_name)
    v_Cell_name = P_Cell_name.Value

    ' Application.Volatile
    'Lookup the domain of a signal from the cell name
    '
    v_temp = Application.VLookup(v_Cell_name, Range("n_IO_cell_lookup"), 2, False)
    If Application.IsError(v_temp) Then
        ' cell given is not a real IO cell, try to use default
        If P_Default = "CUT" Then
            v_temp = "Unknown"
        Else
            v_temp = P_Default
        End If
    End If
    f_Lookup_domain = v_temp

End Function

没有错误报告，函数返回正确的值<调用了代码>我的测试，但未绘制单元格。如果我使用以下测试台调用

my_test

：

Sub Testbench()

    Call my_test(Range("D10"))

End Sub

---

它确实正确地给电池着色。好像

P\u Cell\u name

的作用不像一个范围？任何人有什么想法吗？

一个名为like的用户定义函数不能修改范围或工作表的属性（与其值相关的属性除外），如果您尝试，它将自动失败

---

功能可能会有所帮助。

一个名为like的用户定义函数无法修改范围或工作表的属性（与其值相关的属性除外），如果您尝试，它将自动失败

---

功能可能会有所帮助。

以防万一相关-以下是我如何调用函数：=f_Lookup_domain（E17，D16）以防万一相关-以下是我如何调用函数：=f_Lookup_domain（E17，D16），这是我们今天连续第二次遇到这个函数；）谢谢你的链接。我试图替换条件格式，因为我现在有4种格式，而不是我原来的3种。我必须想出另一种方法。今天我们连续第二次遇到这种情况；）谢谢你的链接。我试图替换条件格式，因为我现在有4种格式，而不是我原来的3种。我必须想出另一种方法来做这件事。