Автоматическая сортировка - VBA

Формулировка задачи:

Excel 2007. По столбцу проведена сортировка. При изменении или добавлении значения ячейки в этом столбце, необходимо чтобы выполнялась автоматическая сортировка. Что бы не нужно было нажимать Сортировка и фильтры->Применить повторно...

Решение задачи: «Автоматическая сортировка»

textual
                            Листинг программы 
                        

                            Private Sub Worksheet_Change(ByVal T As Range)
  On Error Resume Next
  Set T = Intersect(T, UsedRange)
  If T Is Nothing Then Exit Sub
  For Each T In T
    T.EntireColumn.Sort Cells(1, T.Column), xlAscending, Header:=xlYes
  Next
End Sub
                        

Оцени полезность:

6 голосов , оценка 4 из 5

Похожие ответы