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

Вход

Регистрация

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

 

= Мир MS Excel/макрос для создания новых листов в книге - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » макрос для создания новых листов в книге (Макросы/Sub)
макрос для создания новых листов в книге
андрей77 Дата: Понедельник, 14.12.2020, 00:44 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 28
Репутация: 1 ±
Замечаний: 0% ±

Excel 2010
макрос - карточки всех - выводит листы на печать, нужно вместо этого создавать тоже только на новых листах в текущей книге
К сообщению приложен файл: 5555.xls(84.0 Kb)
 
Ответить
Сообщениемакрос - карточки всех - выводит листы на печать, нужно вместо этого создавать тоже только на новых листах в текущей книге

Автор - андрей77
Дата добавления - 14.12.2020 в 00:44
MikeVol Дата: Понедельник, 14.12.2020, 13:23 | Сообщение № 2
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 110
Репутация: 14 ±
Замечаний: 0% ±

Excel 2019
андрей77, День Добрый. Если Просто создать новые листы то как-то так:

[vba]
Код
        Sheets("Карта клиента").Select
        Application.ScreenUpdating = False
        Application.CutCopyMode = False
        '        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
        ActiveWindow.SelectedSheets.Copy After:=Sheets(Sheets.Count)
        Application.ScreenUpdating = True
    Next I
    Sheets(List).Select
[/vba]

Это ваш код, вместо печати идёт сохранение новых листов с Картами Клиентов.
 
Ответить
Сообщениеандрей77, День Добрый. Если Просто создать новые листы то как-то так:

[vba]
Код
        Sheets("Карта клиента").Select
        Application.ScreenUpdating = False
        Application.CutCopyMode = False
        '        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
        ActiveWindow.SelectedSheets.Copy After:=Sheets(Sheets.Count)
        Application.ScreenUpdating = True
    Next I
    Sheets(List).Select
[/vba]

Это ваш код, вместо печати идёт сохранение новых листов с Картами Клиентов.

Автор - MikeVol
Дата добавления - 14.12.2020 в 13:23
андрей77 Дата: Понедельник, 14.12.2020, 22:52 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 28
Репутация: 1 ±
Замечаний: 0% ±

Excel 2010
Спасибо!
 
Ответить
СообщениеСпасибо!

Автор - андрей77
Дата добавления - 14.12.2020 в 22:52
андрей77 Дата: Понедельник, 14.12.2020, 23:06 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 28
Репутация: 1 ±
Замечаний: 0% ±

Excel 2010
MikeVol, ещё раз спасибо!
Усложняю)) необходимо создавать новых листов по количеству в столбе L
т.е. должно получиться всех по одному листу а в строке 10 - 3 одинаковые карты и в строке 17 - 4 одинаковые карты.
К сообщению приложен файл: 1212-1-.xls(99.0 Kb)


Сообщение отредактировал андрей77 - Понедельник, 14.12.2020, 23:09
 
Ответить
СообщениеMikeVol, ещё раз спасибо!
Усложняю)) необходимо создавать новых листов по количеству в столбе L
т.е. должно получиться всех по одному листу а в строке 10 - 3 одинаковые карты и в строке 17 - 4 одинаковые карты.

Автор - андрей77
Дата добавления - 14.12.2020 в 23:06
MikeVol Дата: Вторник, 15.12.2020, 02:22 | Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 110
Репутация: 14 ±
Замечаний: 0% ±

Excel 2019
андрей77, я думаю что администрация не одобрит. Одна тема - один вопрос. Подождём что скажут.
 
Ответить
Сообщениеандрей77, я думаю что администрация не одобрит. Одна тема - один вопрос. Подождём что скажут.

Автор - MikeVol
Дата добавления - 15.12.2020 в 02:22
Pelena Дата: Вторник, 15.12.2020, 13:33 | Сообщение № 6
Группа: Админы
Ранг: Местный житель
Сообщений: 17508
Репутация: 3888 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
администрация не одобрит

одобрит, отвечайте :)


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
Сообщение
администрация не одобрит

одобрит, отвечайте :)

Автор - Pelena
Дата добавления - 15.12.2020 в 13:33
MikeVol Дата: Вторник, 15.12.2020, 15:03 | Сообщение № 7
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 110
Репутация: 14 ±
Замечаний: 0% ±

Excel 2019
одобрит, отвечайте

К сожелению я это не осилю, сам только познаю азы Экселя и VBA. ;)
 
Ответить
Сообщение
одобрит, отвечайте

К сожелению я это не осилю, сам только познаю азы Экселя и VBA. ;)

Автор - MikeVol
Дата добавления - 15.12.2020 в 15:03
Pelena Дата: Вторник, 15.12.2020, 18:49 | Сообщение № 8
Группа: Админы
Ранг: Местный житель
Сообщений: 17508
Репутация: 3888 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
андрей77, посмотрите такой вариант. Немного сократила Ваш макрос ;)
К сообщению приложен файл: 1212-2-.xls(92.5 Kb)


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
Сообщениеандрей77, посмотрите такой вариант. Немного сократила Ваш макрос ;)

Автор - Pelena
Дата добавления - 15.12.2020 в 18:49
андрей77 Дата: Вторник, 15.12.2020, 21:08 | Сообщение № 9
Группа: Пользователи
Ранг: Новичок
Сообщений: 28
Репутация: 1 ±
Замечаний: 0% ±

Excel 2010
Pelena, Спасибо!
 
Ответить
СообщениеPelena, Спасибо!

Автор - андрей77
Дата добавления - 15.12.2020 в 21:08
Мир MS Excel » Вопросы и решения » Вопросы по VBA » макрос для создания новых листов в книге (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования Jobsora jooble
© 2010-2021 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!