跨一系列单元格的 Excel 自定义函数 - 生成单个单元格答案

【问题标题】：Excel Custom Function across a range of cells - Results in a single cell跨一系列单元格的 Excel 自定义函数 - 生成单个单元格
【发布时间】：2020-11-05 07:29:45
【问题描述】：

我希望有人可以提供帮助。我正在尝试将一个非常混乱的电子表格中的 csv 文件放在一起。我编写了下面的函数，该函数在单个单元格上运行良好并返回正确的响应；红色填充='排除，'绿色填充='""，'

Function CheckColor1(range)
    If range.Interior.Color = RGB(255, 0, 0) Then
        CheckColor1 = "exclude," & " "
    ElseIf range.Interior.Color = RGB(146, 208, 80) Then
        CheckColor1 = """" & """, "
    Else
        CheckColor1 = ""
    End If
End Function

我想做的是将此函数应用于一行数据，并将每个单元格的响应写入一个单个单元格作为排除或“”，.

因此，根据单元格颜色，A1 到 Z1 将返回单个单元格，写为；排除、排除、“”、排除、“”等。

我希望这是有道理的，并且有人可以提供帮助。

非常感谢 D

【问题讨论】：

您需要循环 range 并连接每个部分。
是否需要返回多个值？如果您的范围包含不同的颜色会怎样？
@Tarik 不，它很酷只有 2 个值红色、绿色或空白。 BigBen 成功了

标签： excel function csv excel-formula

【解决方案1】：

循环范围：

Function CheckColor1(ByVal inputRange As Range) As String
    Dim cell As Range
    For Each cell In inputRange
        Dim temp As String

        If cell.Interior.Color = RGB(255, 0, 0) Then
            temp = "exclude," & " "
        ElseIf cell.Interior.Color = RGB(146, 208, 80) Then
            temp = """" & """, "
        Else
            temp = ""
        End If

        CheckColor1 = CheckColor1 & temp
   Next
End Function

【讨论】：

谢谢这么多伙计，很有魅力。把我从最后期限的失败中拯救出来。