[已解决]要根据条件格式产生的颜色来求和， 不是手动填充颜色求和

jiali0208

要根据条件格式产生的颜色来求和， 不是手动填充颜色求和

最佳答案

月排行榜 / 总排行榜

林木水

2022-3-2 14:58

1. Sub 条件格式求和()
   
2. Dim i As Integer, h As Integer, sum As Double
   
3. h = ActiveSheet.Cells(Rows.Count, 4).End(xlUp).Row
   
4. For i = 7 To h
   
5.     If ActiveSheet.Cells(i, 5).Value - Application.WorksheetFunction.RoundDown(VBA.CSng(Now), 0) > 0 Then
   
6.         sum = sum + ActiveSheet.Cells(i, 4).Value
   
7.     End If
   
8. Next i
   
9.     ActiveSheet.Cells(5, "g").Value = sum
   
10. End Sub
    

复制代码

跳转到最佳答案楼层

砂海

从实际解决问题的角度 ,
直接按条件计算不好么? 非得用颜色?

jiali0208

砂海 发表于 2022-3-2 13:37
从实际解决问题的角度 ,
直接按条件计算不好么? 非得用颜色?

老师，可以按条件哦！

林木水

1. Sub 条件格式求和()
   
2. Dim i As Integer, h As Integer, sum As Double
   
3. h = ActiveSheet.Cells(Rows.Count, 4).End(xlUp).Row
   
4. For i = 7 To h
   
5.     If ActiveSheet.Cells(i, 5).Value - Application.WorksheetFunction.RoundDown(VBA.CSng(Now), 0) > 0 Then
   
6.         sum = sum + ActiveSheet.Cells(i, 4).Value
   
7.     End If
   
8. Next i
   
9.     ActiveSheet.Cells(5, "g").Value = sum
   
10. End Sub
    

复制代码

林木水

条件格式设置的颜色，看是有颜色，实际并不是单元格的内部颜色，而是单元格条件显示的颜色。

jiali0208

林木水 发表于 2022-3-2 14:58

感谢老师，谢谢！再次感谢！