excel vba在层次分析法中的应用

《excel vba在层次分析法中的应用》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、Excel、A在层次分析法中的应用。李心玉黄娟i摘要：层次分析法是一种常用的确定指标权重的方法。介绍了一种在Excel平台，运用VBA语言进行二次开发的基于AHP法的指标权重计算的系统，并结合某金矿床的评价指标体系，具体说明该系统的原理与实现过程。系统扩展了Excel的功能，具有一定的灵活性，提高了计算指标权重的效率。关键词：AHP；VBA；指标权重；树状表格对的相对重要性数值。并由组成A—U判断矩阵P。1引言材ll1112It1”矿山环境、矿山安全、成矿预测等相关的综合分析评价都1121H22

2、甜2"需要确定指标体系的权重，而层次分析法即AHP法(TheP=●●●AnalyticHierarchyProcess)是目前广泛应用的一种确定权重的：：：方法[I-31。它是由美国著名的学者托马斯·萨蒂提出的用于决策Zf"l”2M和规划的系统分析方法，它能将定性分析进行定量化，并能够(2)计算权重。根据判断矩阵，采用方根法求出其特对事物进行系统、综合、简便、准确地评价与分析。如何快征向量和所对应的最大特征根。方根法的计算过程速方便地计算得到基于层次分析法法的指标体系权重．是进行评价分析、决策规

3、划的必要前提工作。MicrosoftExcel电子表如下：格软件是应用最广泛的软件之一，它内置的公式和函数为用户将判断矩阵的每一行元素相乘=兀“(1，2，⋯n)；计进行科学计算提供可很大便利，Excel的强大优势还在于它提供的宏语言VisualBasicforApplication(VBA)[53。VBA不仅具算Mi的n次方根Wi=；对向量W=(W1，W2，⋯Wn)进行归有常用编程语言的功能，在与Excel交换数据上还具有其他软一化处理“f(1，2，⋯)，=⋯即为所求的特件无法比拟的优势。所以将

4、应用Excel中VBA语言来实现基于AHP法的指标权重的计算。征向量的近似解；然后计算最大特征根=。iI2基本原理(3)一致性检验。以上得到的权重分配是否合理，还需要应用层次分析法确定指标体系的权重．首先必须对所需的对判断举证进行一致性检验。检验使用公式：指标进行分析，将指标体系所包含的因素划分为不同层次，即CR=(lj}构建梯阶层次结构。构造梯阶层次结构时应该突出重点，抓住式中，CR为判断矩阵的随机一致性比率；为判断矩阵的关键因素，每一层次元素不宜太多。其次按照阶梯层次结构，一般性指标。它由下

5、式给出：从上到下逐层构造判断矩阵。判断矩阵是根据特定的标度方法(71=(一月)／(，7～1)(如1~9标度法等)进行两两比较后得到的相对重要性程度值。，为判断矩阵的平均随机一致性指标，1~9阶的判断矩阵然后，求解判断矩阵的最大特征值和对应的特征向量。经归一的，值如表1。化处理，得到层次单排序权重向量，并进行一致性检验．对不表1平均随机一致性指标RI的值合格的要进行修正，直到符合满意的一致性标准，最后进行层n，23456789次总排序及其一致性检验。R／O0058090jI2】24】321,4li

6、45层次分析法(AHP)确定权重的具体步骤如下：(1)构造判断矩阵。当判断矩阵P的CR<0．1时或=n时或．C／=0时．认以A表示目标，、(=1，2，⋯n)表示因素。表示tti为P具有满意的一致性，否则需要调整P中的元素以使其具有-⋯⋯⋯⋯⋯⋯⋯⋯⋯⋯⋯⋯⋯一⋯⋯⋯⋯⋯5实用第一智慧密集满意的一致性。表2某金矿床评价指标体系及相关的权重[q3系统设计3．1系统界面本系统由一个包含“SetUp”、“Criteria”、“Repo~”、“ReportC”和“ReportTo”5个工作表的工作簿组成。

7、其中“SetUp”工作表是系统的主要界面．主要由5个控件(即确定层数及表、生成树状结构表、清空因子、清空全部、确定)来控制整个树状表以及相应工作表的生成，如图1所示。确定层数及表控件是根据已有的指标体系的层数k，确定生成相应数量的工作表“Criteria(2)”、“Criteria(3)”⋯⋯“Criteria(k一1)”，用于判断矩阵的输(1)根据表2生成数状表格及判断矩阵的输入框入：生成树状结构表是控制整个树状表的生成．并根据树树状表格生成的原理是在作者前期研究的树状表制作状结构中每一层的叶

8、结点的数量，则确定了相对应的工作的基础上进行改进．在文中整个树状表生成后．则相应工作表中判断矩阵的数量及生成位置．当树状表格生成后，则表及判断矩阵的输入框的也会随之生成。具体的实现过程如相应判断矩阵输入框也随之生成：清空因子控件是删除生下：1)在工作表“SetUp”中，点击清空全部控件，初始化成的树状表；清空全部是对整个系统进行初始化；确定控表格，如图l—a所示．初始状态的界面是空的，可以根据用件是当完成该工作表的输人工作后，进入下一个工作表户的需要而生成数状表格：2)在“输入层数”后的单元格“