Excel公式在同一行中輸入綠色單元格的數值

Question

我想在excel VBA中輸入公式時需要一些幫助我假設在不同的列中輸入某種突出顯示顏色（在這種情況下為綠色）的所有數字，但在列范圍內的同一行中。

表格 1

為了讓事情更清楚，我上傳了上面的圖片。 該圖中的表格在最右邊的列中說明了我想要的結果。 如果可以顯示兩個或多個相同顏色的單元格值，我也希望它。

綠色細節： http : //www.htmlcsscolor.com/hex/00B050

任何幫助將不勝感激，請向我詢問您需要的任何問題。 謝謝你。

編輯：如果可能的話，我可以得到一個代碼，在單獨的列中顯示兩個或多個綠色單元格值，而不是與 + 號一起顯示嗎？

Answer 1

您的數據似乎在 Excel 表格中

假設是這樣並且表名是“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