为什么这个编成函数就不行了？求助

fangqingyu

我想通过数组计算选定区域每行的最大值 减 最小值 的平均值后除以一个系数，得到具体的值 ，但在用FOR语句给数组赋值 ，就是要出错。烦请高手指点一下以下内容中错哪了？跪谢！
Function stdevz(ParamArray rng() As Variant) As Variant
Dim rang As Range, rngi As Range, T As Single, F As Single, i As Integer
Dim trr()
Dim arr()
For Each R In rng
If rang Is Nothing Then Set rang = R Else Set rang = Union(rang, R)
For Each c In R
Next
   Next
n = rang.Cells.Count
aa = rang.Columns.Count '列数
bb = rang.Rows.Count '行数
For i = 1 To bb
      Set rngi = rang(i, 1).Resize(1, aa)
arr(i) = Application.Max(rngi.Value) - Application.Min(rngi)
Next
F = Application.WorksheetFunction.Average(arr)
trr = [{0,1.128,1.693,2.059,2.326,2.534,2.704,2.847,2.97,3.078}]
T = trr(aa)
stdevz = F / T
End Function

不知道为什么

上传表格附件，方便调试哦

fangqingyu

增加函数附件，求帮助了，谢谢！

fangqingyu

跪求高手帮助呀！在线等！

不知道为什么

fangqingyu 发表于 2018-9-26 22:24
跪求高手帮助呀！在线等！

你 arr 数组 定义的问题把，我再你基础上略调了下，是有结果出来的

1. 
   

复制代码

Function stdevz(ParamArray rng() As Variant) As Variant
    Dim rang As Range, rngi As Range, T As Single, F As Single, i As Integer
    Dim trr
    Dim arr()
    For Each R In rng
        If rang Is Nothing Then Set rang = R Else Set rang = Union(rang, R)
        For Each c In R
        Next
    Next
    n = rang.Cells.Count
    aa = rang.Columns.Count
    bb = rang.Rows.Count
    ReDim arr(1 To bb)
    For i = 1 To bb
        Set rngi = rang(i, 1).Resize(1, aa)
        arr(i) = Application.Max(rngi.Value) - Application.Min(rngi) '主要是这里出错，应该是数组无法赋值
    Next
    F = Application.WorksheetFunction.Average(arr)
    trr = [{0,1.128,1.693,2.059,2.326,2.534,2.704,2.847,2.97,3.078}]
    T = trr(aa)
    stdevz = F / T
End Function

fangqingyu

不知道为什么 发表于 2018-9-26 22:34
你 arr 数组 定义的问题把，我再你基础上略调了下，是有结果出来的

Function stdevz(ParamArray rng() ...

太感谢了！现在正确了，原来定义的问题呀！

fangqingyu

不知道为什么 发表于 2018-9-26 22:34
你 arr 数组 定义的问题把，我再你基础上略调了下，是有结果出来的

Function stdevz(ParamArray rng() ...

没搞明白，为什么这个一定要指定数组范围呢？

不知道为什么

fangqingyu 发表于 2018-9-26 22:51
没搞明白，为什么这个一定要指定数组范围呢？

哈哈，原谅我这个不是科班的，原理说不来，只是一看感觉那边可能有问题