如何将同色的单元格全部选中

figueras · 发表于 2006-7-7 19:31:00

如题，请那位大虾来教小弟一下,先在此谢过

zhaopin616 · 发表于 2006-7-11 16:49:00

我这里有人家设计的同颜色汇总或计数的程序，你需要不？

figueras · 发表于 2006-7-11 17:57:00

要的呀，请把他上传上来，谢谢了

zhaopin616 · 发表于 2006-7-11 23:43:00

自己研究吧

zhaopin616 · 发表于 2006-7-11 23:45:00

传不上去了

zhaopin616 · 发表于 2006-7-11 23:47:00

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:00

代码先传上，这是别人家的劳动成果，俺记下的，试一下，很爽！

figueras · 发表于 2006-7-12 17:56:00

谢了，zhaopin616

帐号		自动登录	找回密码
密码			注册

群介绍
Excel中国官方交流群2群 (331511605)
Excel中国官方群 (243419633)
Office China for Exc (498717031)
Excel交流群(纯技术) (324568243)

主题相关群

地区相关群[您还没设置居住地]

[基础应用] 如何将同色的单元格全部选中

群介绍
主题无相 (随机显示版	同地区群块其他地区)