排序后点击保存出错并关闭excel的问题

hhxq001

一个工作表，用宏代码排序后，点击保存就出错，点击确定就自动关闭excel，并不会保存最新顺序，什么原因。提示：修改内容后点击保存，就正常，只在排序后点击保存异常。


保存错误.zip (57.88 KB, 下载次数: 4)

2022-12-10 15:29 上传

点击文件名下载附件

fzxba

可能缺少这样的一句  activesheet.sort.sortfields.clear

fzxba

hhxq001

fzxba 发表于 2022-12-10 15:59

试了，不起作用呢

hhxq001

经反复测试，是代码有问题，改为如下代码正常了

Sub 自定义排序()
With ActiveSheet.Sort
Dim x&
ScreenUpdating = False

.SortFields.Clear '清空排序条件
x = Selection.Column '按鼠标所在的列排序
Range("B2" & ":M" & Range("A65536").End(xlUp).Row).Sort Key1:=Columns(x), Order1:=xlAscending, Header:=xlGuess, SortMethod:=xlPinYin, DataOption1:=xlSortNorma, MatchCase:=False

'排序范围，排序关键字-这里按列，Order1:=xlAscending升序，Header:=xlGuess标题-自动判断，SortMethod:=xlPinYin 排序方法=拼音,DataOption:=xlSortNormal ' 文本格式的数字= xlSortTextAsNumbers：视作数字（默认值）、 xlSortNormal：视作文本
'    .MatchCase = False '不区分大小写
ScreenUpdating = True

End With
MsgBox "排序完成", vbInformation

End Sub

hhxq001

找到一段类似的，也正常
Sub 自定义排序2()
Dim SortRange As Range
Set SortRange = ActiveSheet.Range("B2:m" & Range("A65536").End(xlUp).Row) '范围
With ActiveSheet.Sort
     ScreenUpdating = False
     .SortFields.Clear '清除所有 SortFields 对象
     x = Selection.Column '按鼠标所在的列排序
     '新建 SortFields 对象
     .SortFields.Add Key:=Columns(x), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortTextAsNumbers
'排序关键字按列、排序依据SortOnValues：按数值-默认值、Order次序xlAscending：升序、DataOption文本格式的数字= xlSortTextAsNumbers视为数字，= xlSortNormal视作文本

     '新建 SortFields 对象
     .SetRange SortRange '设置排序区域
     .Header = xlYes '指定第一行包含标题信息
     .MatchCase = False '指定不区分大小写
     .SortMethod = xlPinYin '指定中文排序方法
     .Apply '执行排序
     ScreenUpdating = True
     MsgBox "排序完成", vbInformation
End With
Set SortRange = Nothing
End Sub

hhxq001

弹窗选择列：
Option Compare Text '不区分大小写
Sub 选择列进行排序()
Dim SortRange As Range
Set SortRange = ActiveSheet.Range("B2:m" & Range("A65536").End(xlUp).Row) '范围

With ActiveSheet.Sort
     ScreenUpdating = False
     .SortFields.Clear '清除所有 SortFields 对象
     x = InputBox("请在b--m之间选择要排序的列号", "排序")

    If x = "b" Or x = "c" Or x = "d" Or x = "e" Or x = "f" Or x = "g" Or x = "h" Or x = "i" Or x = "j" Or x = "k" Or x = "l" Or x = "m" Then

     '新建 SortFields 对象
       .SortFields.Add Key:=Columns(x), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortTextAsNumbers
'排序关键字按列、排序依据SortOnValues：按数值-默认值、Order次序xlAscending：升序、DataOption文本格式的数字= xlSortTextAsNumbers视为数字，= xlSortNormal视作文本

     '新建 SortFields 对象
       .SetRange SortRange '设置排序区域
       .Header = xlYes '指定第一行包含标题信息
       .MatchCase = False '指定不区分大小写
       .SortMethod = xlPinYin '指定中文排序方法
       .Apply '执行排序

       MsgBox "排序完成", vbInformation
    Else
      MsgBox " 当前选择的不是b--m之间的列，所以不允许排序，请重新选择"
    End If
ScreenUpdating = True
End With
Set SortRange = Nothing

End Sub