资源描述：
《熵值法在EXCEL中的VBA实现.pdf》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、为亩值洁去寻岌EXCEL中的VBA居协习厄.余华银李超黄萍(安徽财贸学院统计学系,2安徽蚌埠3041)。滴值法是进行多指标综合评价的一种重要方法,它根不肯定性所需要的信息量我们可以通过计算嫡值来判,,也可以用嫡值来判断据指标数据提供的信息量对指标进行客观赋权以减少断一个事件的随机性及无序程度。,主观因素的影响。目前,某个指标的离散程度某项指标的指标值离散程度越大使用嫡值法进行数据处理需要在,,EXCEL软件中运用函数、公式等进行人工、半人工操信息嫡越小该指标提供的信息量越大该指标的权重也:,,作。在数据量,这种按步骤一步步的手工处应越大反之某项指标的指标值离散程度越小信息墒庞大的情
2、况下,,。理过程容易出现输人错误,而且执行的任务多为重复性越大该指标提供的信息量越小该指标的权重也越小,,工作,处理过程较为复杂,从而降低了滴值法的可行性、所以可以根据各项指标的指标值离散程度利用信息嫡,,准确性。在运用最广泛的办公软件EXCEL下运用应用程这个工具计算出各指标的权重增强了多指标综合评价、。,的客观性序开发语言vBA进行自动化处理可以减少程序化计算实用性和真实性量,对于普及和推广嫡值法具有极其重要的意义。用嫡值法进行综合评价的步骤是:.,。、1将数据用功效系数法一嫡值法的基本原理非负化n,m,x勺一mlnx刃设有个待评方案项评价指标形成原始指标数(1)maxxij一
3、mlnxij:据矩阵.,2将各指标同度量化计算第j项指标下第i方案x=x。nxm()指标值的比重。Pij拘,,对于某项指标指标值xij的差距越大则该指标在综合p。二二评价中所起的作用越大;如果某项指标的指标值全部相势‘(2)等,则该指标在综合评价中不起作用。在信息论,信息嫡叉i二1厂。H(x)=一pxiInpx*调艺()()整比重qij=P亏沐10000+l(3),是系统无序程度的度量它可以解释为解除随机事件的4.计算第j指标的嫡值。收稿:2003一12一19日期作者简介:余一),男,安徽财贸学院统计学系教授,主要研究金融统计方向。华银(1962李超(19一),男,。80安徽财贸学
4、院统计学系硕士研究生,,。黄萍(1977一)女安徽财贸学院统计学系硕士研究生ivatePrSUbSZf()玩二、xjn、4乏()OnErorResumeNext5.计算权数。fw=inPutBox(“请输人数据在EXcEL中的起始结束位置“rr”,曰一压F卜曰」L&vbCl」议vbC“饺玫一定要正确输入否则按确一一Ll(5)”,“定后将会出错!输人范围.Aetivend0WRan罗eleetion.Addressloealo,o))wiS(6.。计算综合评价值111七nm二0enMsgBox(狱(fW))Th“,z;二欠qijwj没有输入正确范围请重新执行程序输人止确的数据范艺(6
5、)”,””围!没有输人、二基于ExCEL的嫡值法vBA实现程序Else运用嫡值法进行综合评价需要进行大量的数据运n=Range(fw).Rows.Count,,算为简化手工处理过程笔者使用应用程序开发语言m二Range(枷).Coluruns.CountVBAVisualBasieforApplieationExeEL下编写宏程ReDimzn,m,zn,m,mim,m乏tx-zbm,()在bdfo()bdfl()n-zb((),、,,ExcELzm,pon,m,pln,m,pelogpn,m,,wm序自定义工具栏菜单和界面简化模板的使bh()()()()h(m)(),“”,用使用户
6、在运用嫡值法直接点击嫡值法按钮即可Fori=lton。得到各方案的综合评价结果For二ITomj基于EXCEL的嫡值法VBA实现程序的代码如下:zb翻(i,j)二Aetivesheet.Range(枷)Cells(i,j)变量与数组的声明NextOPtionBaselextNDimz,z,mi,max-Zb,zbh,po,plbdfo()bdfl()哪b()()()()Forj=ITom,peo,,w,sunl1Asnen一:z,()l即()h()()」siglmib(j)=b(1j)dIDDimtemP,,azz,fwdfASVarintmax一b(j)=b(1j)dfoDimS
7、ZfCnmm只narASCommanarz=dBdBbh(J)ODimSZfCommBautonomm,narBtltlonoronandrBASCdBFi=1Ten,mn一z,enPubliHmib(j)>zb(ij)仆胡ateSuo一ooereCloseCaneelASBoon一z=z,PribWrkbkBfo(kan)mib(j)bdfo(ij)ea.oana”.AitionemzndBrs(”DeletenPl嫡值法)Ed甘Enu一zbi,endSbIfmax
