wps怎么按填充颜色求和
发布网友
发布时间：2022-04-28 20:22
共2个回答
热心网友
时间：2022-06-23 02:03
输入代码
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
上面只是例子，自己可以修改看效果追问用vb编辑器？粘贴到里面了，在表格里应该插入哪个函数？
热心网友
时间：2022-06-23 02:04
