Автоматическая сортировка - 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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

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