Wps中如何用颜色求和
发布网友
发布时间：2022-04-23 10:08
共1个回答
热心网友
时间：2023-05-19 03:28
ALT+F11打开VBA
输入代码
Sub kk()
Dim s As Integer
s = 0 '累加变量
f = Worksheets(2).Range("a4").Interior.Color '检测单元格背景色的值
'两个循环，从A4（可根据需要更改）开始逐个对比背景，如果是正确的背景色则累加
For i = 0 To 7
For j = 0 To 2
If Worksheets(2).Range("a4").Offset(i, j).Interior.Color = f Then
s = s + Worksheets(2).Range("a4").Offset(i, j)
End If
Next j
Next i
Worksheets(2).Range("a2").Value = s '输出结果
End Sub
上面只是例子，自己可以修改看效果
