按颜色求和

hnandi

想求有颜色单元格总和，且在一定范围内的数或者是具体的数值

swl4561255

1. Sub test()
   
2. Dim myr As Range
   
3. For Each myr In Range("B2:AO2")
   
4.     If myr.Interior.ColorIndex = 36 And myr = 1 Then
   
5.         s = s + myr.Value
   
6.     End If
   
7. Next
   
8. [AR2] = s
   
9. End Sub

复制代码

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.4.8
   
2.     c = ActiveSheet.UsedRange.Columns.Count
   
3.     Sum = 0
   
4.     For j = 2 To c
   
5.         If Cells(2, j) = 1 Then
   
6.             For ColorIndex = 1 To 64
   
7.                 If Cells(2, j).Interior.ColorIndex = ColorIndex Then
   
8.                     Sum = Sum + Cells(2, j).Value
   
9.                 End If
   
10.             Next
    
11.         End If
    
12.     Next
    
13.     MsgBox "合计值=" & Sum
    
14. End Sub
    

复制代码

hnandi

ykcbf1100 发表于 2024-4-8 07:41
附件供参考。。。

谢谢解答，但这不是我想要的答案。我意思是自定义函数sumcolor，在ar2h上输入sumcolor(取值区域，任意颜色单元格，“=1”）就可以显示结果，这个代码要怎么写？

limonet

=SumIfsColor(B2:AO2,B2,1)

limonet

Function SumIfsColor(Rng As Range, CRng As Range, i As Integer) As Integer
    Dim C As Range
    For Each C In Rng
        If C.Interior.Color = CRng.Interior.Color And C.Value = i Then
            SumIfsColor = SumIfsColor + 1
        End If
    Next
End Function

limonet

抱歉，发重了。

hnandi

limonet 发表于 2024-4-8 08:44
=SumIfsColor(B2:AO2,B2,1)

非常感谢

ykcbf1100

hnandi 发表于 2024-4-8 08:15
谢谢解答，但这不是我想要的答案。我意思是自定义函数sumcolor，在ar2h上输入sumcolor(取值区域，任意颜 ...

改为自定义函数