Excel VBA自动排序问题：更新Credit Limit列时无法触发排序

问题说明 #

表格包含4列：

• % Used：计算列，公式为=C/B
• Credit Limit：手动更新列
• Credit Used：手动更新列，已添加小数处理逻辑（输入值长度大于2时自动除以100）
• Credit Balance：计算列，公式为=B-C

现有VBA宏仅在更新Credit Used列（C3:C25）时触发SetUsageSort排序，但更新Credit Limit列时排序功能无响应。

现有代码 #

Worksheet_Change事件代码

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next

Dim Rng1 As Range

Set Rng1 = Range("C3:C25")

Application.EnableEvents = False
If Not Application.Intersect(Target, Rng1) Is Nothing Then
If Len(Target) > 2 Then
    Target.Formula = Target.Value / 100
End If

Call SetUsageSort

End If

Application.EnableEvents = True

End Sub

SetUsageSort排序宏代码

Sub SetUsageSort()

Range("A2:E22").Select

ActiveWorkbook.Worksheets("Credits_24").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Credits_24").Sort.SortFields.Add2 Key:=Range("A2:A22"), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal

With ActiveWorkbook.Worksheets("Credits_24").Sort
    .SetRange Range("A2:D22")
    .Header = xlYes
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
End With

Range("A1").Select
Application.CutCopyMode = False

End Sub

解决方案 #

问题核心是Worksheet_Change事件仅监听了Credit Used列（C3:C25），未包含Credit Limit列。同时可优化排序宏去掉不必要的Select操作，提升代码稳定性与效率。

修改后的Worksheet_Change事件代码

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next

Dim monitorRng As Range
' 同时监听Credit Limit列（B3:B25）和Credit Used列（C3:C25）
Set monitorRng = Union(Range("B3:B25"), Range("C3:C25"))

Application.EnableEvents = False
If Not Application.Intersect(Target, monitorRng) Is Nothing Then
    ' 仅对Credit Used列（C列）执行小数处理逻辑
    If Target.Column = 3 And Len(Target.Value) > 2 Then
        Target.Value = Target.Value / 100
    End If
    ' 调用排序宏
    Call SetUsageSort
End If

Application.EnableEvents = True
End Sub

优化后的SetUsageSort排序宏代码（去掉Select）

Sub SetUsageSort()
With ThisWorkbook.Worksheets("Credits_24")
    .Sort.SortFields.Clear
    .Sort.SortFields.Add2 Key:=.Range("A2:A22"), _
        SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    
    With .Sort
        .SetRange .Range("A2:D22")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End With
Application.CutCopyMode = False
End Sub

说明 #

1. 用Union方法合并Credit Limit列与Credit Used列作为监听范围，确保修改任意一列都会触发排序
2. 给小数处理逻辑添加列判断，仅对C列生效，避免干扰B列的正常输入
3. 排序宏中用ThisWorkbook替代ActiveWorkbook，直接通过工作表对象操作，去掉冗余的Select操作，让代码更可靠

内容的提问来源于stack exchange，提问作者Sachin S