关于球墨铸铁管excel自定义函数.doc

自定义函数 1.球墨铸铁管内壁与承口外皮高差的函数代码，用于施工定位及土方计算（单位m） Function h(DN As String) As Variant If DN = DN1600 Then h = 0.13 End If If DN = DN1500 Then h = 0.12 End If If DN = DN1400 Then h = 0.091 End If If DN = DN1200 Then h = 0.076 End If If DN = DN1100 Then h = 0.072 End If If DN = DN1000 Then h = 0.069 End If If DN = DN900 Then h = 0.066 End If If DN = DN800 Then h = 0.062 End If If DN = DN700 Then h = 0.054 End If If DN = DN600 Then h = 0.049 End If If DN = DN500 Then h = 0.045 End If If DN = DN450 Then h = 0.039 End If If DN = DN400 Then h = 0.044 End If If DN = DN350 Then h = 0.043 End If If DN = DN300 Then h = 0.041 End If If DN = DN250 Then h = 0.038 End If If DN = DN200 Then h = 0.035 End If If DN = DN150 Or DN = DN50 Or DN = DN40 Then h = 0.03 End If If DN = DN125 Or DN = DN100 Or DN = DN65 Or DN = DN60 Then h = 0.029 End If If DN = DN80 Then h = 0.027 End If If DN = Then h = 0 End If End Function 2.球墨铸铁管截面积的函数代码，用于计算回填扣除体积的函数（单位m2） Function SG(L As String) As Variant Dim pi As Single pi = 3.14159265358979 If L = DN1600 Then SG = Round(0.25 * pi * 1.668 ^ 2, 3) End If If L = DN1500 Then SG = Round(0.25 * pi * 1.565 ^ 2, 3) End If If L = DN1400 Then SG = Round(0.25 * pi * 1.462 ^ 2, 3) End If If L = DN1200 Then SG = Round(0.25 * pi * 1.255 ^ 2, 3) End If If L = DN1100 Then SG = Round(0.25 * pi * 1.152 ^ 2, 3) End If If L = DN1000 Then SG = Round(0.25 * pi * 1.048 ^ 2, 3) End If If L = DN900 Then SG = Round(0.25 * pi * 0.945 ^ 2, 3) End If If L = DN800 Then SG = Round(0.25 * pi * 0.842 ^ 2, 3) End If If L = DN700 Then SG = Round(0.25 * pi * 0.738 ^ 2, 3) End If If L =