用Excel处理2×2到10×10卡方检验

qdjhyu

写论文、搞科研经常要用到统计学，费一下午时间用Excel做了个2×2到10×10卡方检验自动处理公式（文件同时上传到百度文库），希望能对此有所需求者提供点帮助。
并请教高手：能否将两个求卡方值的公式合并？ Excel处理2×2到10×10卡方检验.rar (7.65 KB, 下载次数: 1365)

2012-2-18 21:32 上传

点击文件名下载附件

小花鹿

能写论文，这样的公式根本不在话下。

qdjhyu

小花鹿 发表于 2012-2-18 21:44
能写论文，这样的公式根本不在话下。

请教：两个求卡方值的公式能否合并为一个？

ly随缘

'多行多列卡方值计算函数
Public Function KF(r As Range) As Double
    Dim i, j, A, C, M, P, Q As Integer
    P = r.Rows.Count
    Q = r.Columns.Count
    Dim H(), L() As Integer
    Dim B, N As Double
    ReDim H(P)
    ReDim L(Q)
    M = 0
    For i = 1 To P
        A = 0
        For j = 1 To Q
            A = A + r.Cells(i, j)
        Next
        H(i) = A
        M = M + H(i)
    Next
    For j = 1 To Q
        B = 0
        C = 0
        For i = 1 To P
            B = B + r.Cells(i, j) ^ 2 / H(i)
            C = C + r.Cells(i, j)
        Next
        L(j) = C
        N = N + B / L(j)
    Next
    KF = M * (N - 1)
End Function
方法：1、打开Excel工作薄，依次点击 工具——宏——Visual Basic 编辑器；
      2、依次点击 插入——模块，然后将以上代码复制后粘贴到窗口中；
      3、保存后在表中任一单元格输入如“=KF(A1:C2)”，括号内A1:C2为待计算数据区域(根据您表格数据范围确定)；
      4、点击一下工具栏内的绿色钩即可。

allennewton

翻看陈年老贴，受益匪浅，像楼上各位大大敬礼！
又，请教各位老师，现对甲乙丙3地男女认同指数（2×3行列表）对比，用Excel2003版，根据行列表χ2检验基本公式χ2=n[Σ(A2^2/(R×C)-1]——即各格子数（实际频数）平方与该格行和、列和乘积的比值（实际频数平方÷行和÷列和）。
自拟公式及步骤如下，详见附件。
借助乘积之和函数sumproduct，对b2-d3的行列表（2×3）自编公式——(χ2)"=count(b2:d3)*(sumproduct(((b2^2)/(sum(b2:b3)*sum(b2:d2)):(b2^2)/(sum(b2:b3)*sum(b2:d2)))-1)"。
本意希望通过共性、覆盖从b2到d3这6格子，但总提示语句有错...
烦请指正，最好将就这种版本及简单函数，就事论事（请别教我VBA那些编程啥的，我笨，看了也头大...），简单为好...

初学者初来贵地，不懂礼数；如有不对的，各位前辈、老师、管理员多多指正。
菜鸟谢谢各位了先...又，第一帖，见笑了您，请多理解，勿喷我呀

游戏菜鸟

伟大的作者，你这统计的P值是多少<0.05?

rsw365

这东东太有用了，感谢楼主辛勤付出，爱你估计一万年