Форумы HiProg.com - MS ACCESS, VBA, VB

ник: Lukas

Sub Fill()     Dim i As Integer         With Workbooks.Add.Sheets(1) '.Add         .Cells(1, 1) = "Кол-во в партии"         .Cells(1, 2) = "Суммарная трудоемкость остатков"         For i = 2 To 200             .Cells(i, 1) = i             ThisWorkbook.Sheets("Раскрой").Cells(2, 4) = i             .Cells(i, 2) = ThisWorkbook.Sheets("Раскрой").Cells(23, 31)         Next i         .Range("A1:B200").Sort Key1:=Range("B2"), Order1:=xlAscending, Header:= _         xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _         DataOption1:=xlSortNormal         .Select     End With End Sub

Эта процедура (добавить в модуль этой книги)
добавит новую книгу, где на первом листе покажет результаты расчета суммарной трудоемкости
для кол-во в партии от 2 до 200, в отсортированном по возрастанию виде.