ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как вставить дополнительные столбцы в несколько одинаковых таблиц?
13 сообщений из 13, страница 1 из 1
Как вставить дополнительные столбцы в несколько одинаковых таблиц?
    #35918882
Evrodiller
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Evrodiller
Гость
Собсно сабж..
Есть около 100-120 листов, которые содержат 15 рабочих столбцов. Сейчас возникла задача увеличить (дополнить эти таблицы). Можно ли это сделать как-то автоматизированно?
На ум приходит только это:
1. Определить названия имеющихся листов.
2. Создать список с названиями имеющихся листов
3. Создать шаблон с которого пойдет вставка
4. Создать макрос, который будет проверять нет ли в этом листе уже нужных столбцов
5. Ну и все это забить в макрос, который произведет вставку.
...
Рейтинг: 0 / 0
08.04.2009, 09:12:54
| Ответить | Цитировать | Написать  
Как вставить дополнительные столбцы в несколько одинаковых таблиц?
    #35918975
Evrodiller
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Evrodiller
Гость
Со списком разобрался, вот только как сделать вставку по диапазону в котором перечислены названия листов, не могу догадаться :(
...
Рейтинг: 0 / 0
08.04.2009, 10:00:14
| Ответить | Цитировать | Написать  
Как вставить дополнительные столбцы в несколько одинаковых таблиц?
    #35919157
Korcar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Korcar
Участник
Код: plaintext
WorkSheets("Sheet1").Columns("E:E").Insert Shift:=xlToRight
и загнать в цикл
...
Рейтинг: 0 / 0
08.04.2009, 10:47:32
| Ответить | Цитировать | Написать  
Как вставить дополнительные столбцы в несколько одинаковых таблиц?
    #35919519
Фотография Папа Игорь
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Папа Игорь
Участник
EvrodillerСобсно сабж..
Есть около 100-120 листов, которые содержат 15 рабочих столбцов. Сейчас возникла задача увеличить (дополнить эти таблицы). Можно ли это сделать как-то автоматизированно?


Объединить (сгруппировать) листы. Сделать необходимое. Разгруппировать.
...
Рейтинг: 0 / 0
08.04.2009, 12:17:10
| Ответить | Цитировать | Написать  
Как вставить дополнительные столбцы в несколько одинаковых таблиц?
    #35919844
Korcar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Korcar
Участник
Папа Игорь , видишь чего: там походу на каждом листе надо в разные места ставить столбцы, а где-то они уже походу есть, так что не прокатит

Evrodiller4. Создать макрос, который будет проверять нет ли в этом листе уже нужных столбцов
...
Рейтинг: 0 / 0
08.04.2009, 13:34:12
| Ответить | Цитировать | Написать  
Как вставить дополнительные столбцы в несколько одинаковых таблиц?
    #35920063
Evrodiller
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Evrodiller
Гость
Папа Игорь , сча поглядел вроде нет таких таблиц где бы нужна была проверка, попробую группировкой, просто никогда ею не пользовался.
Korcar
Благодарю, испробую и этот вариант.
...
Рейтинг: 0 / 0
08.04.2009, 14:19:41
| Ответить | Цитировать | Написать  
Как вставить дополнительные столбцы в несколько одинаковых таблиц?
    #35920157
Evrodiller
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Evrodiller
Гость
Чего-то не с группировкой не получается и не с циклом ((

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Sub Макрос2()
    Columns("L:O").Select 'Необходимые столбцы
    Selection.Copy
    Sheets("ANSMANN").Select 'Название листа
    Columns("L:L").Select 'Столбец перед которым происходит вставка
    Selection.Insert Shift:=xlToRight
    Sheets("шаблон").Select 'Возврат к шаблону
End Sub

Список с названиями листов расположен в Лист5 , столбец В:В .
Как заставить макрос брать названия оттуда т выполнить всю процедуру?
...
Рейтинг: 0 / 0
08.04.2009, 14:40:37
| Ответить | Цитировать | Написать  
Как вставить дополнительные столбцы в несколько одинаковых таблиц?
    #35920327
Фотография Папа Игорь
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Папа Игорь
Участник
EvrodillerЧего-то не с группировкой не получается и не с циклом ((


Возможно я не правильно понял задачу.

Исходил из следующего:

1. Все листы имеют одинаковую структуру и находятся в одной книге.
2. Во всех листах надо сделать одни и те же изменения.

Если пп 1 и 2 верны, то группируем "ручками" и ними же делаем изменения на одном листе.
Вся группа примет наше "творчество".
...
Рейтинг: 0 / 0
08.04.2009, 15:23:43
| Ответить | Цитировать | Написать  
Как вставить дополнительные столбцы в несколько одинаковых таблиц?
    #35920509
Evrodiller
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Evrodiller
Гость
Папа Игорь, то ли я торможу, то ли мы друг друга не понимаем )))

Папа Игорь1. Все листы имеют одинаковую структуру и находятся в одной книге.
Да все листы находятся в одной книге, имеют одинаковую структуру, если не брать в расчет кол-во строк у каждой таблицы они по разному
Папа Игорь2. Во всех листах надо сделать одни и те же изменения.
Да во все листы надо добавить 4 столбца с формулами для последущего расчета в итог таблице

Было 2 отдела, сча стало 3. Вот и надо добавить еще один отдел.
...
Рейтинг: 0 / 0
08.04.2009, 16:09:07
| Ответить | Цитировать | Написать  
Как вставить дополнительные столбцы в несколько одинаковых таблиц?
    #35920563
Фотография Папа Игорь
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Папа Игорь
Участник
[quot Evrodiller]Да все листы находятся в одной книге, имеют одинаковую структуру, если не брать в расчет кол-во строк у каждой таблицы они по разному

Значит мое предложение снимается, т.к. Вы можете добавить все столбцы, но формулы
только в самый маленький диапазон(по строкам), чтобы не нарушить структуру.

Все это руками.
...
Рейтинг: 0 / 0
08.04.2009, 16:20:21
| Ответить | Цитировать | Написать  
Как вставить дополнительные столбцы в несколько одинаковых таблиц?
    #35921593
Evrodiller
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Evrodiller
Гость
Папа Игорь, хотелось бы как-то автоматизировать этот процесс, если не получится придется делать в ручную :( сроки поджимают.
...
Рейтинг: 0 / 0
09.04.2009, 08:10:51
| Ответить | Цитировать | Написать  
Как вставить дополнительные столбцы в несколько одинаковых таблиц?
    #35922396
Korcar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Korcar
Участник
нет! подождите: если структуры таблиц одинаковые и столбцы надо добавить в одни и те же места, то Папа Игорь прав: выделить все листы и добавить столбцы на текущем листе. применится ко всем листам.
Если надо макросом, то перед этими процедурами включить запись макроса

или я чего-то не понял?
...
Рейтинг: 0 / 0
09.04.2009, 12:51:13
| Ответить | Цитировать | Написать  
Как вставить дополнительные столбцы в несколько одинаковых таблиц?
    #35924042
Evrodiller
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Evrodiller
Гость
Korcar, Папа Игорь
Спасибо огромное, выделить все листы и вставить дополн. столбцы таким образом оказалось легче всего.
...
Рейтинг: 0 / 0
10.04.2009, 08:18:31
| Ответить | Цитировать | Написать  
13 сообщений из 13, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как вставить дополнительные столбцы в несколько одинаковых таблиц?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=35922396&tid=2179613]:
 0ms
get settings:
 6ms
get forum list:
 15ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 232ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 35ms
get tp. blocked users:
 1ms
others: 228ms
total:  531ms
созд. / загр.: 531ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]