記録されたマクロを VBA で自動化されたマクロに変換するにはどうすればよいでしょうか?

Question

列「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 で変更しようとしていますが、今のところ成功していません。

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