自定义序列排序后保存崩溃

lcluck2002

如图所示的代码，按自定义序列排序，可以正常执行，结果也正常，但是执行完了以后，无法保存。
点击保存，鼠标转为忙碌几秒之后，Excel闪退，并自动重启。再次打开文件，文件复原了。
烦请大礼指点一二，感谢！

ykcbf1100

原代码运行了一下，发现保存时确实有楼主说的情况。

加一句代码可以解决这个问题。

ykcbf1100

自定义排序

1. Sub MySort()
   
2.     Dim r As Range
   
3.     Dim mylist()
   
4.     Dim i As Integer
   
5.     mylist = Array("壹", "贰", "叁", "肆", "伍")
   
6.     Set r = Range("B1:C5")
   
7.     Application.AddCustomList (mylist)
   
8.     i = Application.CustomListCount
   
9.     r.Sort key1:=Range("B1:B5"), OrderCustom:=i + 1
   
10.     ActiveSheet.Sort.SortFields.Clear               '//在删除自定义前加上这句代码就可以
    
11.     Application.DeleteCustomList i
    
12. End Sub
    

复制代码

笨鸟飞不高

https://club.excelhome.net/thread-1613825-1-1.html

以前也遇到过类似问题！

今铭昔

LIUZHU

今铭昔 发表于 2024-7-10 07:51

用JS数组排序对于VBA来说，真的是降维打击

今铭昔

LIUZHU 发表于 2024-7-10 08:36
用JS数组排序对于VBA来说，真的是降维打击

嗯，函数式编程，只需要传入关键的比较逻辑，剩下的交给调用者就行了，回调函数的魅力。

LIUZHU

今铭昔 发表于 2024-7-10 09:28
嗯，函数式编程，只需要传入关键的比较逻辑，剩下的交给调用者就行了，回调函数的魅力。

至今没搞懂什么叫函数式编程？

gufengaoyue

大概应该是因为设置了自定义排序，但你删除了该数组，导致找不到数据而引导的崩溃。所以把工作表中的排序清除就可以了，最后加一句，ActiveSheet.Sort.SortFields.Clear