Excel 用于在同一行中输入绿色单元格数值的公式

Question

我想在 excel 中输入公式方面得到一些帮助 VBA 我假设在不同的列中输入特定突出显示颜色（在本例中为绿色）的所有数字，但在列范围内的同一行。

Excel Table 1

为了让事情更清楚，我在上面上传了一张图片。该图像中的 table 在最右边的列中说明了我想要的结果。如果可以显示相同颜色的两个或多个单元格值，我也很喜欢。

绿色细节：http://www.htmlcsscolor.com/hex/00B050

如有任何帮助，我们将不胜感激，如有任何疑问，请咨询我。谢谢。

编辑：如果可能的话，我能否获得一个代码，在单独的列中显示两个或多个绿色单元格值，而不是与 + 号一起显示？

Answer 1

您的数据似乎在 Excel Table

假设是这样并且 table 名字是 "MyTable" 你可以试试这个代码：

Option Explicit

Sub main()
    Dim row As ListRow
    Dim icol As Long
    Dim formula As String

    For Each row In ActiveSheet.ListObjects("MyTable").ListRows
        formula = ""
        For icol = 1 To row.Range.Count - 1
            With row.Range(1, icol)
                If .Interior.Color = RGB(0, 176, 80) Then formula = formula & .value & "+" '.Address(False, False)
            End With
        Next icol
        If formula <> "" Then row.Range(1, icol).value = Left(formula, Len(formula) - 1)
    Next row
End Sub

Excel 用于在同一行中输入绿色单元格数值的公式

Excel Formula to type in numeric value of green cells in the same row

excel

vba

excel-formula

excel-udf