Помогите пожалуйста, облазил много форумов, книг но там ответа не нашёл.. Имеется рабочая книга, в ней рабочий лист, необходимо создать копию этого листа. чтобы создался рядом с оригиналом. проблема в том чтобы этот макрос использовать на многих листах, т.е. Макрос не ссылался на определённый лист, что-то вроде ActiveSheet
Помогите пожалуйста, облазил много форумов, книг но там ответа не нашёл.. Имеется рабочая книга, в ней рабочий лист, необходимо создать копию этого листа. чтобы создался рядом с оригиналом. проблема в том чтобы этот макрос использовать на многих листах, т.е. Макрос не ссылался на определённый лист, что-то вроде ActiveSheetKocc
Лучшая книга - это Личная книга макросов Personal.xlsb
Ну, это для кого как. Я, например, убеждён, что Personal.xls намного лучше А вот то, что г-н Макрорекордер - самый лучший репетитор по VBA Excel, так это точно!
Quote (Serge_007)
Лучшая книга - это Личная книга макросов Personal.xlsb
Ну, это для кого как. Я, например, убеждён, что Personal.xls намного лучше А вот то, что г-н Макрорекордер - самый лучший репетитор по VBA Excel, так это точно!Alex_ST
С уважением, Алексей MS Excel 2003 - the best!!!
Сообщение отредактировал Alex_ST - Вторник, 11.12.2012, 22:08
Добрый день, а как сделать макрос на создание копий нескольких выбранных листов, а не на активный?? Помогите исправить таким образом, что бы не активный а выбранные листы копировались. Sub CopyList() Dim kolvo As Variant Dim i As Long Dim list As Worksheet kolvo = InputBox("Укажите необходимое количество копий для данного листа") If kolvo = "" Then Exit Sub If IsNumeric(kolvo) Then kolvo = Fix(kolvo) Set list = ActiveSheet For i = 1 To kolvo list.Copy after:=ActiveSheet ActiveSheet.Name = list.Name & i Next Else MsgBox "Неправильно указано количество" End If End Sub
Добрый день, а как сделать макрос на создание копий нескольких выбранных листов, а не на активный?? Помогите исправить таким образом, что бы не активный а выбранные листы копировались. Sub CopyList() Dim kolvo As Variant Dim i As Long Dim list As Worksheet kolvo = InputBox("Укажите необходимое количество копий для данного листа") If kolvo = "" Then Exit Sub If IsNumeric(kolvo) Then kolvo = Fix(kolvo) Set list = ActiveSheet For i = 1 To kolvo list.Copy after:=ActiveSheet ActiveSheet.Name = list.Name & i Next Else MsgBox "Неправильно указано количество" End If End SubMikos
Сообщение отредактировал Mikos - Воскресенье, 17.05.2020, 01:32
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
