[已解答]编写一个任意多参数仿SUM函数

Excel教程

<p>要求编写一个具体求和功能的自定义函数，参数可以有任意多个（当然不能超过单元格中允许的最大字符量）</p><p>&nbsp;&nbsp;&nbsp;&nbsp; mysum(参数1，参数2，参数3。。。。参数N)</p><p>&nbsp;&nbsp;&nbsp; 例=mysum(10,12,5,5,8,10) 返回50</p><p>&nbsp;</p>

[此贴子已经被作者于2008-2-17 20:18:14编辑过]

element

直接将JW上的那个上传的了，呵呵

Excel教程

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>element</i>在2008-2-17 20:02:00的发言：</b><br/>直接将JW上的那个上传的了，呵呵</div><p>[em30]这个题留给别人吧</p>

八月的梦游者

JW是哪里？

hhzjxss

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>八月的梦游者</i>在2008-2-17 20:06:00的发言：</b><br/>JW是哪里？</div><p></p>[em03]

element

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>八月的梦游者</i>在2008-2-17 20:06:00的发言：</b><br/>JW是哪里？</div><p></p>John Walkenbach

喵喵

我也有那个，要不要我来传？[em01]

八月的梦游者

Function TrySum(ParamArray argArr()) As Variant<br/>&nbsp;&nbsp;&nbsp; Dim i As Integer<br/>&nbsp;&nbsp;&nbsp; On Error GoTo errhandle<br/>&nbsp;&nbsp;&nbsp; For i = 0 To UBound(argArr)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; TrySum = TrySum + argArr(i)<br/>&nbsp;&nbsp;&nbsp; Next i<br/>&nbsp;&nbsp;&nbsp; Exit Function<br/>errhandle:<br/>&nbsp;&nbsp;&nbsp; TrySum = "错误:有非数字参数"<br/>End Function

element

<p>呵呵，八月兄真省略[em01]</p>

八月的梦游者

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>element</i>在2008-2-17 20:11:00的发言：</b><br/><div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>八月的梦游者</i>在2008-2-17 20:06:00的发言：</b><br/>JW是哪里？</div><p></p>John Walkenbach</div><p>原来是J-Walk</p>