Office中国论坛/Access中国论坛

标题: 如何将同色的单元格全部选中 [打印本页]

作者: figueras 时间: 2006-7-7 19:31
标题: 如何将同色的单元格全部选中
如题，请那位大虾来教小弟一下,先在此谢过

作者: zhaopin616 时间: 2006-7-11 16:49
我这里有人家设计的同颜色汇总或计数的程序，你需要不？

作者: figueras 时间: 2006-7-11 17:57
要的呀，请把他上传上来，谢谢了

作者: zhaopin616 时间: 2006-7-11 23:43
自己研究吧

作者: zhaopin616 时间: 2006-7-11 23:45
传不上去了

作者: zhaopin616 时间: 2006-7-11 23:47
Function colorsum(y As Range, rng, z As Integer)
Application.Volatile
Dim c As Double
Dim x As Range
colorsum = 0
  For Each x In rng
   If x.Interior.ColorIndex = y.Interior.ColorIndex Then
      c = x.Offset(0, z).Value
      Else
      c = 0
   End If
colorsum = colorsum + c
Next x

End Function

作者: zhaopin616 时间: 2006-7-11 23:49
代码先传上，这是别人家的劳动成果，俺记下的，试一下，很爽！

作者: figueras 时间: 2006-7-12 17:56
谢了，zhaopin616

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)