|
exce格式为*.XLS时保存正常无问题,保存为*.XLSM,文件闪退,经测试主要为下方代码导致,求助各位大神解决方案
代码如下
Sub 排序1()
Application.DisplayAlerts = False
With Worksheets("室外")
R = .Cells(.Rows.Count, 2).End(xlUp).ROW
With Range("A2:R" & R)
Application.AddCustomList ListArray:=Array("D1", "D2", "D3", "D7", "D8", "F1", "F2", "A", "E1", "E2", "E3", "FDD1800", "FDD900")
.Sort Key1:=Range("Q2"), Order1:=xlAscending, Header:=xlNo, OrderCustom:=Application.CustomListCount + 1
.Sort Key1:=Range("P2"), Order1:=xlAscending, Header:=xlNo
Application.DeleteCustomList ListNum:=Application.CustomListCount
End With
End With
Application.DisplayAlerts = True
End Sub
|
|