Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 23.07.2016, 01:05   #1
Vladimir1959
 
Регистрация: 04.11.2015
Сообщений: 6
По умолчанию Макрос вставки столбцов в нескольких таблицах

Уважаемые форумчане, прошу вашей помощи.
Я не программист и далеко не студент, но жизнь заставляет учиться чему то новому и поэтому для облегчения своей работы написал небольшую программку. Что мне было не ясно я всегда к спецам обращался.
Суть вопроса. В данной программе очень много страниц с таблицами, я их сделал по формату одинаковыми. Иногда необходимо вставить строки и столбцы. На форуме я нашел макрос для вставки столбца, но он вставляет столбец только в одну таблицу, а у меня их 7 только в формате столбцов и столько же в линейном формате.
Для вставки столбцов макрос такой:
If MsgBox("Добавить столбец?", vbQuestion + vbOKCancel) = vbOK Then
ActiveSheet.Unprotect
Dim nCol As Long
nCol = ActiveCell.Column
Columns(nCol).Insert
MsgBox "Столбец добавлен!", vbInformation, "Вставка столбцов"
End If
End Sub

Для удаления:
If MsgBox("Удалить столбец?", vbQuestion + vbOKCancel) = vbOK Then
Dim nCol As Long
nCol = ActiveCell.Column
Columns(nCol).Delete
MsgBox "Столбец удалён!", vbInformation, "Удаление столбцов"
End If
End Sub
Есть ли решение данного вопроса, можно ли с помощью макроса вставлять столбцы сразу во всех таблицах при нажатии кнопки в одной заданной главной таблице "Таблице заказов"
Файл с таблицами прикладываю.

Последний раз редактировалось Vladimir1959; 23.07.2016 в 01:27. Причина: вставка файла
Vladimir1959 вне форума Ответить с цитированием
Старый 23.07.2016, 13:23   #2
Gregor
Форумчанин
 
Регистрация: 24.10.2007
Сообщений: 208
По умолчанию

Выход - перебирать все листы книги и вызывать ваш макрос для каждого листа.
Перебор всех листов
Код:
Dim iWS As Worksheet
For Each iWS In ThisWorkbook.Worksheets
     тут вставляете ваш код по удалению/добавлению используя переменную iWS 
Next iWS
интенсивно гуглю прежде чем задать вопрос
Gregor вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
одновременный поиск на нескольких таблицах Red Warrior Microsoft Office Excel 0 24.06.2013 22:51
открытие *.db в нескольких таблицах ыыф БД в Delphi 3 03.06.2013 13:06
Поиск совпадений в нескольких таблицах Macklay SQL, базы данных 13 29.07.2011 15:06
Поиск данных в нескольких таблицах a_n_n_a БД в Delphi 10 23.04.2010 11:33
Макрос вставки файлов в листы-Необходимо изменить ниже приведённый макрос as-is Microsoft Office Excel 4 25.02.2010 07:51