Вкусные места нашего города.


 
18+

Все разделы
Авторизация:

Темы по разделам
Новости Сахалина
Развернуть Авто, Мото
Афиша
Развернуть Животные
Закон, Право
Ищу человека
Карьера, бизнес
Свернуть Компьютеры, софт
Красота, здоровье
Развернуть Кулинарная книга
Литература
Медицина
Музыка
Наука, техника
Развернуть Недвижимость
Ночная жизнь
Отношения полов
Переезд на ПМЖ
Развернуть Подворье
Политика, власть
Природные явления
Религия, философия
Развернуть Рыбалка, охота
Развернуть Семья, дети
Сетевые раскопки
Спорт
ТВ, видео, фото
Творчество
Телекоммуникации
Развернуть Товары, услуги
Развернуть Туризм, отдых
Учеба, вузы
Флирт
Форумская тусовка
Развернуть Хобби
Юмор, анекдоты
Sakh.com
Корзина
Поиск в темах


Помощь
Правила






Всего тем: 1832309
Всего ответов: 64514256
Тем вчера: 142
Ответов вчера: 8978

Сортировка: Обновленные Новые
Подразделы: Игры, Железо, Софт, Прочее
Темы: World of Tanks  
Подскажите кто знает,просмотрел интернет нигде не нашел ответа.
Есть файл .xls
Первый лист содержит данные таблицы и формулы.
Я выделяю лист и копирую на второй.
Лист2.
В файле 200 листов.
Нужно лист1 скопировать на все остальные листы, при этом чтоб названия, лист2,лист3,лист4 не поменялись.
Такое возможно?
***
Если нет и нужно вручную копировать.
Нижний левый угол где листы просматривать.
Нажимаю ctrl правую кнопку мыши, вижу книгу и все 200 листов.
Щелкаю на лист100, два раза-не переходит.
Щелкаю раз и нажимаю ок, -не переходит.
Офис 2016.
Может что подключать надо?
Тема №1817886, Компьютеры, софт (Софт), ответов: 11, просмотров: 805 
who-am-i 5 авг. 2020 12:25, обновлено: 7 авг. 2020 20:46» + -       
всем большое спасибо.
Нашел решение в виде настройки.
Есть энтузиасты, что упрощают жизнь новичкам.
Одна проблема, на выходе файл 90 мб.
who-am-i 6 авг. 2020 18:29  + -   # 
Sub CopySheet()
Sheets(ActiveWorkbook.Worksheets(1).Name).Select
Cells.Select
Selection.Copy
Dim WS_Count As Integer
Dim I As Integer
WS_Count = ActiveWorkbook.Worksheets.Count
For I = 2 To WS_Count
Sheets(ActiveWorkbook.Worksheets(I).Name).Select
ActiveSheet.Paste
Next I
End Sub
Я ж тебе макрос написал, размер файла не увеличивается...
Бамбл 6 авг. 2020 20:22  +1 -   # 
я проверил, с ним файл стал 120 мб.
и почему то не весь пронумеровал на 600 листе остановился из 900.выдал ошибку может памяти не хватает.
who-am-i 6 авг. 2020 21:41  + -   # 
Макрос увеличивает страницу на 4Кб.
А вот результаты копирования зависят от размера исходной страницы)))
(Добавлено через 5 минут)
Проверил на 900 листов, нормально отработал. Но у меня первый лист маленький.
Бамбл 6 авг. 2020 21:49  + -   # 
600 листов, 900 листов, куда столько?
проще вместо Икселя другую БД юзать
Shelf 7 авг. 2020 10:23  + -   # 
Мне надо для простых людей,чтоб понимали, открыли,внесли данные, сохранили и закрыли.
Я хочу разместить файл на облаке.
***
Другую это в смысле acess?
who-am-i 7 авг. 2020 11:10  + -   # 
простые люди элементарно запутаются среди такого количества данных, либо перепутают.
Для занесения инфы проще формы использовать, на том же гугле они есть
Shelf 7 авг. 2020 15:21  + -   # 
Спасибо.
who-am-i 7 авг. 2020 20:46  + -   # 
Если с макросами не знаком, проще все листы выделить и на первом листе данные перебить
На остальных твои формулы автоматом встанут без танцев с бубном
Shelf 6 авг. 2020 13:49  + -   # 
Sub CopySheet()
Sheets(ActiveWorkbook.Worksheets(1).Name).Select
Cells.Select
Selection.Copy
Dim WS_Count As Integer
Dim I As Integer
WS_Count = ActiveWorkbook.Worksheets.Count
For I = 2 To WS_Count
Sheets(ActiveWorkbook.Worksheets(I).Name).Select
ActiveSheet.Paste
Next I
End Sub
Бамбл 6 авг. 2020 13:24  +1 -   # 
Наверное надо намакросить слегка. Но если этим не владеешь, то сложно будет. На форумах по макросам для экселя нужно поискать.
Koluka 5 авг. 2020 16:51  + -   # 
 






Shoppy.ru