Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Сортировка строк в автомате по нескольким параметрам - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сортировка строк в автомате по нескольким параметрам (Макросы/Sub)
Сортировка строк в автомате по нескольким параметрам
Moisha Дата: Четверг, 17.12.2015, 15:10 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
Добрый день знатокам excel. Я сформировал рейтинг по статистике что находиться в отдельных листах, рейтинговые таблицы сортируются по трем параметрам макросами, я их вывел отдельными кнопками. Как заставить их работать в автомате чтоб не тыкать все время на макрос?За ранее спасибо!
К сообщению приложен файл: 6006798.xlsm (96.3 Kb)


Сообщение отредактировал Moisha - Четверг, 17.12.2015, 16:03
 
Ответить
СообщениеДобрый день знатокам excel. Я сформировал рейтинг по статистике что находиться в отдельных листах, рейтинговые таблицы сортируются по трем параметрам макросами, я их вывел отдельными кнопками. Как заставить их работать в автомате чтоб не тыкать все время на макрос?За ранее спасибо!

Автор - Moisha
Дата добавления - 17.12.2015 в 15:10
Nic70y Дата: Пятница, 18.12.2015, 09:05 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 8761
Репутация: 2273 ±
Замечаний: 0% ±

Excel 2010
например в модуль листа
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
'#1
If Not Intersect(Target, Range("d6:k7")) Is Nothing Then
    Call ОбновитьОР
End If
'и так далее
End Sub
[/vba]не, не то не заметил сразу, что там формулы
так наверное
[vba]
Код
Private Sub Worksheet_Activate()
    Call ОбновитьОР
'и так далее
End Sub
[/vba]


ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Пятница, 18.12.2015, 09:08
 
Ответить
Сообщениенапример в модуль листа
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
'#1
If Not Intersect(Target, Range("d6:k7")) Is Nothing Then
    Call ОбновитьОР
End If
'и так далее
End Sub
[/vba]не, не то не заметил сразу, что там формулы
так наверное
[vba]
Код
Private Sub Worksheet_Activate()
    Call ОбновитьОР
'и так далее
End Sub
[/vba]

Автор - Nic70y
Дата добавления - 18.12.2015 в 09:05
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сортировка строк в автомате по нескольким параметрам (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!