首页 / 教程

wps表格按照颜色来求和 | Wps中用颜色求和

2022-10-13 15:29:00

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（)这个函数了，具体的还需要自己多研究。

wps表格如何按照颜色来求和