excel vba 自定义函数FUNCTION，天津造价咨询费测算自定义函数。

jzkwf705

于 2020-03-10 13:08:34 发布

阅读量740

点赞数

分类专栏： Excel vba # Excel Vba 函数

本文链接：https://blog.csdn.net/jzkwf705/article/details/104772159

版权

本文介绍了如何使用VBA在Excel中创建一个自定义函数，根据津价房地2008[136]号文件来计算造价咨询费用。用户可以通过输入收费基数和选择相应参数进行计算。提供的造价咨询费.xlsm文件包含了该功能。

摘要由CSDN通过智能技术生成

利用VBA，根据 136号文计算造价咨询费编制自定义函数。
20080615_津价房地2008[136]号_关于工程造价咨询服务项目及价格的通知。
使用方法：
=造价咨询费(收费基数,第二参数)
下载文件：造价咨询费.xlsm

Option Explicit

Function 造价咨询费(投资额 As Double, 阶段 As Long) As Double
    Dim brr
    
    If 阶段 = 1 Then        '编制项目投资估算
        brr = [{
  0.80,0.70,0.60,0.50,0.30,0.15}/1000]
    ElseIf 阶段 = 2 Then    '编制设计概算
        brr = [{
  1.70,1.50,1.20,0.85,0.70,0.40}/1000]
    ElseIf 阶段 = 3 Then    '工程造价编制-编制工程量清单
        brr = [{
  3.40,3.20,3.00,2.40,2.00,1.60}/1000]
    ElseIf 阶段 = 4 Then    '工程造价编制-编制标底（含清单）
        brr = [{
  3.60,</