'АЛГОРИТМ ЗАПОЛНЕНИЯ ЯЧЕЕК ЭЛЕКТРОННОЙ ТАБЛИЦЫ  *ForExport.xls, 
'РЕАЛИЗОВАННЫЙ В ПРОГРАММЕ "КРОВЛЯ ПРОФИ" версия 6.0.*.*

'Описание переменных.

Dim Заказчик As String
Dim Поставщик As String
Dim Менеджер As String
Dim Заказ As String
Dim ДенежнаяЕдиница As String
Dim КурсВалюты As Currency
Dim НаименованиеМатериала As String
Dim ТипРасчета As String
Dim ПолезнаяШиринаЛиста As Single
Dim ПолнаяШиринаЛиста As Single
Dim МаксимальнаяДлинаЛиста As Single
Dim МаксимальнаяРеальнаяДлинаЛиста As Single
Dim МаксимальнаяСтандартнаяДлинаЛиста As Single
Dim ДлинаВолны As Single
Dim ДлинаЛистовогоМатериалаИлиЧерепицыИлиСайдинга As Single
Dim ПерекрытиеКоньковое As Single
Dim ПерекрытиеЗамковое As Single
Dim Капельник As Single
Dim Покрытие As String
Dim Цвет As String
Dim КоличествоСкатов As Long
Dim Уклон() As Single
Dim ДлинаСката() As Single
Dim ПлощадьСката() As Single
Dim ПолезнаяПлощадьЛистов() As Single
Dim ПолнаяПлощадьЛистов() As Single
Dim ПроцентОтходов() As Single
Dim ПлощадьСкатаСумм As Single
Dim ПолезнаяПлощадьЛистовСумм As Single
Dim ПолнаяПлощадьЛистовСумм As Single
Dim ПроцентОтходовСумм As Single
Dim ПогонныхМетров As Single
Dim ЦенаЗаSполезнаяУслЕд As Currency
Dim СуммаЗаSполезнаяУслЕд As Currency
Dim ЦенаЗаSполезнаяДенежЕд As Currency
Dim СуммаЗаSполезнаяДенежЕд As Currency
Dim ЦенаЗаSполнаяУслЕд As Currency
Dim СуммаЗаSполнаяУслЕд As Currency
Dim ЦенаЗаSполнаяДенежЕд As Currency
Dim СуммаЗаSполнаяДенежЕд As Currency
Dim ЦенаЗаПогонныйМетрУслЕд As Currency
Dim СуммаЗаПогонныйМетрУслЕд As Currency
Dim ЦенаЗаПогонныйМетрДенежЕд As Currency
Dim СуммаЗаПогонныйМетрДенежЕд As Currency
Dim КоличествоТипоразмеровЛистов As Long
Dim ДлинаЛиста() As Single
Dim КоличествоЛистов() As Long
Dim КоличествоЛистовЧерепиц As Long
Dim КоличествоЛистовНаСкладе() As Long
Dim ЦенаЗаЛистУслЕд As Currency
Dim СуммаЗаЛистУслЕд As Currency
Dim ЦенаЗаЛистДенежЕд As Currency
Dim СуммаЗаЛистДенежЕд As Currency

Dim КоличествоТиповДоборныхЭлементов As Long
Dim НаименованиеДоборногоЭлемента() As String
Dim СуммарнаяДлинаДоборногоЭлемента() As Single
Dim ДлинаДеталиДоборногоЭлемента() As Single
Dim НахлестДоборногоЭлемента() As Single
Dim КоличествоДеталейДоборногоЭлемента() As Long
Dim ЦенаЗаДоборныйЭлементУслЕд() As Currency
Dim СуммаЗаДоборныйЭлементУслЕд() As Currency
Dim ЦенаЗаДоборныйЭлементДенежЕд() As Currency
Dim СуммаЗаДоборныйЭлементДенежЕд() As Currency
Dim ДлинаДоборногоЭлементаНаСкате() As Single

Dim КоличествоСаморезов1ДляДоборныхЭлементовНаСкате() As Long
Dim НаименованиеСаморезов1ДляДоборных As String
Dim КоличествоСаморезов1ДляДоборныхЭлементов As Long
Dim ЦенаЗаСаморезы1ДляДоборныхУслЕд As Currency
Dim СуммаЗаСаморезы1ДляДоборныхУслЕд As Currency
Dim ЦенаЗаСаморезы1ДляДоборныхДенежЕд As Currency
Dim СуммаЗаСаморезы1ДляДоборныхДенежЕд As Currency

Dim КоличествоСаморезов2ДляДоборныхЭлементовНаСкате() As Long
Dim НаименованиеСаморезов2ДляДоборных As String
Dim КоличествоСаморезов2ДляДоборныхЭлементов As Long
Dim ЦенаЗаСаморезы2ДляДоборныхУслЕд As Currency
Dim СуммаЗаСаморезы2ДляДоборныхУслЕд As Currency
Dim ЦенаЗаСаморезы2ДляДоборныхДенежЕд As Currency
Dim СуммаЗаСаморезы2ДляДоборныхДенежЕд As Currency

Dim КоличествоСаморезов1КровельныхНаСкате() As Long
Dim НаименованиеСаморезов1Кровельных As String
Dim КоличествоСаморезов1Кровельных As Long
Dim ЦенаЗаСаморезы1КровельныеУслЕд As Currency
Dim СуммаЗаСаморезы1КровельныеУслЕд As Currency
Dim ЦенаЗаСаморезы1КровельныеДенежЕд As Currency
Dim СуммаЗаСаморезы1КровельныеДенежЕд As Currency

Dim КоличествоСаморезов2КровельныхНаСкате() As Long
Dim НаименованиеСаморезов2Кровельных As String
Dim КоличествоСаморезов2Кровельных As Long
Dim ЦенаЗаСаморезы2КровельныеУслЕд As Currency
Dim СуммаЗаСаморезы2КровельныеУслЕд As Currency
Dim ЦенаЗаСаморезы2КровельныеДенежЕд As Currency
Dim СуммаЗаСаморезы2КровельныеДенежЕд As Currency

Dim КоличествоУпаковокСаморезов1Кровельных As Long
Dim КоличествоУпаковокСаморезов2Кровельных As Long
Dim КоличествоУпаковокСаморезов1Доборных As Long
Dim КоличествоУпаковокСаморезов2Доборных As Long

Dim СуммаИтоговаяУслЕд As Currency
Dim СуммаИтоговаяДенежЕд As Currency

Dim СмещениеСтроки as Long

Dim КоличествоДополнительныхПозицийСпецификации As Long
Dim НаименованиеДополнительнойПозицииСпецификации As String
Dim ЕдиницаИзмеренияДополнительнойПозицииСпецификации As String
Dim КоличествоЕдиницДополнительнойПозицииСпецификации As Single
Dim ЦенаЗаЕдиницуДополнительнойПозицииСпецификацииУслЕд As Currency
Dim СуммаЗаВсёКоличествоДополнительнойПозицииСпецификацииУслЕд As Currency
Dim ЦенаЗаЕдиницуДополнительнойПозицииСпецификацииДенежЕд As Currency
Dim СуммаЗаВсёКоличествоДополнительнойПозицииСпецификацииДенежЕд As Currency
Dim Примечание As String


'Заполнение ячеек

Cells(1, 1).Value = "Заказчик:"
Cells(1, 2).Value = Заказчик

Cells(2, 1).Value = "Поставщик:"
Cells(2, 2).Value = Поставщик

Cells(3, 1).Value = "Менеджер:"
Cells(3, 2).Value = Менеджер

Cells(4, 1).Value = "№ Заказа: "
Cells(4, 2).Value = Заказ

Cells(5, 1).Value = "Наименование денежной единицы:"
Cells(5, 2).Value = ДенежнаяЕдиница

Cells(6, 1).Value = "Курс условной единицы к денежной единице:"
Cells(6, 2).Value = КурсВалюты

Cells(7, 1).Value = "Наименование материала:"
Cells(7, 2).Value = НаименованиеМатериала

Cells(8, 1).Value = "Тип расчета:"
Cells(8, 2).Value = ТипРасчета
'переменная ТипРасчета принимает одно из семи значений:
' "Металлочерепица на заказ", "Металлочерепица со склада",
' "Черепица", "Профнастил", "Листовой материал", "Сайдинг на заказ", "Сайдинг со склада"

Cells(9, 1).Value = "Полезная ширина листа, м: "
Cells(9, 2).Value = ПолезнаяШиринаЛиста

Cells(10, 1).Value = "Полная ширина листа, м:"
Cells(10, 2).Value = ПолнаяШиринаЛиста

    If ТипРасчета = "Профнастил" Or ТипРасчета = "Сайдинг на заказ" Then
        Cells(11, 1).Value = "Максимальная длина листа, м:"
        Cells(11, 2).Value = МаксимальнаяДлинаЛиста
    ElseIf ТипРасчета = "Металлочерепица на заказ" Or ТипРасчета = "Металлочерепица со склада" Then
        Cells(11, 1).Value = "Максимальная реальная длина листа,м:"
        Cells(11, 2).Value = МаксимальнаяРеальнаяДлинаЛиста
        Cells(12, 1).Value = "Максимальная стандартная длина листа,м: "
        Cells(12, 2).Value = МаксимальнаяСтандартнаяДлинаЛиста
        Cells(13, 1).Value = "Длина волны, м:"
        Cells(13, 2).Value = ДлинаВолны
    ElseIf ТипРасчета = "Листовой материал" Or ТипРасчета = "Сайдинг со склада" Or ТипРасчета = "Черепица" Then
        Cells(11, 1).Value = "Длина листа '" & НаименованиеМатериала & "', м:"
        Cells(11, 2).Value = ДлинаЛистовогоМатериалаИлиЧерепицыИлиСайдинга
   End If

Cells(14, 1).Value = "Перекрытие Коньковое, м:"
Cells(14, 2).Value = ПерекрытиеКоньковое
Cells(15, 1).Value = "Перекрытие Замковое, м:"
Cells(15, 2).Value = ПерекрытиеЗамковое
Cells(16, 1).Value = "Капельник, м:"
Cells(16, 2).Value = Капельник
Cells(17, 1).Value = "Покрытие:"
Cells(17, 2).Value = Покрытие
Cells(18, 1).Value = "Цвет:"
Cells(18, 2).Value = Цвет

Cells(20, 1).Value = "Количество скатов:"
Cells(20, 2).Value = КоличествоСкатов

Cells(21, 1).Value = "Номер ската № ск.:"
Cells(22, 1).Value = "Уклон, град.:"
Cells(23, 1).Value = "Длина ската Lската, м:"
Cells(24, 1).Value = "Площадь ската Sск., кв.м.:"
Cells(25, 1).Value = "Полезная площадь листов Sполезная, кв.м.:"
Cells(26, 1).Value = "Полная площадь листов Sполная, кв.м.:"
Cells(27, 1).Value = "Отходы,%"


ReDim Уклон(1 To КоличествоСкатов) As Single
ReDim ДлинаСката(1 To КоличествоСкатов) As Single
ReDim ПлощадьСката(1 To КоличествоСкатов) As Single
ReDim ПолезнаяПлощадьЛистов(1 To КоличествоСкатов) As Single
ReDim ПолнаяПлощадьЛистов(1 To КоличествоСкатов) As Single
ReDim ПроцентОтходов(1 To КоличествоСкатов) As Currency

For i = 1 To КоличествоСкатов
    Cells(21, i + 1).Value = i
    Cells(22, i + 1).Value = Уклон(i)
    Cells(23, i + 1).Value = ДлинаСката(i)
    Cells(24, i + 1).Value = ПлощадьСката(i)
    Cells(25, i + 1).Value = ПолезнаяПлощадьЛистов(i)
    Cells(26, i + 1).Value = ПолнаяПлощадьЛистов(i)
    Cells(27, i + 1).Value = ПроцентОтходов(i)
Next i
       
Cells(21, КоличествоСкатов + 2).Value = "Всего:"
Cells(24, КоличествоСкатов + 2).Value = ПлощадьСкатаСумм
Cells(25, КоличествоСкатов + 2).Value = ПолезнаяПлощадьЛистовСумм
Cells(26, КоличествоСкатов + 2).Value = ПолнаяПлощадьЛистовСумм
Cells(27, КоличествоСкатов + 2).Value = ПроцентОтходовСумм

Cells(21, КоличествоСкатов + 3).Value = "Цена, у.е."
Cells(21, КоличествоСкатов + 4).Value = "Сумма, у.е."
Cells(21, КоличествоСкатов + 5).Value = "Цена, " & ДенежнаяЕдиница
Cells(21, КоличествоСкатов + 6).Value = "Сумма, " & ДенежнаяЕдиница

Cells(25, КоличествоСкатов + 3).Value = ЦенаЗаSполезнаяУслЕд
Cells(25, КоличествоСкатов + 4).Value = СуммаЗаSполезнаяУслЕд
Cells(25, КоличествоСкатов + 5).Value = ЦенаЗаSполезнаяДенежЕд
Cells(25, КоличествоСкатов + 6).Value = СуммаЗаSполезнаяДенежЕд

Cells(26, КоличествоСкатов + 3).Value = ЦенаЗаSполнаяУслЕд
Cells(26, КоличествоСкатов + 4).Value = СуммаЗаSполнаяУслЕд
Cells(26, КоличествоСкатов + 5).Value = ЦенаЗаSполнаяДенежЕд
Cells(26, КоличествоСкатов + 6).Value = СуммаЗаSполнаяДенежЕд

'   ПРОФНАСТИЛ, МЕТАЛЛОЧЕРЕПИЦА НА ЗАКАЗ, САЙДИНГ НА ЗАКАЗ
If ТипРасчета = "Профнастил" Or ТипРасчета = "Металлочерепица на заказ" Or ТипРасчета = "Сайдинг на заказ" Then
    Cells(28, 1).Value = "Погонных метров:"
    Cells(28, КоличествоСкатов + 2).Value = ПогонныхМетров

    Cells(28, КоличествоСкатов + 3).Value = ЦенаЗаПогонныйМетрУслЕд
    Cells(28, КоличествоСкатов + 4).Value = СуммаЗаПогонныйМетрУслЕд
    Cells(28, КоличествоСкатов + 5).Value = ЦенаЗаПогонныйМетрДенежЕд
    Cells(28, КоличествоСкатов + 6).Value = СуммаЗаПогонныйМетрДенежЕд

    Cells(30, 1).Value = "Количество типоразмеров листов:"
    Cells(30, 2).Value = КоличествоТипоразмеровЛистов
    
    ReDim ДлинаЛиста(1 To КоличествоТипоразмеровЛистов) As Single
    ReDim КоличествоЛистов(1 To КоличествоТипоразмеровЛистов) As Long

    Cells(31, 1).Value = "Длина листа, м:"
    Cells(32, 1).Value = "Количество требуемых листов, шт.:"
        For i = 1 To КоличествоТипоразмеровЛистов
            Cells(31, i + 1).Value = ДлинаЛиста(i)
            Cells(32, i + 1).Value = КоличествоЛистов(i)
        Next i
' КОНЕЦ ПРОФНАСТИЛ, МЕТАЛЛОЧЕРЕПИЦА НА ЗАКАЗ, САЙДИНГ НА ЗАКАЗ

' МЕТАЛЛОЧЕРЕПИЦА СО СКЛАДА, ЧЕРЕПИЦА
ElseIf ТипРасчета = "Металлочерепица со склада" Or ТипРасчета = "Черепица" Then
        If ТипРасчета = "Металлочерепица со склада" Then
            Cells(28, 1).Value = "Погонных метров:"
            Cells(28, КоличествоСкатов + 2).Value = ПогонныхМетров
            Cells(28, КоличествоСкатов + 3).Value = ЦенаЗаПогонныйМетрУслЕд
            Cells(28, КоличествоСкатов + 4).Value = СуммаЗаПогонныйМетрУслЕд
            Cells(28, КоличествоСкатов + 5).Value = ЦенаЗаПогонныйМетрДенежЕд
            Cells(28, КоличествоСкатов + 6).Value = СуммаЗаПогонныйМетрДенежЕд
        ElseIf ТипРасчета = "Черепица" Then
            Cells(28, 1).Value = "Количество требуемых листов(черепиц),шт:"
            Cells(28, КоличествоСкатов + 2).Value = КоличествоЛистовЧерепиц
            Cells(28, КоличествоСкатов + 3).Value = ЦенаЗаЛистУслЕд
            Cells(28, КоличествоСкатов + 4).Value = СуммаЗаЛистУслЕд
            Cells(28, КоличествоСкатов + 5).Value = ЦенаЗаЛистДенежЕд
            Cells(28, КоличествоСкатов + 6).Value = СуммаЗаЛистДенежЕд
        End If


    Cells(30, 1).Value = "Количество типоразмеров листов:"
    Cells(30, 2).Value = КоличествоТипоразмеровЛистов
    
    ReDim ДлинаЛиста(1 To КоличествоТипоразмеровЛистов) As Single
    ReDim КоличествоЛистов(1 To КоличествоТипоразмеровЛистов) As Long
    ReDim КоличествоЛистовНаСкладе(1 To КоличествоТипоразмеровЛистов) As Long
    
    Cells(31, 1).Value = "Длина листа, м:"
    Cells(32, 1).Value = "Количество требуемых листов, шт.:"
        For i = 1 To КоличествоТипоразмеровЛистов
            Cells(31, i + 1).Value = ДлинаЛиста(i)
            Cells(32, i + 1).Value = КоличествоЛистов(i)
        Next i

    Cells(33, 1).Value = "Количество листов на складе:"
        For i = 1 To КоличествоТипоразмеровЛистов
            Cells(33, 1 + i).Value = КоличествоЛистовНаСкладе(i)
        Next i
' КОНЕЦ МЕТАЛЛОЧЕРЕПИЦА СО СКЛАДА, ЧЕРЕПИЦА

' ЛИСТОВОЙ МАТЕРИАЛ ИЛИ САЙДИНГ СО СКЛАДА
ElseIf ТипРасчета = "Листовой материал" Or ТипРасчета = "Сайдинг со склада" Then
    Cells(28, 1).Value = "Количество требуемых листов, шт.:"
    Cells(28, КоличествоСкатов + 2).Value = КоличествоЛистовЧерепиц
    Cells(28, КоличествоСкатов + 3).Value = ЦенаЗаЛистУслЕд
    Cells(28, КоличествоСкатов + 4).Value = СуммаЗаЛистУслЕд
    Cells(28, КоличествоСкатов + 5).Value = ЦенаЗаЛистДенежЕд
    Cells(28, КоличествоСкатов + 6).Value = СуммаЗаЛистДенежЕд
    
    Cells(30, 1).Value = "Количество типоразмеров листов:"
    Cells(30, 2).Value = КоличествоТипоразмеровЛистов
    
    ReDim ДлинаЛиста(1 To КоличествоТипоразмеровЛистов) As Single
    ReDim КоличествоЛистов(1 To КоличествоТипоразмеровЛистов) As Long
    
    Cells(31, 1).Value = "Длина листа, м:"
    Cells(32, 1).Value = "Количество требуемых листов, шт.:"
        For i = 1 To КоличествоТипоразмеровЛистов
            Cells(31, i + 1).Value = ДлинаЛиста(i)
            Cells(32, i + 1).Value = КоличествоЛистов(i)
        Next i
End If               ' КОНЕЦ ЛИСТОВОЙ МАТЕРИАЛ ИЛИ САЙДИНГ СО СКЛАДА
'*** *** ***

    'ДОБОРНЫЕ ЭЛЕМЕНТЫ
Cells(34, 1).Value = "Количество типов доборных элементов: "
Cells(34, 2).Value = КоличествоТиповДоборныхЭлементов
Cells(35, 1).Value = "Доборный элемент"
Cells(35, 2).Value = "Общая длина, м"
Cells(35, 3).Value = "Длина детали, м"
Cells(35, 4).Value = "Нахлест, м"
Cells(35, 5).Value = "Кол-во, шт."
Cells(35, 6).Value = "Кол-во, упак."
Cells(35, 7).Value = "Цена за шт., усл.ед."
Cells(35, 8).Value = "Цена за упак., усл.ед."
Cells(35, 9).Value = "Сумма, усл.ед."
Cells(35, 10).Value = "Цена за шт., " & ДенежнаяЕдиница
Cells(35, 11).Value = "Цена за упак., " & ДенежнаяЕдиница
Cells(35, 12).Value = "Сумма, " & ДенежнаяЕдиница
Cells(35, 13).Value = "Поскатно:"

ReDim НаименованиеДоборногоЭлемента(1 To КоличествоТиповДоборныхЭлементов) As String
ReDim СуммарнаяДлинаДоборногоЭлемента(1 To КоличествоТиповДоборныхЭлементов) As Single
ReDim ДлинаДеталиДоборногоЭлемента(1 To КоличествоТиповДоборныхЭлементов) As Single
ReDim НахлестДоборногоЭлемента(1 To КоличествоТиповДоборныхЭлементов) As Single
ReDim КоличествоДеталейДоборногоЭлемента(1 To КоличествоТиповДоборныхЭлементов) As Long
ReDim ЦенаЗаДоборныйЭлементУслЕд(1 To КоличествоТиповДоборныхЭлементов) As Currency
ReDim СуммаЗаДоборныйЭлементУслЕд(1 To КоличествоТиповДоборныхЭлементов) As Currency
ReDim ЦенаЗаДоборныйЭлементДенежЕд(1 To КоличествоТиповДоборныхЭлементов) As Currency
ReDim СуммаЗаДоборныйЭлементДенежЕд(1 To КоличествоТиповДоборныхЭлементов) As Currency
ReDim ДлинаДоборногоЭлементаНаСкате(1 To КоличествоСкатов, 1 To КоличествоТиповДоборныхЭлементов) As Single

For k = 1 To КоличествоТиповДоборныхЭлементов
Cells(35 + k, 1).Value = НаименованиеДоборногоЭлемента(k)
Cells(35 + k, 2).Value = СуммарнаяДлинаДоборногоЭлемента(k)
Cells(35 + k, 3).Value = ДлинаДеталиДоборногоЭлемента(k)
Cells(35 + k, 4).Value = НахлестДоборногоЭлемента(k)
Cells(35 + k, 5).Value = КоличествоДеталейДоборногоЭлемента(k)
Cells(35 + k, 7).Value = ЦенаЗаДоборныйЭлементУслЕд(k)
Cells(35 + k, 9).Value = СуммаЗаДоборныйЭлементУслЕд(k)
Cells(35 + k, 10).Value = ЦенаЗаДоборныйЭлементДенежЕд(k)
Cells(35 + k, 12).Value = СуммаЗаДоборныйЭлементДенежЕд(k)

 'ДОБОРНЫЕ ЭЛЕМЕНТЫ ПО СКАТАМ
    For i = 1 To КоличествоСкатов                ' Метраж доборных элементов поскатно
     Cells(35 + k, 13 + i).Value = ДлинаДоборногоЭлементаНаСкате(i, k)
    Next i
Next k

СмещениеСтроки = СмещениеСтроки + КоличествоТиповДоборныхЭлементов

ReDim КоличествоСаморезов1ДляДоборныхЭлементовНаСкате(1 To КоличествоСкатов) As Long
ReDim КоличествоСаморезов2ДляДоборныхЭлементовНаСкате(1 To КоличествоСкатов) As Long
ReDim КоличествоСаморезов1КровельныхНаСкате(1 To КоличествоСкатов) As Long
ReDim КоличествоСаморезов2КровельныхНаСкате(1 To КоличествоСкатов) As Long

'Печать номеров скатов и значения количества саморезов для каждого ската
For i = 1 To КоличествоСкатов                
Cells(35, 13 + i).Value = i
Cells(37 + СмещениеСтроки, 13 + i).Value = КоличествоСаморезов1ДляДоборныхЭлементовНаСкате(i)
Cells(38 + СмещениеСтроки, 13 + i).Value = КоличествоСаморезов2ДляДоборныхЭлементовНаСкате(i)
Cells(39 + СмещениеСтроки, 13 + i).Value = КоличествоСаморезов1КровельныхНаСкате(i)
Cells(40 + СмещениеСтроки, 13 + i).Value = КоличествоСаморезов2КровельныхНаСкате(i)
Next i

'Саморезы для доборных
Cells(37 + СмещениеСтроки, 1).Value = НаименованиеСаморезов1ДляДоборных
Cells(37 + СмещениеСтроки, 5).Value = КоличествоСаморезов1ДляДоборныхЭлементов
Cells(37 + СмещениеСтроки, 6).Value = КоличествоУпаковокСаморезов1Доборных
Cells(37 + СмещениеСтроки, 8).Value = ЦенаЗаСаморезы1ДляДоборныхУслЕд
Cells(37 + СмещениеСтроки, 9).Value = СуммаЗаСаморезы1ДляДоборныхУслЕд
Cells(37 + СмещениеСтроки, 11).Value = ЦенаЗаСаморезы1ДляДоборныхДенежЕд
Cells(37 + СмещениеСтроки, 12).Value = СуммаЗаСаморезы1ДляДоборныхДенежЕд

Cells(38 + СмещениеСтроки, 1).Value = НаименованиеСаморезов2ДляДоборных
Cells(38 + СмещениеСтроки, 5).Value = КоличествоСаморезов2ДляДоборныхЭлементов
Cells(38 + СмещениеСтроки, 6).Value = КоличествоУпаковокСаморезов2Доборных
Cells(38 + СмещениеСтроки, 8).Value = ЦенаЗаСаморезы2ДляДоборныхУслЕд
Cells(38 + СмещениеСтроки, 9).Value = СуммаЗаСаморезы2ДляДоборныхУслЕд
Cells(38 + СмещениеСтроки, 11).Value = ЦенаЗаСаморезы2ДляДоборныхДенежЕд
Cells(38 + СмещениеСтроки, 12).Value = СуммаЗаСаморезы2ДляДоборныхДенежЕд

'Саморезы для кровельного материала
Cells(39 + СмещениеСтроки, 1).Value = НаименованиеСаморезов1Кровельных
Cells(39 + СмещениеСтроки, 5).Value = КоличествоСаморезов1Кровельных
Cells(39 + СмещениеСтроки, 6).Value = КоличествоУпаковокСаморезов1Кровельных
Cells(39 + СмещениеСтроки, 8).Value = ЦенаЗаСаморезы1КровельныеУслЕд
Cells(39 + СмещениеСтроки, 9).Value = СуммаЗаСаморезы1КровельныеУслЕд
Cells(39 + СмещениеСтроки, 11).Value = ЦенаЗаСаморезы1КровельныеДенежЕд
Cells(39 + СмещениеСтроки, 12).Value = СуммаЗаСаморезы1КровельныеДенежЕд

Cells(40 + СмещениеСтроки, 1).Value = НаименованиеСаморезов2Кровельных
Cells(40 + СмещениеСтроки, 5).Value = КоличествоСаморезов2Кровельных
Cells(40 + СмещениеСтроки, 6).Value = КоличествоУпаковокСаморезов2Кровельных
Cells(40 + СмещениеСтроки, 8).Value = ЦенаЗаСаморезы2КровельныеУслЕд
Cells(40 + СмещениеСтроки, 9).Value = СуммаЗаСаморезы2КровельныеУслЕд
Cells(40 + СмещениеСтроки, 11).Value = ЦенаЗаСаморезы2КровельныеДенежЕд
Cells(40 + СмещениеСтроки, 12).Value = СуммаЗаСаморезы2КровельныеДенежЕд

Cells(41 + СмещениеСтроки, 1).Value = "Количество дополнительных позиций Спецификации:" 
Cells(41 + СмещениеСтроки, 2).Value = КоличествоДополнительныхПозицийСпецификации

if КоличествоДополнительныхПозицийСпецификации > 0 Then
   For i = 1 to КоличествоДополнительныхПозицийСпецификации
   Cells(41 + СмещениеСтроки + i, 1).Value = НаименованиеДополнительнойПозицииСпецификации
   Cells(41 + СмещениеСтроки + i, 5).Value = ЕдиницаИзмеренияДополнительнойПозицииСпецификации
   Cells(41 + СмещениеСтроки + i, 6).Value = КоличествоЕдиницДополнительнойПозицииСпецификации
   Cells(41 + СмещениеСтроки + i, 8).Value = ЦенаЗаЕдиницуДополнительнойПозицииСпецификацииУслЕд
   Cells(41 + СмещениеСтроки + i, 9).Value = СуммаЗаВсёКоличествоДополнительнойПозицииСпецификацииУслЕд
   Cells(41 + СмещениеСтроки + i, 11).Value = ЦенаЗаЕдиницуДополнительнойПозицииСпецификацииДенежЕд
   Cells(41 + СмещениеСтроки + i, 12).Value = СуммаЗаВсёКоличествоДополнительнойПозицииСпецификацииДенежЕд
   Next i
Else End If
СмещениеСтроки = СмещениеСтроки  + КоличествоДополнительныхПозицийСпецификации

If ЦенаЗаSполезнаяДенежЕд > 0 Then
   Cells(42 + СмещениеСтроки , 1).Value = "Сумма за Sполезная материала:"
   Cells(42 + СмещениеСтроки , 9).Value = СуммаЗаSполезнаяУслЕд
   Cells(42 + СмещениеСтроки, 12).Value = СуммаЗаSполезнаяДенежЕд
ElseIf ЦенаЗаSполнаяДенежЕд > 0 Then
   Cells(42 + СмещениеСтроки, 1).Value = "Сумма за Sполная материала:"
   Cells(42 + СмещениеСтроки, 9).Value = СуммаЗаSполнаяУслЕд
   Cells(42 + СмещениеСтроки, 12).Value = СуммаЗаSполнаяДенежЕд
ElseIf ЦенаЗаПогонныйМетрДенежЕд > 0 Then
   Cells(42 + СмещениеСтроки, 1).Value = "Сумма за погонные метры материала:"
   Cells(42 + СмещениеСтроки, 9).Value = СуммаЗаПогонныйМетрУслЕд
   Cells(42 + СмещениеСтроки, 12).Value = СуммаЗаПогонныйМетрДенежЕд
ElseIf ЦенаЗаЛистДенежЕд > 0 Then
   Cells(42 + СмещениеСтроки, 1).Value = "Сумма за листы материала:"
   Cells(42 + СмещениеСтроки, 9).Value = СуммаЗаЛистУслЕд
   Cells(42 + СмещениеСтроки, 12).Value = СуммаЗаЛистДенежЕд
End If

Cells(44 + СмещениеСтроки, 1).Value = "ИТОГО:"
Cells(44 + СмещениеСтроки, 9).Value = СуммаИтоговаяУслЕд
Cells(44 + СмещениеСтроки, 12).Value = СуммаИтоговаяДенежЕд

Cells(46 + СмещениеСтроки, 1).Value = "Примечание:"
Cells(46 + СмещениеСтроки, 2).Value = Примечание

' Для  экспорта требуемых данных во внешние программы необходимо в соответствующей среде 
'программирования извлечь эти данные из электронной таблицы , используя приведенный алгоритм заполнения ячеек.