Исходный код из видео

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

Исходный код из видео - скачать архив с файлами


ZIP архив с файлами


Рекомендуем смотреть видео в полноэкранном режиме, в настойках качества выбирайте 1080 HD, не забывайте подписываться на канал в YouTube, там Вы найдете много интересного видео, которое выходит достаточно часто. Приятного просмотра!

 С уважением, авторы сайта Компьютерапия

Понравилось? Поделись этим видео с друзьями!




Понравилась статья? Поделитесь ею с друзьями и напишите отзыв в комментариях!

Предыдущие статьи

We use cookies on our website. Some of them are essential for the operation of the site, while others help us to improve this site and the user experience (tracking cookies). You can decide for yourself whether you want to allow cookies or not. Please note that if you reject them, you may not be able to use all the functionalities of the site.

Ok