关于颜色求平均值，先谢谢了！

ssh5854 · 发表于 2010-5-21 11:21

请9楼的兄弟帮忙弄个简单的公式出来了！

ssh5854 · 发表于 2010-5-21 13:01

12楼的兄弟不是每个数据都是20 关键我的数据是随机的关键要案看颜色的，只要黄色的就不参加求平均值！

twoleavs · 发表于 2010-5-21 12:50

=AVERAGE(IF(B2:G2<>20,B2:G2)) 数组公式

twoleavs · 发表于 2010-5-21 13:51

关键是你的这个颜色是固定在D2单元格，还是出现在B2:F2这个区域内任意一个单元格？

ssh5854 · 发表于 2010-5-21 15:32

出现在任意地方，而且数字是不固定。我这个表格是统计现场工人生产数量的平均值的，人教多，每月统计一次，在统计过程中，有随机的数据不参加统计的。
谢谢了

twoleavs · 发表于 2010-5-21 17:27

不知是否符合楼主要求，参见附件：

关于颜色求平均值.rar (4.19 KB, 下载次数: 34)

jesk · 发表于 2010-5-21 17:35

利用自定义函数，判断单元格背景为“黄色”就不累计

'求平均值
'利用单元格背景为“黄色” ColorIndex=6
Function my_avg(rmg)
Dim i As Range
Dim j As Single
Dim num As Integer

j = 0
num = 0

For Each i In rmg

   If i.Interior.ColorIndex <> 6 Then
         j = j + i.Value
         num = num + 1
   End If

Next

my_avg = j / num

End Function

ssh5854 · 发表于 2010-5-21 17:38

这样还不行，主要是我的数据非常多，其中部分随机数据也非常多。其中一些数据，没用的，我用颜色标注，不参加求平均值。
谢谢了！

twoleavs · 发表于 2010-5-21 17:51

楼主如果是一个区域内有多个带色单元格不参加平均值计算的话，那只能用VBA自定义函数了。

gb57 · 发表于 2010-5-21 17:56

用get.cell得到的那个辅助行是不自动重算的，每次都得重新拉一下，所以建议最好不要用颜色，还是直接加个辅助行好点

		自动登录	找回密码
密码			免费注册

[求助] 关于颜色求平均值，先谢谢了！

回复“关于颜色求平均值”

利用VBA自定义函数可以解决