☰

Как превратить записанный макрос в автоматизированный макрос в VBA?

tag-icon • tag-icon microsoft-excel vba macros microsoft-excel-2016
Как превратить записанный макрос в автоматизированный макрос в VBA?

Я записал следующий макрос для сортировки данных в диапазоне «B3:U47» на основе значений столбца «C3:C47».

Sub Sorting_Finance()
    Range("B3:U47").Select
    ActiveWorkbook.Worksheets("Finance").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Finance").Sort.SortFields.Add2 Key:= _
        Range("C3:C47"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption _
        :=xlSortNormal
    With ActiveWorkbook.Worksheets("Finance").Sort
        .SetRange Range("B3:U47")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Каждый раз, когда я хочу отсортировать данные, я нажимаю Control+n. Есть ли способ сделать это автоматически, когда я ввожу новое значение в столбец C? Я пытаюсь изменить его через VBA, но пока безуспешно.

решение1

Шаблон:

Private Sub Worksheet_Change(ByVal Target As Range)
if not (intersect(target, Range("C3:C47")) is nothing) then 
    call Sorting_Finance
end if
end sub

И не забудьте удалить/закомментировать Range("B3:U47").Selectстроку.

Связанный контент