获取颜色并进行计算

问题描述 投票:0回答:1

我想在C3:C5中执行此操作-如果其他单元(月)的颜色为绿色,则将总值减去绿色值,如果单元为红色,则不执行任何操作。

例如-项目2-我总共有200个,并且在15年1月1日有1个单元格带有绿色和其他红色,因此它将是200-100 = 100(值)

项目3-我总共有300个,并且在15年2月1日和15年3月1日有绿色,所以它将是300-100-150 = 50(按值)

我想在VBA上做,但没有必要

Image Link

vba excel-vba excel-2010 cell background-color
1个回答
0
投票

尝试一下(这是绿色的#4)

Sub Roeid()
    Dim N As Long, i As Long
    N = Cells(Rows.Count, "A").End(xlUp).Row

    For i = 2 To N
        v = Cells(i, "B").Value
        For Each a In Array("D", "E", "F", "G")
            If Cells(i, a).Interior.ColorIndex = 4 Then
                v = v - Cells(i, a).Value
            End If
        Next a
        Cells(i, "C").Value = v
    Next i
End Sub
© www.soinside.com 2019 - 2024. All rights reserved.