利用EXCEL函数及VBA程序实现四格表卡方检验.docVIP

利用EXCEL函数及VBA程序实现四格表卡方检验 　　利用EXCEL函数及VBA程序实现四格表 　　卡方检验 　　　　142现代医院2012年3月第12卷第3期医院管理篇ModemHospitalMar2012Vol12No3 　　利用EXCEL函数及VBA程序实现四格表卡方检验 　　林丰汤捷 　　IMPLEMENT4CASESCHI—SQUARETESTUSINGEXCELFUNCTI 　　ONANDVBA 　　PROGRAM 　　LINFeng,TANGJie 　　【摘要】利用EXCEL函数及自行编写VBA程序,制作面向对象的四格表统计分析小软件.并应用教 　　材实例数据进行结果验证. 　　【关键词】EXCELVBA卡方检验 　　doi:10.3969/j.issn.1671—332X.2012.3.061 　　Excel是MicrosoftOffice软件的主要组成部分,是目 　　前应用最普遍的电子表格软件,此外,Excel还具有很强的 　　数据处理与分析功能和图表功能,在基础统计特别是进行 　　描述性统计时应用较为广泛.同时它还提供了完善的开 　　发平台,具有良好的系统扩展性.VBA即VisualBasicfor 　　Application,是微软公司提供的在VB应用程序中集成的 　　开发程序,是微软公司的一款优秀的开发编程软件…, 　　VBA语言的最大特点在于易于得到,开发效率高. 　　借助Excel函数,通过VBA语言进行二次开发,设计 　　简单易懂的统计软件,方便对统计软件应用不熟练的卫生 　　技术人员进行统计分析,具有较大的实用价值和意义. 　　1材料与方法 　　1.1材料 　　1.I.1基本公式口四格表理论频数计算公式: 　　= 　　成组设计x检验公式: 　　,2(0d一6c)n一 　　(a+b)(c+d)(?+c)(b+d) 　　成组设计Z检验校正公式: 　　= 　　ad—bcI—n/22n 　　(a+b)(c+d)(a+c)(b+d) 　　1.1.2验证资料本文所引用验证资料来源于卫生部规 　　划教材《卫生统计学》.见表1. 　　基金项目:广东省医学科研基金(编号:A2010104) 　　林丰汤捷:广东省健康教育中心广东广州510230 　　通讯作者:汤捷 　　表1两种疗法缓解率的比较 　　注:()内数字为理论频数 　　1.2方法 　　四格表统计分析包括成组设计卡方检验,配对设计卡 　　方检验和Fisher确切概率法.本文以四格表成组设计卡 　　方检验为例. 　　1.2.1Excel函数编写使用Excel基本函数和统计分 　　析函数CHIDIST编写函数过程. 　　建立工作表,在D3,D4,B5和c5四个单元格分别在 　　编辑公式栏输入SUM(B3,c3),SUM(B4,c4),SUM(B3, 　　B4)和SUM(C3,C4),分别求出四格表资料各实际数的 　　和;根据理论数公式,A7,B7,c7和D7单元格编辑公式分 　　另0为PRODUCT(D3,B5)/D5,PRODUCT(D3,C5)/D5, 　　PRODUCT(D4,B5)/D5和PRODUCT(D3,c5)/D5;根据 　　四格表成组设计)c检验公式,B8单元格的公式为:(B3× 　　C4一C3×B4)XD5/(D3×D4XB5×C5),最后应用 　　CHIDST统计函数求p值,即CHIDIST(B7,1).同理校正 　　值B9单元格公式为(ABS(B3×C4一C3XB4)一D5/2) 　　XD5/(D3×194×B5XC5),其相应的P值为CHIDIST 　　(B8,1).具体如图1所示. 　　1.2.2VBA程序设计运行Excel,依次打开如下菜单: 　　工具/宏/VisualBasic编辑器,进入Excel的VBA编程环 　　境,建立窗体和控件,输入相应代码.界面如图2所示. 　　现代医院2012年3月第l2卷第3期医院管理篇ModemHospitalMar2012Vol12No3 　　j四捂衰戚里设计卡方检验l 　　2l列1列2合计. 　　台计l62tti40i 　　el瓢ln2lT殓7 　　4.8,211216.8 　　_量j卡方值=.3,888888889P:O.048606579 　　9{校正卡方擅_-2.624007937P:0.105258298 　　图1四格表成组设计卡方分析表 　　图2四格表卡方检验界面 　　插入四个Text,分别命名为a,b,c,d,a其中在相应 　　Change()过程输入Range(“B3”).Value=a.Value,依次 　　编写其余Text—Change