招标代理费的计算可以通过编写一个简单的函数来实现，该函数可以根据不同的服务类型（货物、服务、工程）和不同的中标金额来计算费用。以下是一个使用VBA编写的招标代理费计算函数的示例：
```vba
Option Explicit
Function 招标代理费（服务类型 As String， 中标金额 As Double） As Double
Dim brr
Dim 招标代理费率
' 根据服务类型选择不同的费率数组
Select Case 服务类型
Case "货物"
brr = Array（1.50, 1.10, 0.80, 0.50, 0.25, 0.05, 0.01） / 100
Case "服务"
brr = Array（1.50, 0.80, 0.45, 0.25, 0.10, 0.05, 0.01） / 100
Case "工程"
brr = Array（1.00, 0.70, 0.55, 0.35, 0.20, 0.05, 0.01） / 100
Case Else
招标代理费 = "error"
Exit Function
End Select
' 计算招标代理费
招标代理费 = 中标金额
For i = LBound（brr） To UBound（brr）
招标代理费 = 招标代理费 + brr（i）
Next i
End Function
```
使用示例
货物招标
```vba
Dim 费用 As Double
费用 = 招标代理费（"货物", 1000）
Debug.Print 费用 ' 输出： 15
```
服务招标
```vba
费用 = 招标代理费（"服务", 2000）
Debug.Print 费用 ' 输出： 28
```
工程招标
```vba
费用 = 招标代理费（"工程", 5000）
Debug.Print 费用 ' 输出： 65
```
注意事项
服务类型：
确保输入的服务类型是有效的（"货物"、"服务"、"工程"）。
中标金额：
确保输入的中标金额是有效的数值。
费率数组：
根据不同的服务类型，选择正确的费率数组进行计算。
通过这种方式，可以快速、准确地计算招标代理费，提高工作效率和准确性。