|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
07.10.2017, 12:49 | #1 |
Пользователь
Регистрация: 07.09.2017
Сообщений: 44
|
Оформление границ ячеек макросом.
Всем привет. С BVA не дружу, поэтому прошу помощи.
Алгоритм действий следующий: - Активируем ячейку В7 происходит закрашивание вертикальных и горизонтальных границ ячеек в диапазоне А7:J7 - Активируем ячейку В8 происходит закрашивание вертикальных и горизонтальных границ ячеек в диапазоне А8:J8 Подобные манипуляции происходят в строках с 7 по 300. Файл таблицы во вложении, макросы там уже имеются, к ним надо добавить, описанное выше. |
07.10.2017, 13:20 | #2 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
все написано правильно, только
1. ничего активировать не нужно, работаем с диапазоном a7:j300 2. есть подозрения, что нужны не только горизонтальные и вертикальные границы, а еще: верхняя, нижняя, левая и правая (сомнительна только необходимость левой границы) в итоге макрос, который сделает то, что Вы описали, будет выглядеть так: Код:
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
07.10.2017, 13:51 | #3 |
Пользователь
Регистрация: 07.09.2017
Сообщений: 44
|
Спасибо за быстрый ответ, но имелось в виду несколько не то. В результате работы Вашего макроса после активации В7 оформляются границы всего диапазона сразу, а я имел ввиду, что оформляться будут границы только в 7-й строке с А до J. Далее после ввода данных в В8 границы оформятся только в 8-й строке с А до J и так по нарастающей при заполнении строк в указанном диапазоне. И после добавления Вашего макроса в документ, у меня перестала работать нумерация в столбце А, вместо нумерации там появляется формула. Код я сделала так
Код:
|
07.10.2017, 13:57 | #4 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
на Планете написал Вам такой макрос
Код:
а вот пример как его выполнить 294 раза (для строк с 7-й по 300) Код:
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
07.10.2017, 14:18 | #5 |
Пользователь
Регистрация: 07.09.2017
Сообщений: 44
|
Не знаю как это всё привязать в коде. Буду форматировать границы вручную.
|
07.10.2017, 14:39 | #6 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
рано впадать в отчаяние
If PrevCell(0) Is Nothing Then Exit Sub If Target.Column = 1 Then Exit Sub EnableEvents = False Range(Cells(Target.Row, 1), Cells(Target.Row, 10)).Borders.LineStyle = xlContinuous If Target.Column = TabEnd + 1 Then
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
07.10.2017, 14:49 | #7 |
Пользователь
Регистрация: 07.09.2017
Сообщений: 44
|
Извините за мою бестолковость, но не соображаю я куда это всё в код скопировать. Не буду Вас мучать и сам успокоюсь. Работать будем по старинке. Спасибо за участие.
|
07.10.2017, 14:57 | #8 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
я привел фрагмент текста Вашей процедуры
синим цветом подкрашено то, что нужно вставить между строк в Вашей процедуре! внимательнее, пожалуйста))
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
07.10.2017, 15:29 | #9 |
Пользователь
Регистрация: 07.09.2017
Сообщений: 44
|
Извините ещё раз за мою бестолковть. Да так работает, но нарушилась моя автонумерация в столбце А. Вместо цифр в столбце А стала появляться просто формула (=IF(RC2="","",MAX(R1C1:R[-1]C)+1)) из кода. В чём проблема? Файл могу выслать.
|
08.10.2017, 20:32 | #10 |
Пользователь
Регистрация: 07.09.2017
Сообщений: 44
|
Методом проб и ошибок решила свою проблему, вставив строку
Код:
Код:
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите с макросом по форматированию ячеек | grh1 | Microsoft Office Excel | 12 | 12.02.2017 09:51 |
отсутствие границ ячеек в таблицах Word 2010 | я_петро | Общие вопросы Delphi | 2 | 20.03.2014 16:25 |
открытие нескольких книг одним макросом и закрытие книг другим макросом | kursant95 | Microsoft Office Excel | 6 | 27.01.2011 16:54 |
поиск не заблокированных ячеек макросом | NoLL | Microsoft Office Excel | 4 | 24.12.2010 06:23 |
Копировать значения ячеек макросом | torus | Microsoft Office Excel | 1 | 09.11.2008 00:15 |