[gizmo_zx]

Добрый день.
Есть автоматически генерируемые таблицы в Excel.
Очень муторно оформлять их по госту. (большой штам на первом листе, на остальных маленькие.)
Сейчас при небольшом кол-ве листов вставляю в Autocad связь по диаппазонам (a135 - для первого лита, a3660 для второго и далее).
При изменениях данных обновляю связь и все "почти" ОК.
НО если листом 20-50 и более делать связи не очень хочется
При больших спецификациях скидываю в word. Не удобно ...

Програмно создать связь пока нормально не удалось...
Можно ли как-то програмно раздербанить целую таблицу (~30 листов) на отбельные со штампом (большой + маленькие штампы-форматки в Acad`e) ?

Интересно кто-как печатает (оформляет) большие таблицы?

[Олег (jr.)]

Сообщение от gizmo_zx Добрый день. Есть автоматически генерируемые таблицы в Excel. Очень муторно оформлять их по госту. (большой штам на первом листе, на остальных маленькие.) Сейчас при небольшом кол-ве листов вставляю в Autocad связь по диаппазонам (a135 - для первого лита, a3660 для второго и далее). При изменениях данных обновляю связь и все "почти" ОК. НО если листом 20-50 и более делать связи не очень хочется При больших спецификациях скидываю в word. Не удобно ... Програмно создать связь пока нормально не удалось... Можно ли как-то програмно раздербанить целую таблицу (~30 листов) на отбельные со штампом (большой + маленькие штампы-форматки в Acad`e) ? Интересно кто-как печатает (оформляет) большие таблицы?

Попробуй, вставь код в модуль первого листа
Должно разбить весь диапазон листа по 10 строк в каждый новый лист
Тестируй на копии!
Доработать напильником

Код:

[Выделить все]

 Option Explicit

Sub Aha()
Dim usRange As Range
Dim lastCell As Range
Set usRange = Application.ActiveSheet.UsedRange
usRange.Select
Cells.SpecialCells(xlCellTypeLastCell).Activate
Set lastCell = ActiveCell
lastCell.Select
Dim rows As Long, cols As Long
rows = lastCell.Row: cols = lastCell.Column
MsgBox rows & vbTab & cols

Dim num As Long, divnum As Long, i As Long, c As Long
num = CLng(InputBox("Number of rows to copy into the every new Sheet: ", "Break Table", 10))
divnum = rows \ num
c = 1
For i = 1 To 3 'divnum
Dim sheetName As String
sheetName = "PartTable" & CStr(i)
Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = sheetName
Sheets(1).Range(Cells(c, 1), Cells(c + num - 1, cols)).Copy
Sheets(sheetName).Range("A1").Insert Shift:=xlDown
Sheets(sheetName).Range("A1").PasteSpecial Paste:=xlPasteValues
c = c + num
Next
Sheets(1).Activate
Application.ScreenUpdating = True
End Sub

[Frigate]

автокадовская таблица имеет такое свойство - разбивается по фрагментам с регулируемым количеством строк в этих фрагментах, с возможностью задать расстояние между фрагментами, с возможностью повтора заголовка. Изучайте свойства таблиц.