Foxtable(狐表)用户栏目专家坐堂 → 关于Excel函数AVEDEV


  共有3405人关注过本帖树形打印复制链接

主题:关于Excel函数AVEDEV

帅哥哟,离线,有人找我吗?
lime7523
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:88 积分:899 威望:0 精华:0 注册:2011/9/24 9:36:00
关于Excel函数AVEDEV  发帖心情 Post By:2021/3/12 23:48:00 [只看该作者]

Excel函数AVEDEV 单元格中计算为(绝对偏差)

但是狐表中没有这个函数调用,如何实现,目前本人只能用ABS来分步计算。但效果不佳


图片点击可在新窗口打开查看此主题相关图片如下:avedev.png
图片点击可在新窗口打开查看


本人代码为:
For i As Integer = 0 To dt.rows.count -1
    If i >= (x-1)
        dt1.Rows(i)(TYP_MA) = Tables("01 CCI_计算表_Table1").Compute("Avg(TYP)","序号 >= " & i-x+1 & " And 序号 <= " & i)
    End If
Next
For i As Integer = 0 To dt.rows.count -1
    If i >= (x-1)
        dt1.Rows(i)("ABS") = Math.Abs(dt1.Rows(i)("TYP") - dt1.Rows(i)("TYP_MA"))
    Else
        dt1.Rows(i)("ABS") = Math.Abs(dt1.Rows(i)("TYP") - dt1.Rows(x-1)("TYP_MA"))
    End If
Next
For i As Integer = 0 To dt.rows.count -1
    If i >= (x-1)
        dt1.Rows(i)("TYP_AVEDEV") = Tables("01 CCI_计算表_Table1").Compute("Avg(ABS)","序号 >= " & i-x+1 & " And 序号 <= " & i)
    End If
Next
[此贴子已经被作者于2021/3/13 0:01:03编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110572 积分:562750 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/3/13 9:56:00 [只看该作者]

我的理解也只能这样计算

 回到顶部
帅哥哟,离线,有人找我吗?
lime7523
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:88 积分:899 威望:0 精华:0 注册:2011/9/24 9:36:00
  发帖心情 Post By:2021/3/13 13:36:00 [只看该作者]

六哥,就没有别的方法了吗?

 回到顶部