Как АВТОСОРТИРОВКА нескольких листов с помощью VBA в Microsoft Excel 2010
В этой статье вы узнаете, как автоматически сортировать несколько листов с помощью кода VBA.
В) Я хотел бы знать, как я могу отсортировать данные на нескольких листах (не на всех).
[.underline] # Давайте возьмем пример: # У нас есть 3 листа (январь, февраль и март), и из них только маршевый лист должен быть автоматически отсортирован при вводе любой информации в столбец A.
Щелкните вкладку «Разработчик». В группе «Код» выберите Visual Basic
Введите следующий код в эту книгу (ни на одном листе). Это запустит код на всех листах.
Private Sub Workbook_SheetChange (ByValSh как объект, ByVal Target как диапазон)
При ошибке Возобновить След.
Выберите Case ActiveSheet.Name
Падеж «Янв», «Фев»
Case Else
Если не пересечение (Target, Range («A: A»)) — это ничего, тогда
Диапазон («A1»). Ключ сортировки1: = Диапазон («A2»), _
Order1: = xlAscending, Header: = xlYes, _
OrderCustom: = 1, MatchCase: = False, _
Ориентация: = xlTopToBottom
Конец Если
End Select
End Sub
Таким образом, вы можете легко сортировать данные по любому конкретному столбцу на нескольких листах по мере ввода информации. Это отличный способ сэкономить время и убедиться, что отчет выглядит именно так, как вам хотелось бы.