65、数据包络分析应用的VBA代码实现

数据包络分析应用的VBA代码实现

1. 模块概述

在这个应用中，大部分操作都是在运行时通过模块中的代码完成的。解释工作表上的按钮与 MainDEA 子过程关联。这个子过程首先将文本文件中的数据捕获到公共数组变量中，然后为每个组织单元建立线性规划模型并求解，最后生成报告。

2. 公共变量和选项声明

以下是公共变量的定义和选项声明：

Option Explicit
Option Base 1
' 公共变量定义:
'
' nUnits: 组织单元的数量
'
' unitName(): 单元名称数组
'
' nInputs: 每个单元的输入数量
'
' inputName(): 输入名称数组
'
' inputUsed(): 单元使用的输入的二维数组（第一维是单元，第二维是输入）
'
' nOutputs: 每个单元的输出数量
'
' outputName(): 输出名称数组
'
' outputProduced(): 单元产生的输出的二维数组（第一维是单元，第二维是输出）
'
' totalInputCost(): 二维数组（第一个下标是单元，第二个是输入） - 例如，TotalInputCost(1,3) 是输入 3 的单位成本乘以单元 1 使用的输入 3 的数量
'
' totalOutputValue(): 与 TotalInputCost 数组相同，只是针对输出
'
' efficiencyIndex(): 线性规划模型的最大输出数组，每个单元一个
Public nUnits As Integer, unitName() As String
Public nInputs