如何在 VBA 中将录制的宏转换为自动宏?

如何在 VBA 中将录制的宏转换为自动宏?

我已录制以下宏,以根据“C3:C47”列的值对“B3:U47”范围内的数据进行排序。

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行。

相关内容