颜色索引键

Question

所以我对 VBA 有点陌生，所以提前感谢您的所有帮助。我实际上想要做的是一个基于颜色键的 Vlookup 函数。我完全不熟悉如何在 if 函数中执行此操作，但我会尝试在此处列出变量。

我想查看 B2:038 范围（有颜色但没有值），如果它们的颜色索引与我在 A40:A46 中的键相同，请将相应单元格的值粘贴到键中。

A40's RGB= 0, 154, 61
A41's RGB= 146, 208, 80
A42's RGB= 255, 210, 0
A43's RGB = 227, 27, 35
A44's RGB= 191, 232, 255
A45's RGB= 200, 200, 200
A46 has no color

Answer 1

你不能用一个简单的公式来做，但你可以用一个宏：

Sub PopulateArray()

   For i = 2 To 38
      For j = 2 To 15
         For k = 40 To 46
            If Cells(i, j).Interior.Color = Range("A" & k).Interior.Color Then
               Cells(i, j) = Range("A" & k).Text
               Exit For
            End If
         Next k
      Next j
   Next i

End Sub

当您执行此宏时，您会扫描所有 B2:O38 范围，并测试其背景颜色是否等于 A40:A46 范围之一。如果是这样，您将在 A40:A46 范围内找到的相应文本转移到当前单元格中。

如果要更改字体颜色，请将单词 Interior 替换为 Font。