Добрый день! Есть несколько столбцов с датами у которых данные связанные с другими столбцами. Нужно чтобы при смене даты происходило автоматическая сортировка по дате. Ниже файл-пример, в таблице есть шесть столбцов, строки столбцов А и В, С и D, E и F связанные попарно. Нужно чтобы при смене даты в столбцах A, C, E происходила автоматическая сортировка и связанные данные не перемешивались. Спасибо!
Добрый день! Есть несколько столбцов с датами у которых данные связанные с другими столбцами. Нужно чтобы при смене даты происходило автоматическая сортировка по дате. Ниже файл-пример, в таблице есть шесть столбцов, строки столбцов А и В, С и D, E и F связанные попарно. Нужно чтобы при смене даты в столбцах A, C, E происходила автоматическая сортировка и связанные данные не перемешивались. Спасибо!Morfeysis
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Intersect(Target, Range("A:A,C:C,E:E")) Is Nothing Then Exit Sub If Not IsDate(Target) Then Exit Sub With Cells(1, Target.Column).Resize(Cells(Rows.Count, Target.Column).End(xlUp).Row, 2) .Sort Key1:=.Cells(1, 1), Order1:=xlAscending, Header:=xlYes End With End Sub
[/vba]
может, вот так: [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Intersect(Target, Range("A:A,C:C,E:E")) Is Nothing Then Exit Sub If Not IsDate(Target) Then Exit Sub With Cells(1, Target.Column).Resize(Cells(Rows.Count, Target.Column).End(xlUp).Row, 2) .Sort Key1:=.Cells(1, 1), Order1:=xlAscending, Header:=xlYes End With End Sub
Снова здравствуйте! Вопрос такой, можно ли сделать дополнительную сортировку по цвету шрифта дат? Если одинаковые даты, а цвет у них разный. Чтобы красный шел впереди, потом зеленый, а потом черный. Спасибо!
Снова здравствуйте! Вопрос такой, можно ли сделать дополнительную сортировку по цвету шрифта дат? Если одинаковые даты, а цвет у них разный. Чтобы красный шел впереди, потом зеленый, а потом черный. Спасибо!Morfeysis
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
