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


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

Evrodiller4. Создать макрос, который будет проверять нет ли в этом листе уже нужных столбцов
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.04.2009, 14:19:41
    #35920063
Evrodiller
Evrodiller
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как вставить дополнительные столбцы в несколько одинаковых таблиц?
Папа Игорь , сча поглядел вроде нет таких таблиц где бы нужна была проверка, попробую группировкой, просто никогда ею не пользовался.
Korcar
Благодарю, испробую и этот вариант.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.04.2009, 14:40:37
    #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, 15:23:43
    #35920327
Папа Игорь
Папа Игорь
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как вставить дополнительные столбцы в несколько одинаковых таблиц?
EvrodillerЧего-то не с группировкой не получается и не с циклом ((


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

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

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

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

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

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

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

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

или я чего-то не понял?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.04.2009, 08:18:31
    #35924042
Evrodiller
Evrodiller
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как вставить дополнительные столбцы в несколько одинаковых таблиц?
Korcar, Папа Игорь
Спасибо огромное, выделить все листы и вставить дополн. столбцы таким образом оказалось легче всего.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как вставить дополнительные столбцы в несколько одинаковых таблиц? / 13 сообщений из 13, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 452ms
Закрыть
start [/forum/topic.php?fid=61&tablet=1&tid=2179613]:
 0ms
get settings:
 7ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 184ms
get topic data:
 8ms
get forum data:
 1ms
get page messages:
 41ms
get tp. blocked users:
 1ms
others: 188ms
total:  452ms
x
x
Закрыть


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