помогите с макросом для Эксель

[dissonance]

Всем привет! помогите плиз, в VBA не шарю, а без этого не написать этот простенький макрос.
вот порядок действий, который должен выполнить макрос.
1.копировал указанный лист
2.создавал новый лист
3.называл этот новый лист по принципу "N+1", где N - имя предыдущего листа (оно всегда указано числом 1,2,3...1541, 1542, 1543...и т.д.)
4.в указанной ячейке (например А1) прописывал "10У-имя.текущего.листа"
5.в указанной ячейке (например А2) ставил текущую дату.
6.изменял параметры печати этого листа, так чтобы он умещался на одной странице. (в параметрах печати есть такая опция)
надеюсь на вашу помощь! спасибо.

[dissonance]

ну где же вы, гуру Вижуел Бейсик и всея Экселя?)

[Busine2009]

dissonance

1.копировал указанный лист

и что потом делается с этим листом? Зачем он копируется?

Кроме первого пункта (т.к. смысл не понятен):

Код: Выделить всё

Sub m_1()
ActiveWorkbook.Sheets.Add after:=Worksheets(ActiveWorkbook.Sheets.Count)
ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count).Name = ActiveWorkbook.Sheets.Count
ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count).Range("A1").Value = "10У-" & ActiveWorkbook.Sheets.Count
ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count).Range("A2").Value = Date
ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count).[A2].Columns.AutoFit
With ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count).PageSetup
    .FitToPagesWide = 1
    .FitToPagesTall = 1
End With
End Sub

Смысл макроса в чём? Что в конце всех листов будет добавляться новый лист, который будет называться количеством всех листов в книге.

[nilem]

Остаётся одна недоработка: при вставке даты - она не помещается в ячейке, как её разумно и программно расширить - не знаю.

ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count).Range("A2").EntireColumn.AutoFit

[Busine2009]

nilem
нет, в этом случае будет происходить расширение столбца в отношении всех ячеек, находящихся в данном столбце. А мне надо, чтобы именно по конкретной ячейке происходило увеличение ширины.

[nilem]

Ну это точно невозможно - представьте себе в одном столбце ячейки разной ширины. А в нашем случае м.б. объединить с ячейкой из соседнего столбца? Правда, это "зло". Тогда выделяем две ячейки, формат-выравнивание-по горизонтали-по центру выделения. Так что ли?

[Busine2009]

nilem
нет, ячейки естественно все одинаковой ширины, но ширина столбца должна меняться в зависимости от ширины одной конкретной ячейки.

[nilem]

А попробуйте, например [E5].Columns.AutoFit - ширина столбца установится именно по ширине ячейки Е5, независимо от ширины данных в ячейках выше и ниже.

[Busine2009]

nilem
да, работает, теперь только осталось выяснить, есть ли в ячейке вот такое или нет ################

[dissonance]

dissonance

и что потом делается с этим листом? Зачем он копируется?
Смысл макроса в чём? Что в конце всех листов будет добавляться новый лист, который будет называться количеством всех листов в книге.

есть книга Эксель с числом листов уже больше 1000. этот файл является документом бухгалтерской отчетности. в него вносятся данные на перемещение основных средств. (сдал, принял, должность, дата, номер док-та (10У-*номер листа по счету*) и т.д.). копирование прошлого листа используется как бланк. поэтому и не надо указывать ширину столбца, и прочие рюшечки.
нужно чтобы макрос выполнял последовательность действий: копировать лист, новый лист "N+1", вставка даты, вставка номера документа, свойства печати - уместить на одной странице