Добавление страниц
Добавлено: 28 май 2009, 12:14
Помогите пожалуйста!!! Есть книга Excel в которой находиться инвентарная опись, количество страниц в которой наперед неизвестно, у меня есть код:
при помощи которого добавляются страницы, но все добавлятся только после второй страницы можно ли что нибуть зделать с этим кодом чтобы страницы добавлялись последовательно одна за другой (имеется ввиду чтобы после 2 шла 3, после 4 шла 5 и т.д.). К сообщению прилагаю и саму книгу. Заранее спасибо!
Код: Выделить всё
Sub Main()
Application.ScreenUpdating = False: Application.DisplayAlerts = False
Application.Calculation = xlCalculationManual
Dim ra As Range: Set ra = [таблица]
Dim sh As Worksheet: Set sh = ThisWorkbook.Worksheets("ревізія")
sh.Activate: ActiveWindow.View = xlPageBreakPreview
Dim newra As Range: Set newra = sh.HPageBreaks(2).Location.Resize(ra.Rows.Count, ra.Columns.Count)
newra.EntireRow.Insert: Set newra = sh.HPageBreaks(2).Location.Resize(ra.Rows.Count, ra.Columns.Count)
ra.Copy: newra.PasteSpecial xlPasteAll
For i = 1 To ra.Rows.Count
newra.Rows(i).RowHeight = ra.Rows(i).RowHeight
Next i
Set sh.HPageBreaks(3).Location = newra.Cells(newra.Cells.Count).EntireRow.Cells(1).Offset(1)
Application.ScreenUpdating = True: Application.DisplayAlerts = True
Application.Calculation = xlCalculationAutomatic
End Sub