=СУММ(C4:D4;$E$2)

Function zachem(a, b, c)
    zachem = a + b + c
End Function

Public Function Теплоот_гориз_труб(t_вод, t_пом, d_труб, A1, пок_степ_d, пок_степ_ф)
Dim dн, O, f, a2, a3, a, dq

' Function Теплоот_гориз_труб функция расчета теплоотдачи горизонтально проложенных труб
' t_вод      - температура теплоносителя (воды) в начале участка, град Цельсия
' t_пом      - температура воздуха в помещении, град Цельсия
' d_труб     - наружный диаметр труб, мм
' A1         - числовой коэффициент в начале формулы
' пок_степ_d - показатель степени для диаметра
' пок_степ_ф - показатель степени для дроби

'Подготовительные расчеты
   dн = d_труб / 1000       'Перевод из м. в мм.
   O = t_вод - t_пом        'Определение температурного напора
   f = 3.1415 * dн ^ 2 / 4  'Расчет наружной поверхности 1 м. горизонтальных труб
   a2 = пок_степ_d          'показатль степени диаметра
   a3 = пок_степ_ф          'показатль степени дроби
   
'Основной блок
           a = A1 * (O / dн ^ a2) ^ a3 'Расчет коэффициента теплоотдачи горизонтальных труб
           dq = a * f * O              'Расчет теплоотдачи горизонтальных труб
           
'Вывод
            Теплоот_гориз_труб = dq
                        
End Function

=($W$220*(G228/(($U$227/1000)^$W$224))^$W$222)*G228*3,1415*(($U$227/1000)^2)/4

*3,1415

*ПИ()

Public Function Теплоот_гориз_труб(t_вод as Double, t_пом as Double, d_труб as Double, A1 as Double, пок_степ_d as Double, пок_степ_ф as Double) as Double
Dim dн as Double, O as Double, f as Double, a2 as Double, a3 as Double, a as Double, dq as Double

=(коэффициент*(G228/((d_труб/1000)^пок_степ_d))^пок_степ_ф)*G228*ПИ()*((d_труб/1000)^2)/4