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

-1

我想在Excel中输入公式的一些帮助VBA我假设在一个不同的列中输入某个突出显示颜色的所有数字（在这种情况下为绿色）但在列范围内的同一行中。Excel公式在同一行中键入绿色单元格的数值

Excel Table 1

为了让事情更清晰，我上传了上面的图像。该图中的表格以最右边的颜色显示了我期望的结果。如果可以显示两个或更多相同颜色的单元格值，我也会喜欢它。

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

任何帮助将不胜感激，并请问我你需要的任何查询。谢谢。

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

来源

2016-09-25 Yousef Alkaff

好像你的数据在一个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

来源

2016-09-25 15:28:41 user3598756

对不起，我不是Excel的专家，但我应该运行这个宏？当我在所选单元格上运行宏时，它不工作。请指教。谢谢。 –

“它不工作”是什么意思？请同时使用这两个代码_and_指定会发生什么（什么错误消息，引用什么......） – user3598756

我添加了一个新列，并在该列的最顶端的单元格中运行宏，并在左侧显示了绿色突出显示的单元格该列。运行宏后没有任何反应。没有错误信息或类似的东西。我在设计表选项卡下将表格重命名为“MyTable”。 –

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

回答

相关问题