![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Пользователь
Регистрация: 07.09.2017
Сообщений: 44
|
![]()
Всем привет. С BVA не дружу, поэтому прошу помощи.
Алгоритм действий следующий: - Активируем ячейку В7 происходит закрашивание вертикальных и горизонтальных границ ячеек в диапазоне А7:J7 - Активируем ячейку В8 происходит закрашивание вертикальных и горизонтальных границ ячеек в диапазоне А8:J8 Подобные манипуляции происходят в строках с 7 по 300. Файл таблицы во вложении, макросы там уже имеются, к ним надо добавить, описанное выше. |
![]() |
![]() |
![]() |
#2 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
![]()
все написано правильно, только
1. ничего активировать не нужно, работаем с диапазоном a7:j300 2. есть подозрения, что нужны не только горизонтальные и вертикальные границы, а еще: верхняя, нижняя, левая и правая (сомнительна только необходимость левой границы) в итоге макрос, который сделает то, что Вы описали, будет выглядеть так: Код:
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
![]() |
![]() |
![]() |
#3 |
Пользователь
Регистрация: 07.09.2017
Сообщений: 44
|
![]()
Спасибо за быстрый ответ, но имелось в виду несколько не то. В результате работы Вашего макроса после активации В7 оформляются границы всего диапазона сразу, а я имел ввиду, что оформляться будут границы только в 7-й строке с А до J. Далее после ввода данных в В8 границы оформятся только в 8-й строке с А до J и так по нарастающей при заполнении строк в указанном диапазоне. И после добавления Вашего макроса в документ, у меня перестала работать нумерация в столбце А, вместо нумерации там появляется формула. Код я сделала так
Код:
|
![]() |
![]() |
![]() |
#4 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
![]()
на Планете написал Вам такой макрос
Код:
а вот пример как его выполнить 294 раза (для строк с 7-й по 300) Код:
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
![]() |
![]() |
![]() |
#5 |
Пользователь
Регистрация: 07.09.2017
Сообщений: 44
|
![]()
Не знаю как это всё привязать в коде. Буду форматировать границы вручную.
|
![]() |
![]() |
![]() |
#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
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
![]() |
![]() |
![]() |
#7 |
Пользователь
Регистрация: 07.09.2017
Сообщений: 44
|
![]()
Извините за мою бестолковость, но не соображаю я куда это всё в код скопировать. Не буду Вас мучать и сам успокоюсь. Работать будем по старинке. Спасибо за участие.
|
![]() |
![]() |
![]() |
#8 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
![]()
я привел фрагмент текста Вашей процедуры
синим цветом подкрашено то, что нужно вставить между строк в Вашей процедуре! внимательнее, пожалуйста))
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
![]() |
![]() |
![]() |
#9 |
Пользователь
Регистрация: 07.09.2017
Сообщений: 44
|
![]()
Извините ещё раз за мою бестолковть. Да так работает, но нарушилась моя автонумерация в столбце А. Вместо цифр в столбце А стала появляться просто формула (=IF(RC2="","",MAX(R1C1:R[-1]C)+1)) из кода. В чём проблема? Файл могу выслать.
|
![]() |
![]() |
![]() |
#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 |