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

关于球墨铸铁管excel自定义函数 自定义函数 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 regularly, neat in appearance, the main-beam with small harness line must be smooth transition, small wire harness tied to main beam should be at a 90-degree angle. 6.4.5 harness banding material for plastic cable tie, and banding material colors should 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.球墨铸铁管截面积的函数代码，用于计算回填扣除体积的函数(单位m?) 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) regularly, neat in appearance, the main-beam with small harness line must be smooth transition, small wire harness tied to main beam should be at a 90-degree angle. 6.4.5 harness banding material for plastic cable tie, and banding material colors should 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 = "DN600" Then SG = Round(0.25 * pi * 0.635 ^ 2, 3) End If If L = "DN500" Then SG = Round(0.25 * pi * 0.532 ^ 2, 3) End If If L = "DN450" Then SG = Round(0.25 * pi * 0.48 ^ 2, 3) End If If L = "DN400" Then SG = Round(0.25 * pi * 0.429 ^ 2, 3) End If If L = "DN350" Then SG = Round(0.25 * pi * 0.378 ^ 2, 3) End If If L = "DN300" Then SG = Round(0.25 * pi * 0.326 ^ 2, 3) End If If L = "DN250" Then SG = Round(0.25 * pi * 0.274 ^ 2, 3) End If If L = "DN200" Then SG = Round(0.25 * pi * 0.222 ^ 2, 3) End If If L = "DN150" Then SG = Round(0.25 * pi * 0.17 ^ 2, 3) End If If L = "DN125" Then SG = Round(0.25 * pi * 0.144 ^ 2, 3) End If If L = "DN100" Then SG = Round(0.25 * pi * 0.118 ^ 2, 3) End If If L = "DN80" Then regularly, neat in appearance, the main-beam with small harness line must be smooth transition, small wire harness tied to main beam should be at a 90-degree angle. 6.4.5 harness banding material for plastic cable tie, and banding material colors should SG = Round(0.25 * pi * 0.098 ^ 2, 3) End If If L = "" Then SG = 0 End If End Function 3.球墨铸铁管基础宽度的函数代码(单位m) Function WG(L As String) As Variant If L = "DN1600" Then WG = 3 End If If L = "DN1500" Then WG = 2.85 End If If L = "DN1400" Then WG = 2.7 End If If L = "DN1200" Then WG = 2.4 End If If L = "DN1100" Then WG = 2.3 End If If L = "DN1000" Then WG = 2.15 End If If L = "DN900" Then WG = 1.92 End If If L = "DN800" Then WG = 1.8 End If If L = "DN700" Then WG = 1.65 End If If L = "DN600" Then WG = 1.5 End If If L = "DN500" Then WG = 1.35 End If If L = "DN450" Then WG = 1.3 End If regularly, neat in appearance, the main-beam with small harness line must be smooth transition, small wire harness tied to main beam should be at a 90-degree angle. 6.4.5 harness banding material for plastic cable tie, and banding material colors should If L = "DN400" Then WG = 1.25 End If If L = "DN350" Then WG = 1.15 End If If L = "DN300" Then WG = 1.1 End If If L = "DN250" Then WG = 1 End If If L = "DN200" Then WG = 0.94 End If If L = "DN150" Then WG = 0.85 End If If L = "DN125" Then WG = 0.83 End If If L = "DN100" Then WG = 0.8 End If If L = "DN80" Then WG = 0.75 End If If L = "DN65" Then WG = 0.72 End If If L = "DN60" Then WG = 0.7 End If If L = "DN50" Then WG = 0.68 End If If L = "DN40" Then WG = 0.65 End If If L = "" Then WG = 0 End If End Function 4.球墨铸铁管基础C1高度度的函数代码 (单位m) regularly, neat in appearance, the main-beam with small harness line must be smooth transition, small wire harness tied to main beam should be at a 90-degree angle. 6.4.5 harness banding material for plastic cable tie, and banding material colors should Function GHC(L As String) As Variant If L = "DN1600" Then GHC = 0.2 End If If L = "DN1500" Then GHC = 0.19 End If If L = "DN1400" Then GHC = 0.18 End If If L = "DN1200" Then GHC = 0.16 End If If L = "DN1100" Then GHC = 0.15 End If If L = "DN1000" Then GHC = 0.14 End If If L = "DN900" Then GHC = 0.13 End If If L = "DN800" Then GHC = 0.12 End If If L = "DN700" Or L = "DN600" Then GHC = 0.11 End If If L = "DN500" Or L = "DN450" Or L = "DN400" Or L = "DN350" Or L = "DN300" Then GHC = 0.1 End If If L = "DN250" Or L = "DN200" Or L = "DN150" Or L = "DN125" Or L = "DN100" Then GHC = 0.1 End If If L = "DN80" Or L = "DN65" Or L = "DN60" Or L = "DN50" Or L = "DN40" Then GHC = 0.1 End If If L = "" Then GHC = 0 End If End Function 5.球墨铸铁管基础C1高度度的函数代码 (单位m) Function HGC(L As String) As Variant regularly, neat in appearance, the main-beam with small harness line must be smooth transition, small wire harness tied to main beam should be at a 90-degree angle. 6.4.5 harness banding material for plastic cable tie, and banding material colors should If L = "DN1600" Then HGC = 0.417 End If If L = "DN1500" Then HGC = 0.392 End If If L = "DN1400" Then HGC = 0.366 End If If L = "DN1200" Then HGC = 0.314 End If If L = "DN1100" Then HGC = 0.288 End If If L = "DN1000" Then HGC = 0.262 End If If L = "DN900" Then HGC = 0.237 End If If L = "DN800" Then HGC = 0.211 End If If L = "DN700" Then HGC = 0.185 End If If L = "DN600" Then HGC = 0.159 End If If L = "DN500" Then HGC = 0.133 End If If L = "DN450" Then HGC = 0.12 End If If L = "DN400" Then HGC = 0.108 End If If L = "DN350" Then HGC = 0.095 End If If L = "DN300" Then HGC = 0.082 regularly, neat in appearance, the main-beam with small harness line must be smooth transition, small wire harness tied to main beam should be at a 90-degree angle. 6.4.5 harness banding material for plastic cable tie, and banding material colors should End If If L = "DN250" Then HGC = 0.069 End If If L = "DN200" Then HGC = 0.055 End If If L = "DN150" Then HGC = 0.043 End If If L = "DN125" Then HGC = 0.036 End If If L = "DN100" Then HGC = 0.03 End If If L = "DN80" Then HGC = 0.025 End If If L = "DN65" Then HGC = 0.021 End If If L = "DN60" Then HGC = 0.02 End If If L = "DN50" Then HGC = 0.017 End If If L = "DN40" Then HGC = 0.014 End If If L = "" Then HGC = 0 End If End Function 6.球墨铸铁管管外径的函数代码 (单位m) Function De(L As String) As Variant If L = "DN1600" Then De = 1.668 End If If L = "DN1500" Then De = 1.565 End If If L = "DN1400" Then regularly, neat in appearance, the main-beam with small harness line must be smooth transition, small wire harness tied to main beam should be at a 90-degree angle. 6.4.5 harness banding material for plastic cable tie, and banding material colors should De = 1.462 End If If L = "DN1200" Then De = 1.255 End If If L = "DN1100" Then De = 1.152 End If If L = "DN1000" Then De = 1.048 End If If L = "DN900" Then De = 0.945 End If If L = "DN800" Then De = 0.842 End If If L = "DN700" Then De = 0.738 End If If L = "DN600" Then De = 0.635 End If If L = "DN500" Then De = 0.532 End If If L = "DN450" Then De = 0.48 End If If L = "DN400" Then De = 0.429 End If If L = "DN350" Then De = 0.378 End If If L = "DN300" Then De = 0.326 End If If L = "DN250" Then De = 0.274 End If If L = "DN200" Then De = 0.222 End If regularly, neat in appearance, the main-beam with small harness line must be smooth transition, small wire harness tied to main beam should be at a 90-degree angle. 6.4.5 harness banding material for plastic cable tie, and banding material colors should If L = "DN150" Then De = 0.17 End If If L = "DN125" Then De = 0.144 End If If L = "DN100" Then De = 0.118 End If If L = "DN80" Then De = 0.098 End If If L = "" Then De = 0 End If End Function 6.砼盖板体积的函数代码 (留洞φ800)(单位m)L1，L2为井内空尺寸，m是区别计算砼还是侧，0为砼，1为侧模 Function GB(L1 As Single, L2 As Single, L3 As Single, m As Integer) As Single Dim A As Single If L1 = 1.1 And L2 = 2 Then A = 0.2 End If If L1 = 2.48 And L2 = 3.3 Then A = 0.24 Else A = 0.18 End If If L1 = 1.1 And L2 = 2 Then If m = 0 Then GB = ((L1 + 0.2 * 2) * (L2 + 0.2 * 2) - 3.1415926 * 0.4 ^ 2) * L3 End If If m = 1 Then GB = ((L1 + L2 + 4 * 0.2) * 2 + 3.1415926 * 0.8) * L3 End If End If If L1 = 2.48 And L2 = 3.3 Then If m = 0 Then GB = ((L1 + 0.24 * 2) * (L2 + 0.24 * 2) - 3.1415926 * 0.4 ^ 2) * L3 End If If m = 1 Then GB = ((L1 + L2 + 4 * 0.24) * 2 + 3.1415926 * 0.8) * L3 End If regularly, neat in appearance, the main-beam with small harness line must be smooth transition, small wire harness tied to main beam should be at a 90-degree angle. 6.4.5 harness banding material for plastic cable tie, and banding material colors should End If If L1 = L2 And L1 = 0.7 Then If m = 0 Then GB = ((L1 + 0.4) * (L2 + 0.4) - 3.1415926 * 0.35 ^ 2) * 0.2 End If If m = 1 Then GB = ((L1 + L2 + 4 * 0.2) * 2 + 3.1415926 * 0.7) * 0.2 End If End If If L1 = L2 And L1 = 1 Then If m = 0 Then GB = ((L1 + 0.4) * (L2 + 0.4) - 3.1415926 * 0.4 ^ 2) * 0.2 End If If m = 1 Then GB = ((L1 + L2 + 4 * 0.2) * 2 + 3.1415926 * 0.8) * 0.2 End If End If If L1 = L2 And L1 <= 1.3 And L1 >= 1 Then If m = 0 Then GB = ((L1 + 0.4) * (L2 + 0.4) - 3.1415926 * 0.4 ^ 2) * 0.2 End If If m = 1 Then GB = ((L1 + L2 + 4 * 0.2) * 2 + 3.1415926 * 0.8) * 0.2 End If End If If L1 = L2 And L1 >= 2.2 Then If m = 0 Then GB = ((L1 + 2 * 0.24) * (L2 + 2 * 0.24) - 3.1415926 * 0.4 ^ 2) * L3 End If If m = 1 Then GB = ((L1 + L2 + 4 * 0.24) * 2 + 3.1415926 * 0.8) * L3 End If End If If L1 <> L2 Then If m = 0 Then GB = ((L1 + A * 2) * (L2 + A * 2) - 3.1415926 * 0.4 ^ 2) * L3 End If If m = 1 Then GB = ((L1 + L2 + 4 * A) * 2 + 3.1415926 * 0.8) * L3 End If End If regularly, neat in appearance, the main-beam with small harness line must be smooth transition, small wire harness tied to main beam should be at a 90-degree angle. 6.4.5 harness banding material for plastic cable tie, and banding material colors should End Function 7.井各部位工程量计算的函数代码 (单位m)L1，L2为井内空尺寸，DCT为垫层砼，DCS为垫层侧模板，DT为底板砼，DS为底板侧模板，QT为墙体砼，QS为墙体侧模板，均未扣除管道洞量 Function JA(短内边 As Single, 长内边 As Single, 井深 As Single, 壁厚 As Single, 底厚 As Single, 底外挑长 As Single, 垫层外挑长 As Single, 项 As String) As Variant If 项 = "DCT" Then JA = Round((短内边 + (壁厚 + 底外挑长 + 垫层外挑长) * 2) * (长内边 + (壁厚 + 底外挑长 + 垫层外挑长) * 2) * 0.1, 3) End If If 项 = "DCS" Then JA = Round((短内边 + 长内边 + (壁厚 + 底外挑长 + 垫层外挑长) * 4) * 2 * 0.1, 3) End If If 项 = "DT" Then JA = Round((短内边 + (壁厚 + 底外挑长) * 2) * (长内边 + (壁厚 + 底外挑长) * 2) * 底厚, 3) End If If 项 = "DS" Then JA = Round((短内边 + 长内边 + (壁厚 + 底外挑长) * 4) * 2 * 底厚, 3) End If If 项 = "QT" Then JA = Round(((短内边 + 壁厚 * 2) * (长内边 + 壁厚 * 2) - 短内边 * 长内边) * 井深, 3) End If If 项 = "QS" Then JA = Round((短内边 + 长内边 + 壁厚 * 2) * 4 * 井深, 3) End If End Function Function KG(L As String) As Variant Dim pi As Single pi = 3.14159265358979 If L = "DN1600" Then KG = 0.25 * (pi / 3 - 0.25 * Sqr(3)) * 1.668 ^ 2 End If If L = "DN1500" Then KG = 0.25 * (pi / 3 - 0.25 * Sqr(3)) * 1.565 ^ 2 End If If L = "DN1400" Then KG = 0.25 * (pi / 3 - 0.25 * Sqr(3)) * 1.462 ^ 2 End If If L = "DN1200" Then KG = 0.25 * (pi / 3 - 0.25 * Sqr(3)) * 1.255 ^ 2 End If If L = "DN1100" Then KG = 0.25 * (pi / 3 - 0.25 * Sqr(3)) * 1.152 ^ 2 regularly, neat in appearance, the main-beam with small harness line must be smooth transition, small wire harness tied to main beam should be at a 90-degree angle. 6.4.5 harness banding material for plastic cable tie, and banding material colors should End If If L = "DN1000" Then KG = 0.25 * (pi / 3 - 0.25 * Sqr(3)) * 1.048 ^ 2 End If If L = "DN900" Then KG = 0.25 * (pi / 3 - 0.25 * Sqr(3)) * 0.945 ^ 2 End If If L = "DN800" Then KG = 0.25 * (pi / 3 - 0.25 * Sqr(3)) * 0.842 ^ 2 End If If L = "DN700" Then KG = 0.25 * (pi / 3 - 0.25 * Sqr(3)) * 0.738 ^ 2 End If If L = "DN600" Then KG = 0.25 * (pi / 3 - 0.25 * Sqr(3)) * 0.635 ^ 2 End If If L = "DN500" Then KG = 0.25 * (pi / 3 - 0.25 * Sqr(3)) * 0.532 ^ 2 End If If L = "DN450" Then KG = 0.25 * (pi / 3 - 0.25 * Sqr(3)) * 0.48 ^ 2 End If If L = "DN400" Then KG = 0.25 * (pi / 3 - 0.25 * Sqr(3)) * 0.429 ^ 2 End If If L = "DN350" Then KG = 0.25 * (pi / 3 - 0.25 * Sqr(3)) * 0.378 ^ 2 End If If L = "DN300" Then KG = 0.25 * (pi / 3 - 0.25 * Sqr(3)) * 0.326 ^ 2 End If If L = "DN250" Then KG = 0.25 * (pi / 3 - 0.25 * Sqr(3)) * 0.274 ^ 2 End If If L = "DN200" Then KG = 0.25 * (pi / 3 - 0.25 * Sqr(3)) * 0.222 ^ 2 End If If L = "DN150" Then KG = 0.25 * (pi / 3 - 0.25 * Sqr(3)) * 0.17 ^ 2 End If If L = "DN125" Then KG = 0.25 * (pi / 3 - 0.25 * Sqr(3)) * 0.144 ^ 2 End If If L = "DN100" Then regularly, neat in appearance, the main-beam with small harness line must be smooth transition, small wire harness tied to main beam should be at a 90-degree angle. 6.4.5 harness banding material for plastic cable tie, and banding material colors should KG = 0.25 * (pi / 3 - 0.25 * Sqr(3)) * 0.118 ^ 2 End If If L = "DN80" Then KG = 0.25 * (pi / 3 - 0.25 * Sqr(3)) * 0.098 ^ 2 End If If L = "DN65" Then KG = 0.25 * (pi / 3 - 0.25 * Sqr(3)) * 0.082 ^ 2 End If If L = "DN60" Then KG = 0.25 * (pi / 3 - 0.25 * Sqr(3)) * 0.077 ^ 2 End If If L = "DN50" Then KG = 0.25 * (pi / 3 - 0.25 * Sqr(3)) * 0.066 ^ 2 End If If L = "DN40" Then KG = 0.25 * (pi / 3 - 0.25 * Sqr(3)) * 0.056 ^ 2 End If If L = "" Then KG = 0 End If End Function 7.井底以上部位井的体积的函数代码，用于土方回填计算，计算扣除量 Function JV(短内边 As Single, 长内边 As Single, 井深 As Single, 壁厚 As Single) As Variant JV = Round((短内边 + 壁厚 * 2) * (长内边 + 壁厚 * 2) * 井深, 3) End Function regularly, neat in appearance, the main-beam with small harness line must be smooth transition, small wire harness tied to main beam should be at a 90-degree angle. 6.4.5 harness banding material for plastic cable tie, and banding material colors should