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

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

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль

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

Ответ
 
Опции темы Поиск в этой теме
Старый 11.05.2010, 16:50   #1
Дмитрий Фукс
Пользователь
 
Регистрация: 17.03.2009
Сообщений: 41
По умолчанию Переделать макрос.

Есть макрос.
Хочу приспособить для своих нужд.
Какие строки изменить, чтоб цветом выделялись и номер строки выбирался бы на листе с кнопкой?
Вложения
Тип файла: rar Изменить.RAR (17.0 Кб, 10 просмотров)
Дмитрий Фукс вне форума Ответить с цитированием
Старый 11.05.2010, 17:48   #2
ELE-COM
Пользователь
 
Регистрация: 08.05.2010
Сообщений: 48
По умолчанию

В примере уже есть код на исходном тексте листа:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

но без второй строки. Добавьте туда эту вторую строку:

Call CompareBooks

и тогда по заданному условию "смена активной ячейки" будет запускаться нужный вам макрос CompareBooks
Если хотите запускать его с кнопки, зайдите в меню Данные> Форма, сделайте кнопку и назначьте ей макрос
ELE-COM вне форума Ответить с цитированием
Старый 11.05.2010, 19:39   #3
Дмитрий Фукс
Пользователь
 
Регистрация: 17.03.2009
Сообщений: 41
По умолчанию

Добавил 2 строку, не работает.
Дмитрий Фукс вне форума Ответить с цитированием
Старый 11.05.2010, 19:56   #4
ELE-COM
Пользователь
 
Регистрация: 08.05.2010
Сообщений: 48
По умолчанию

Цитата:
Сообщение от Дмитрий Фукс Посмотреть сообщение
Добавил 2 строку, не работает.
Куда именно?
Я запускал sr_1.xls, сравнивал с sr_2.xls, в нем отличающиеся ячейки покраснели...
В самом макросе ничего не менял, только процедуру его вызова прописал.
Вложения
Тип файла: rar 111.rar (23.2 Кб, 12 просмотров)
ELE-COM вне форума Ответить с цитированием
Старый 12.05.2010, 05:49   #5
Дмитрий Фукс
Пользователь
 
Регистрация: 17.03.2009
Сообщений: 41
По умолчанию

У меня Не работает и в примере 111. В диалоге выбираю sr_2.xls, окно не закрывается, нажимаю отмену, появляется "Укажите номер строки..."
Потом тыкаешся-мыкаешся, строки выделяются в sr_2.xls.
Дмитрий Фукс вне форума Ответить с цитированием
Старый 12.05.2010, 06:15   #6
ELE-COM
Пользователь
 
Регистрация: 08.05.2010
Сообщений: 48
По умолчанию

Напишите подробнее, как надо? Чтобы после сравнения со вторым, ячейки выделялись в первом файле? Может проще разместить данные из второго файла на отдельном листе первого? так можно будет и без макроса обойтись. Ячейки будут краснеть сразу, как только их значение станет отличным от соотв. ячеек на другом листе. Можно вообще обойтись без файла сравнения - внести исходное значение в условный формат. Если будет другое - выделится заданным цветом. Уточните, какой вариант больше подходит?
ELE-COM вне форума Ответить с цитированием
Старый 12.05.2010, 09:10   #7
Дмитрий Фукс
Пользователь
 
Регистрация: 17.03.2009
Сообщений: 41
По умолчанию

Мне надо чтобы после сравнения со вторым, ячейки выделялись в первом файле.
Строка, откуда начать сравнение, так же выбиралась в первом файле.
Желательно описать какая строка в макросе что делает.
Дмитрий Фукс вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Макрос постоянно обрабатывает события. При открытии другой книги макрос обрывается. Ples Microsoft Office Excel 8 17.12.2016 18:15
Макрос, запускающий макрос из другого закрытого файла petruha Microsoft Office Excel 7 14.03.2010 11:31
Макрос вставки файлов в листы-Необходимо изменить ниже приведённый макрос as-is Microsoft Office Excel 4 25.02.2010 07:51
переделать прогу daur3n Помощь студентам 2 10.03.2009 13:34
Переделать процедуру AidarBik Общие вопросы Delphi 12 22.05.2008 14:59