1.Wps中如何用颜色求和
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
上面只是例子，自己可以修改看效果
2.请问各位大侠,wps中如何用颜色求和,详细点,谢谢
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
上面只是例子，自己可以修改看效果
3.WPS/EXCEL如何快速算出这列红色字的总和
用VB更方便快捷一点，按以下步骤来操作：
1、在空白列处归纳出颜色的种类（可分别从有数据处复制过来），并将颜色分别命名为A、B、C。
2、打开VBA编辑器，点击插入“模块”，点击新创建的模块--模块1，在右侧窗口输入以下代码。
Function SumColor(col As Range, sumrange As Range) As Long
Dim icell As Range
Application.Volatile
For Each icell In sumrange
If icell.Interior.ColorIndex = col.Interior.ColorIndex Then
SumColor = Application.Sum(icell) + SumColor
End If
Next icell
End Function3、关闭VBA编辑器，返回EXCEL界面。
4、在归纳颜色旁边的单元格输入公式=SumColor(D2,$A$1:$A$13)下拉即可。（公式中的单元格或数据区域根据你表格实际自行修改！）
如图：
4.excel里按颜色求和怎么输入
原本Excel没这功能，ALT+F11打开VBA窗口。
插入一个模块，输入下面代码：Function SumColor(col As Range, sumrange As Range) As Integer Dim icell As Range Application.Volatile For Each icell In sumrange If icell.Interior.ColorIndex = col.Interior.ColorIndex Then SumColor = Application.Sum(icell) + SumColor End If Next icellEnd Function之后就可以用sumcolor（)这个函数了，具体的还需要自己多研究。
