excel表里把数据库里黑色字体减去红色字体求和怎么做

Question

如题所述

Answer 1

1.打开Excel文件，按“Alt+F11”打开VBA编辑窗口，然后在左侧空白处点击右键，“插入”，“模块”。右侧空白处粘贴下面的代码。关闭VBA窗口。

 

2.然后输入公式：=SUMRED(希望求和的区域）。

Function sumred(rng As Range) As Double
Dim rg As Range
Set rng = Intersect(ActiveSheet.UsedRange, rng)
For Each rg In rng
    If rg.Font.Color = RGB(255, 0, 0) And IsNumeric(rg.Value) Then sumred = sumred + rg.Value
Next
End Function

Answer 2

在07版的excel好像有按颜色求和的。
如果是03版就麻烦点：
首先要提取单元格字体颜色信息。
方法：利用自定义名称=GET.CELL(24,Sheet4!$A1)
例：数据在A列，
A1为：数量（表头）
A2、A3、A4为黑色或红色的数字
操作：选择A1->插入->名称->自定义->自定义名称对话框里名称那里输入“数量”，引用位置那里输入=GET.CELL(24,Sheet4!$A1)确定
然后在B2输入：=数量 ，“=数量”就是直接打这三个字上去。回车。向下填充。
这时单元格字体的颜色信息已提取出来了。红色字体是3，黑色字体是0
现在就求和：
公式：
黑色的：sumif(b:b，0，A:A)
红色的：sumif(b:b，3，A:A)
搞掂！
另外：如果要提取单元格的颜色而不是字体颜色就用=GET.CELL(38,Sheet4!$A1)提取

Answer 3

先找黑色字体的和
EXCEL2003中点“编辑”-->查找-->点“格式”旁边的小黑三角，选择“从单元格中选择格式(C)...-->选取某一个黑色字体的单元格-->查找全部-->在查找到全部下方内容中，按住SHIFT健，全部选取，即可在EXCEL底部的状态栏中看所有黑色字的和。
同理找红色字体的和
记录两个数字相减即可。

Answer 4

2007版用自动筛选，筛选颜色，然后用公式进行想减。公式要手工拖拽，不能用双击到底。本回答被提问者采纳