[求助]代码解释 带附件！！

yee074

<p>&nbsp;</p><p>在sheet1里有这个帮忙看看</p><p>rivate Sub Worksheet_SelectionChange(ByVal Target As Range)<br/>&nbsp;&nbsp;&nbsp; Application.Volatile<br/>&nbsp;&nbsp;&nbsp; Range("A1:G5").Calculate<br/>End Sub</p><p>是不是调用了这个模块？？</p><p>模块是这个请帮忙解释一下</p><p>Function ZZ(InputRange As Range, ColorRange As Range) As Double<br/>Dim cl As Range, TempSum As Double, ColorIndex As Integer<br/>&nbsp;&nbsp; Application.Volatile<br/>&nbsp;&nbsp; ColorIndex = ColorRange.Cells(1, 1).Interior.ColorIndex<br/>&nbsp;&nbsp; TempSum = 0<br/>&nbsp;&nbsp; On Error Resume Next<br/>&nbsp;&nbsp; For Each cl In InputRange.Cells<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If cl.Interior.ColorIndex = ColorIndex Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; TempSum = TempSum + cl.Value<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<br/>&nbsp;&nbsp; Next cl<br/>&nbsp;&nbsp; On Error GoTo 0<br/>&nbsp;&nbsp; Set cl = Nothing<br/>&nbsp;&nbsp; ZZ = TempSum<br/>End Function<br/></p> lf1JMX8u.rar (8.95 KB, 下载次数: 6)

2008-11-3 08:08 上传

点击文件名下载附件
[求助]代码解释 带附件！！ <br/>

yee074

<p>按颜色求和不懂了 谢谢大家帮忙啊 </p><p></p>

laosanjie

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>yee074</i>在2008-11-3 8:09:00的发言：</b><br/><p>按颜色求和不懂了 谢谢大家帮忙啊 </p><p></p></div><p>按颜色求和是用自定义函数“=zz(B4:G15,H4)” 实现的。 </p><p>&nbsp;</p>