[2021] Как заполнить шаблон excel из экселевской таблицы, сформировать реальный шаблон в excel
Рекомендуем смотреть видео в полноэкранном режиме, в настойках качества выбирайте 1080 HD, не забывайте подписываться на канал в YouTube, там Вы найдете много интересного видео, которое выходит достаточно часто. Приятного просмотра!
С уважением, авторы сайта Компьютерапия
Понравилось? Поделись этим видео с друзьями!
[2021] Как заполнить шаблон excel из экселевской таблицы, сформировать реальный шаблон в excel
Рекомендуем смотреть видео в полноэкранном режиме, в настойках качества выбирайте 1080 HD, не забывайте подписываться на видео ВКонтакте, там Вы найдете много интересного, которое выходит достаточно часто. Приятного просмотра!
С уважением, авторы сайта Компьютерапия
Понравилось? Поделись этим видео с друзьями!
[2021] Как заполнить шаблон excel из экселевской таблицы, сформировать реальный шаблон в excel
Рекомендуем смотреть видео в полноэкранном режиме, в настойках качества выбирайте 1080 HD, не забывайте подписываться на канал в Рутубе, там Вы найдете много интересного, которое выходит достаточно часто. Приятного просмотра!
С уважением, авторы сайта Компьютерапия
Понравилось? Поделись этим видео с друзьями!
Исходный код из видео
Sub start()
Dim size
Dim tmpName
Dim base
size = WorksheetFunction.CountA(Sheets("import").Range("a2:a500"))
tmpName = Sheets("import").Range("a2:a" & size + 1) '(row,col)
base = Sheets("import").Range("a2:j" & size + 1) '(row,col)
For i = 1 To size
Sheets("template").Copy Before:=Sheets(i)
Sheets(i).Name = "п." & tmpName(i, 1)
Sheets(i).Range("CN8").Value = base(i, 1) ' № п/п
Sheets(i).Range("B18").Value = base(i, 7) & " м. куб х " & base(i, 6) & " рейса(ов) = " & base(i, 8) & " м. куб" ' куба/рейсо/грузы
Sheets(i).Range("B30").Value = base(i, 4) & " объем кузова " & base(i, 7) & " м. куб" & " " & base(i, 5) 'авто + грузоподъем + серийник
Sheets(i).Range("B47").Value = base(i, 8) & " м" & ChrW(179) ' масса груза прием
Sheets(i).Range("BE47").Value = base(i, 8) & " м" & ChrW(179) ' масса груза сдача"
Sheets(i).Range("B51").Value = base(i, 3) ' водитель принял
Sheets(i).Range("BE51").Value = base(i, 3) ' водитель сдал
Sheets(i).Range("BJ8").Value = "'" & base(i, 2) ' дата 01.02.2021 02/01/2021
Sheets(i).Range("B78").Value = base(i, 3) & " путевой лист: " & base(i, 10) & " от " & base(i, 2) 'водитель + путевой + дата
Sheets(i).Range("B82").Value = base(i, 4) & " объем кузова " & base(i, 7) & " м. куб" 'авто+грузоподъем
Sheets(i).Range("BQ82").Value = base(i, 5) ' серийник
Sheets(i).Range("B106").Value = base(i, 9) & " руб. м. куб" ' цена
Next i
End Sub
Sub del()
Dim size
Dim tmpName
size = WorksheetFunction.CountA(Sheets("import").Range("a2:a500"))
tmpName = Sheets("import").Range("a2:a" & size + 1) '(row,col)
For i = 1 To size
Worksheets("п." & tmpName(i, 1)).Delete
Next i
End Sub