熵值法在EXCEL中的VBA实现

为亩值洁去寻岌 � � �� � 中的 � �� 居协习厄 � 余华银 李超 黄萍 �安徽财贸学院统计学系 , 安徽 蚌埠 ��� �� ! 滴值法是进行多指标综合评价的一种重要方法 , 它根 据指标数据提供的信息量对指标进行客观赋权 , 以减少 主观因素的影响。 目前 ,使用嫡值法进行数据处理需要在 � �� � � 软件中运用函数 、 公式等进行人工 、 半人工操 作 。在数据量庞大的情况下 ,这种按步骤一步步的手工处 理过程容易出现输人错误 , 而且执行的任务多为重复性 工作 , 处理过程较为复杂 , 从而降低了滴值法的可行性 、 准确性 。 在运用最广泛的办公软件 � � � ! 下运用应用程 序开发语言 � �� 进行自动化处理 , 可 以减少程序化计算 量 , 对于普及和推广嫡值法具有极其重要的意义 。 一 、嫡值法的基本原理 设有 � 个待评 方案 气瓶 现场处置方案 .pdf气瓶 现场处置方案 .doc见习基地管理方案.doc关于群访事件的化解方案建筑工地扬尘治理专项方案下载 , � 项评价指标 ,形成原始指标数 据矩阵 � � � �� 。�� � � 对于某项指标 拘 ,指标值 �� 的差距越大 ,则该指标在综合 评价中所起的作用越大 � 如果某项指标的指标值全部相 等 , 则该指标在综合评价中不起作用 。 在信息论 ,信息嫡 � �� � � 一 艺� ��� ��� � �� � � 是系统无序程度的度量 , 它可以解释为解除随机事件的 不肯定性所需要的信息量 。 我们可以通过计算嫡值来判 断一个事件的随机性及无序程度 , 也可 以用嫡值来判断 某个指标的离散程度 。某项指标的指标值离散程度越大 , 信息嫡越小 ,该指标提供的信息量越大 , 该指标的权重也 应越大 � 反之 , 某项指标的指标值离散程度越小 , 信息墒 越大 , 该指标提供的信息量越小 , 该指标的权重也越小。 所以 , 可 以根据各项指标的指标值离散程度 , 利用信息嫡 这个工具 ,计算出各指标的权重 , 增强 了多指标综合评价 的客观性、实用性和真实性 。 用嫡值法进行综合评价的步骤是 � � � 将数据非负化 , 用功效系数法 。 � 勺一 � �� � 刃 � � � �� 一 � �� �� � � 将各指标同度量化 , 指标值的比重 �� 。 ��� 计算第 �项指标下第 �方案 �。 二二势‘ �� �叉 � 二 �厂调整比重 。 � �� � �亏沐 � �� � � � � � � 计算第 �指标的嫡值 。 �� � 收稿 日期 � � � � � 一 � � 一 �� 作者简介 � 余华银 ��� �� 一 �, 男 , 安徽财贸学院统计学系教授 , 主要研究金融统计方向。 李 超 ��� �� 一 �, 男 , 安徽财贸学院统计学系硕士研究生 。 黄 萍��� � � 一 �, 女 , 安徽财贸学院统计学系硕士研究生 。 玩二 乏、 � �� 、 � � 计算权数 。 �� � �� �一����曰一压�卜曰」一一 � � 计算综合评价值。 � � 二 艺�� 欠 �� �� � 二 、 基于 � � �� � 的嫡值法 � �� 实现程序 运用嫡值法进行综合评价需要进行大量的数据运 算 , 为简化手工处理过程 , 笔者使用应用程序开发语言 � � ��� �� � � � � � ��� �� � � � ���� � ��� � � 在 � � �� � 下编写宏程 序 , 自定义 � � � � � 工具栏、 菜单和界面 , 简化模板的使 用 , 使用户在运用嫡值法 直接点击 “嫡值法” 按钮 , 即可 得到各方案的综合评价结果 。 基于 � � �� � 的嫡值法 � � 实现程序的代码如下 � 变量与数组的声明 � ���� � � � � � � �� � ��� �� , � ��� �� , � �哪� �� , � � � ��� � �� , � �� �� , �� �� , � � �� , � ���即�� , � �� , � �� , �� � �」� �� ��� �� � � � �� � � , �� , �� ! ∀ �� � �� � �� ���� � � � 只� � � � � � � �� � � � � �� � � � �� � ��� � � � �� �� � �� � �� � � � � � � � , � � � ��� ����� � �� ���� � , � �� � �� �� � � ��� 一� � �� � � �� � � ��� � ��� � � � � � � � � � �� � ���� �� � ���� � � � � �� � � � � � �� �”嫡值法”� � � �� � �� � � � �� � 限于程序的易读性与篇幅 , 本程序中未处理异常 , 但 考虑到实用性 ,本程序具有一定的通用性 。 添加白定义工具栏。 � ��� �� � �� � � � ��一�� � ��� � � � �� � � � �� � � � � � � � � � ��� �� �� �� �� � � � � � � �� �� � �� �”嫡值法” �� � ����� �� ��� �� � � � � � �� � � 二 � � ���� �� � � � � � � �� � ���� � � � ���“ 嫡 值法 ” � � !∀ #∃%& ∋( ( )∗+,)− . &∋( −∋/# #0!12%%& ∋(( )∗+,)−, 3!!∋∗ 4 . 5++ 6( 1∋&∋∗!−∋ 7,3!!6, n ) W i t h 5 2 1{ : o m m an d B a r B u t t o n . S ty l e = m s o B u t t o n l e o n A n d C aPt i o n · C 即tion = “嫡值法 ’, . 伪Aetion = “ th i脚orkbook.szr , E n d W i th E n d W j t h s z f C o m m a n d B a r . V I S m l e = T r u e E n d S u b Pr i v at e S U b S Z f ( ) O n E rr o r R e s u m e N e x t fw = in Pu tB ox ( “请输人数据在 E XcE L 中的起始结束位置 “ & vb C r l」议 vb C r“饺” 玫一定 要正确 输入 , 否则按确 定后将会出错 ! ” , “输人 范 围 A etivewi nd0 W .R an罗Seleetio n .A ddre ssloeal(o , o ) ) 1 1 1 七n (狱m (fW ))二 0 Th e n M s g B o x “没有输入正确范围 , 请重新执行程序输人止确的数据范 围! ” , ”没有输人 ” E l s e n = R an g e ( fw ) . R o w s . C o u n t m 二 R a n g e (枷).Coluru ns.Count R eDim zbdfo (n , m ) , z b d f l ( n , m ) , m i n--z b ( m , m 乏tx --z b ( m ) , z b h ( m ) , p o ( n , m ) , p l ( n , m ) , , p e l o g p ( n , m ) , h ( m ) , w ( m ) Fo r i = l t o n F o r j 二 I T o m z b翻 (i, j ) 二 A e t iv e s h e et . R a n g e (枷)C el ls(i, j ) N e xt N e xt F o r j = I T o m m i n 一 : b ( j ) = z b dID ( 1 , j ) m ax 一 z b ( j ) = z b dfo ( 1 , j ) z b h ( J ) = O F o r i = 1 T o n H m i n 一z b ( j ) > zb 胡(i, j ) 仆enm in 一z b ( j ) = z b dfo ( i , j ) E n d 甘 If m ax 一 z b ( j ) = o , z b dfo ( i , j ) , ( z b d m ( i , j ) 一 m m 一 z b ( j ) ) / ( m ax 一 z b ( j ) 一 m i, n 一 z b ( j ) ) ) z b h ( j ) 二 z b h ( j ) + z b dfl ( i , j ) N e xt N e x t S u m _ h 二 0 F o r j = 1 T o m h ( j ) = 0 F o r i = I T o n P O ( i , j ) = Zb 胡 (i, j ) / 名bh (j ) , j ) 二 1 0 0 0 0 * p o ( i , j ) + 1 A p p l i e t i o n . A e t i v e s h e e t . N a me = “嫡值法输出” p e l o 即(i, j ) 二 p l ( i , j ) * A p p l i e a o n . e o l u m n s ( “ B : B ” ) . e o 一u m nw idth = 15 w or kshe亡tF u n etion .玩91 0(pl(i, j ) ) A p p卜tion . R an ge ( “ b 一” ) . V alu e “嫡值法得分” h ( j ) = h ( j ) + p e l o 即(i, j ) F o r i 二 Z T o n + l N e xt C e l ls ( i , 2 ) . V alu e = df ( i 一 l , l ) S u m 一 h = s u m 一 h + h ( j ) N e xt N e x t C e l l 。 ( 1 , 3 ) = “嫡值法排名 ” F o r j = I To m R a n 罗 (“ e Z : C ” & ( n + l ” ) . 凡rm ulaArr盯 = “ = R A N K w ( j ) = h ( j ) / s u m 一h ( R e 「一 1 1 : R [ & ( n 一 1 ) & ” ] e 卜 11, R Z e Z : R ” & n + N e xt l & “ C Z ) ” df = A p p l i e a t i n . W o rk s h e e tFu n e t i o n . M M u n ( p e l o g p , A p p l i ” E n d i f C a t i o n . Wo r k s h e e t Fu n C t i o n . T ra n s p o s e ( w ) ) E n d S u b A p Pl i e at i o n . w o r k s h e e t s ( “嫡值法输出 ” ) . D e l e t e 三 、嫡值法在 Ex eE L 中的实现 W Ork sha etS .Add 在用嫡值法进行综合评价时 , 可 以直接运行上述程序 , aft e r : = S h e e t s (却plieation.W ork sheets.Count) 表 关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf 1 20 01 年各地区国有及国有控股工业企业经济效益综合评价得分及排名 地地 区区 北京京 天津津 河北北 山西西 内蒙古古 辽宁宁 吉林林 黑龙江江 嫡嫡值法得分分 739.0666 673.7222 779.3999 578.4999 631.4000 646.7777 7 48.4555 2220.4666 嫡嫡值法排名名 l555 2000 l000 2888 2444 2333 l333 111 地地 区区 上海海 江苏苏 浙江江 安徽徽 福建建 江西西 山东东 河南南 嫡嫡值法得分分 1053 7 111 772.4555 985.5111 743.2000 1006.7000 555.2000 102 5.9222 655 7000 嫡嫡值法排名名 555 l111 888 1444 777 3000 666 2222 地地区区 湖北北 湖南南 广东东 广西西 海南南 重庆庆 四川川 贵州州 嫡嫡值法得分分 766.1000 7 15.7666 1100.2777 675.8555 65 6.5666 567.5333 678.7333 63 1.3999 嫡嫡值法排名名 1222 l666 444 1999 2 111 2999 1888 2555 地地区区 云南南 西藏藏 陕西西 甘肃肃 青海海 宁夏夏 新疆疆疆 嫡嫡值法得分分 1335.1555 882.8111 687.8999 544 .9777 627 .2666 580.1222 132 1.3 11111 嫡嫡值法排名名 222 999 1777 3111 2666 2777 33333 得到综合评价值。 例如 , 在 2001 年各地区 国有及国有控股 捷 、更方便 。 工业企业主要经济效益指标中 , 选取工业增加值率、 总资 嫡值法的这种 V BA 实现过程不仅避免了人工操作的 产贡献率 、流动资产周转次数、工业成本费用利润率 、全员 错误 , 简化了手工操作 , 而且大大提高了嫡值法的准确性 劳动生产率、 产品销售率等六项指标 , 运用嫡值法对我国 和使用效率。 31 个地区的国有及国有控股工业企业的经济效益进行综 合评价(资料来源 :《中国统计年鉴 2002》)。 在进行数据处 参考文献 : 理时 , 先将各指标值输人 Ex cEL 表格 关于规范使用各类表格的通知入职表格免费下载关于主播时间做一个表格详细英语字母大小写表格下载简历表格模板下载 , 选取数据范围后 , [ l] 郭显光 .改进的嫡值法及其在经济效益评价中的应用 直接点击 “嫡值法 ” 按钮 , 便可得到综合评价结果 (见表 [J ], 系统工程理论与 实践 .1998(12) .9.P9 8一102 . l) 。 [2 ]李文瑞 .VB A /EX CELZ oo o 让我把工作变轻松了「M ]. 由此可见 , 在 EX CEL 基础上运用 V BA 编写宏程序 ,大 北京:人民邮电出版 社 , 20 00 . 大简化了嫡值法的数据 运算过程 , 使嫡值法的运用更快 A n 石碗sy 一 to 一 初梦le m en t So l u吻n to A “to m a te E n 。’oJ 卿 卫亡th od 妙 及儿‘ro s oft E X C E 工/ 租劲 . Yu H ua一 y in L i C h a o H u a n g P in g A b s t r a e t : In th e M u一tiple 一 o bj e e t iv e 一 e o m p曲ensive 一 E v a lu at io n ( M o C E ) th e o叮 :esearc h , t h e r e 1 5 a e n t ro p y m e t h o d o f o bj e e t i v e we i gh i n g i n d ex e s a e e o 司ing to info rm at ion of data . B ut th e p ro eess of th is m eth od 15 eo呷arat ively eo哪lieated.In thisartiele, a n 一 e a s y 一 t o 一 im Pl e m e n t s o l u t io n to e ntr o p y m e t h o d b y V B A i n M ie r o s o ft E X C E L i , Pr o v i d e d , w h i e h m a k e s u s e rs b e e o m- p l e t e l y fre e fro m m a n u a l 叩Cration. K ey w ord s : entro 盯 m ethod ;v BA E x eEL