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

Вход

Регистрация

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

 

= Мир MS Excel/Создание файлов exel по шаблону - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Создание файлов exel по шаблону
labm-12 Дата: Суббота, 19.08.2023, 10:40 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 20% ±

2016
Создаю однотипные листы по шаблону. Задача состоит в том, чтобы создавались не все записи из реестра, а только выделенные в реестре или отфильтрованные. Подскажите как это осуществить?

Sub start()

Dim size
Dim tmpName
Dim base

size = WorksheetFunction.CountA(Sheets("import").Range("a2:a500"))
tmpName = Sheets("import").Range("a2:a" & size + 1) '(row,col)
base = Sheets("import").Range("a2:s" & size + 1) '(row,col)

For i = 1 To size

Sheets("template").Copy Before:=Sheets(i)
Sheets(i).Name = "ï." & tmpName(i, 1)
К сообщению приложен файл: reestr_betona.xlsm (74.6 Kb)
 
Ответить
СообщениеСоздаю однотипные листы по шаблону. Задача состоит в том, чтобы создавались не все записи из реестра, а только выделенные в реестре или отфильтрованные. Подскажите как это осуществить?

Sub start()

Dim size
Dim tmpName
Dim base

size = WorksheetFunction.CountA(Sheets("import").Range("a2:a500"))
tmpName = Sheets("import").Range("a2:a" & size + 1) '(row,col)
base = Sheets("import").Range("a2:s" & size + 1) '(row,col)

For i = 1 To size

Sheets("template").Copy Before:=Sheets(i)
Sheets(i).Name = "ï." & tmpName(i, 1)

Автор - labm-12
Дата добавления - 19.08.2023 в 10:40
MikeVol Дата: Суббота, 19.08.2023, 13:05 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 372
Репутация: 79 ±
Замечаний: 0% ±

MSO LTSC 2021 EN
labm-12, Здравствуйте.
Дважды кликаете по любой строке в столбце T этого Листа import появляется Отметка (a) в данной строке это значит что вы выбрали данную строку для создания шаблона. Смотрим файл, там вы всё поймёте.
Удачи.
К сообщению приложен файл: 19_08_2023_exw_sozdanie_fajlov.xlsm (72.2 Kb)


Ученик.
Одесса - Украина
 
Ответить
Сообщениеlabm-12, Здравствуйте.
Дважды кликаете по любой строке в столбце T этого Листа import появляется Отметка (a) в данной строке это значит что вы выбрали данную строку для создания шаблона. Смотрим файл, там вы всё поймёте.
Удачи.

Автор - MikeVol
Дата добавления - 19.08.2023 в 13:05
labm-12 Дата: Суббота, 19.08.2023, 14:27 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 20% ±

2016
MikeVol, все работает только в первых трех строках реестра, при добавлении новых строк в реестр(import) выдает ошибку Run-time error 9: subscript out of range. Куда копать?
 
Ответить
СообщениеMikeVol, все работает только в первых трех строках реестра, при добавлении новых строк в реестр(import) выдает ошибку Run-time error 9: subscript out of range. Куда копать?

Автор - labm-12
Дата добавления - 19.08.2023 в 14:27
MikeVol Дата: Суббота, 19.08.2023, 17:57 | Сообщение № 4
Группа: Проверенные
Ранг: Обитатель
Сообщений: 372
Репутация: 79 ±
Замечаний: 0% ±

MSO LTSC 2021 EN
labm-12, Ошибка возникает потому, что индекс i в вашем цикле начинается с 1, но при достижении 4, он пытается обратиться к листу с индексом 4, который не существует. Вот новый код который скопирует лист "template" в конец книги, переименует его и заполнит данными.


Ученик.
Одесса - Украина
 
Ответить
Сообщениеlabm-12, Ошибка возникает потому, что индекс i в вашем цикле начинается с 1, но при достижении 4, он пытается обратиться к листу с индексом 4, который не существует. Вот новый код который скопирует лист "template" в конец книги, переименует его и заполнит данными.

Автор - MikeVol
Дата добавления - 19.08.2023 в 17:57
  • Страница 1 из 1
  • 1
Поиск:

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