我已录制以下宏,以根据“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
行。