Домашняя страница Undo Do Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Готовые решения

МЕНЮ САЙТА
  • 1
  • 2
  • 3

КАТЕГОРИИ РАЗДЕЛА

ОПРОСЫ
Какой версией Excel Вы пользуетесь?
Всего ответов: 35767
Главная » Готовые решения » VBA » Процедуры

Создание книги с заданным числом листов
10.04.2016, 19:49
[ Файл-пример (15.6Kb) ]

Процедура создаёт книгу с заданным числом листов (по умолчанию — с одним)

Результатом работы макроса могут быть книги с выходными данными, содержащие не один лист. И при запуске на другом компьютере результаты могут колебаться от неверных до странных. По той простой причине, что число листов в новой книге может быть установлено (в настройках) совершенно любым. В результате — создаём макросом новую книгу, добавляем в неё ещё -надцать листов, перебираем их по индексам и... работаем совсем не с теми листами, про которые думалось при написании макроса. Данная подпрограмма позволяет создавать новые книги с конкретным числом листов, не зависящим от настроек Excel на том компьютере, где запущен макрос. По умолчанию — с одним. Единственный параметр процедуры — число листов.

Sub BookWithSheets(Optional ByVal Numb As Integer = 1)

Dim i As Integer

Application.DisplayAlerts = False
Workbooks.Add
Do
On Error Resume Next
Worksheets(1).Delete
Loop While Err.Number = 0
For i = 1 To Numb - 1
Worksheets.Add after:=Worksheets(Sheets.Count)
Next i
Application.DisplayAlerts = True

End Sub
Добавил: StoTisteg | | Теги: VBA
Просмотров: 361 | Рейтинг: 0.0/0
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Яндекс цитирования
© 2010-2016 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!