Excel VBA - 设置单元格颜色时的VLookup [重复]

Question

我在这里创建了一个“颜色函数”，目的是在当前单元格背景颜色设置为 vbRed 或 rgb(255,0,0) 时运行 VLookup。现在，VLookup 正在从我的工作表中查找 SKU 编号，该编号在当前单元格左侧偏移 8 列，并查看我的第二张工作表“订单指南”范围 A:AD 以提取相应的数据。

目前它只返回#NAME？即使我可以手动验证两个 SKU 都在 适当的位置。我现在的函数写成：

Function ColorFunction(Rge As Range) As String

Dim Sheet As Worksheet
Dim SKUColumn As Range
Dim MyRange as Range

Set Sheet = ActiveWorkbook.Sheets("Order Guide")
Set SKUColumn = Rge.Offset(0, -8)
Set MyRange = Sheet.Range("A:AD")

If Application.ThisCell.Interior.Color = vbRed Then ColorFunction = 
Application.ThisWorkbook.VLookup(SKUColumn, MyRange, 30, False)

End Function

Module Location

不完全确定我在这里缺少什么......

Answer 1

工作簿没有VLookup-方法。

任意使用

ColorFunction = Application.Vlookup(SKUColumn, MyRange, 30, False)

如果 VLookup 找不到该值，这将返回常见的 #N/A。

或使用

ColorFunction = "(not found)"
On Error Resume Next
ColorFunction = WorksheetFunction.VLookup(SKUColumn, MyRange, 30, False)
On Error Goto 0

WorksheetFunction 将引发运行时错误。如果您不处理该错误，如果未找到该值，您将在单元格中收到 #VALUE-error。在我的示例中，我改为返回 "(not found)"。

更新（叹息，没有阅读已删除的问题，我想我们不应该这样做）
如果 Excel 找不到 VBA 函数，则会出现 #Name-错误。可能是由于

• 函数不公开
• 函数不在常规模块中
• 模块不在当前工作簿或引用的工作簿中
• 模块名称和函数名称相同

（如果有人知道其他原因，请随时补充......）