[已解决]代码是哪里出了问题

gylilan

我通过录制宏，并在此基础上修改代码的方法做了一个小程序，代码运行时没有什么问题，但每次打开文件都会出现以下提示，貌似有关排序的代码有问题，而且这个 代码还影响我在表中设定的条件格式，使C列无法正常显示条件格。但因为我的VBA实在太菜，不知道如何修改，请各位老师帮忙看看修改一下。非常感谢。 求助.zip (151.43 KB, 下载次数: 10)

2013-1-14 10:33 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-1-14 21:27

(, 下载次数: 3)

上传

点击文件名下载附件
你用这个试试。

跳转到最佳答案楼层

hwc2ycy

你试试修复保存后看还会不会出这个提示。

hwc2ycy

求助2.rar (150.07 KB, 下载次数: 7)

2013-1-14 13:46 上传

点击文件名下载附件
文件有问题，重新修复保存存了的。

hwc2ycy

gylilan

hwc2ycy 发表于 2013-1-14 13:47

你好，我重新保存修复了的文件，只要运行过程序，下次再打开文件，还是会出现同样的提示。

gylilan

hwc2ycy 发表于 2013-1-14 13:47

不好意思，这个截图我没有看明白是什么意思。

hwc2ycy

gylilan 发表于 2013-1-14 16:48
你好，我重新保存修复了的文件，只要运行过程序，下次再打开文件，还是会出现同样的提示。

之前保存的没有运行宏。
应该是宏代码运行后导致的。

hwc2ycy

1. Sub 筛选()
   
2. '
   
3. ' 筛选 宏
   
4. '
   
5.     Application.ScreenUpdating = False
   
6.     '
   
7.     With Range("A6:I" & [a65536].End(xlUp).Row)
   
8.         .Value = ""
   
9.         .Borders.LineStyle = xlNone    '清除单元格边框线
   
10.     End With
    
11. 
    
12.     '先对总表以 月字段，升序进行排序，
    
13.     With Worksheets("总表")
    
14.         Dim iRow&
    
15.         iRow = .[a65536].End(xlUp).Row
    
16.         .Range("a1:i" & iRow).Sort _
    
17.                 Key1:=.Range("c2:c" & iRow), Order1:=1, Header:=xlYes
    
18. 
    
19.         '高级筛选
    
20.         .Range("A1:I" & iRow).AdvancedFilter Action:=xlFilterCopy, _
    
21.                                              CriteriaRange:=Range("K1:K2"), CopyToRange:=Range("A5:I5")
    
22.     End With
    
23. 
    
24.     iRow = [a65536].End(xlUp).Row
    
25.     Range("a5:i" & iRow).Sort Key1:=Range("c6:i" & iRow), Order1:=xlAscending, _
    
26.                               key2:=Range("a6:a" & iRow), order2:=xlAscending, Header:=xlYes, SortMethod:=xlPinYin
    
27. 
    
28.     With Range("C6")
    
29.         .Value = ""
    
30.         .Subtotal GroupBy:=3, Function:=xlSum, TotalList:=Array(7, 8), _
    
31.                   Replace:=True, PageBreaks:=False, SummaryBelowData:=True
    
32.         .ClearOutline
    
33.     End With
    
34. 
    
35.     Dim i As Integer
    
36.     iRow = [h65536].End(xlUp).Row
    
37.     For i = iRow To 5 Step -1
    
38.         'For i = [h65536].End(xlUp).Row To 5 Step -1
    
39.         If Cells(i, 3) = "总计" Then Rows(i).Delete
    
40.         If Cells(i, 3) Like "*汇总" Then Cells(i, 6) = "本期合计"
    
41.         If Cells(i, 3) Like "*汇总" Then Cells(i, 3).Value = ""
    
42.         If Cells(i, 6) = "本期合计" Then
    
43.             Rows(i + 1).Insert
    
44.             Cells(i + 1, 6) = "期初余额"
    
45.         End If
    
46. 
    
47.     Next i
    
48. 
    
49.     '正常位置
    
50.     iRow = [f65536].End(xlUp).Row
    
51.     Range("F" & iRow).Delete    '删除最后一行数据
    
52. 
    
53.     Range("I7").FormulaR1C1 = "=IF(RC[-8]="""",R[-1]C,R[-1]C+RC[-2]-RC[-1])"    '输入余额栏公式
    
54.     Range("I7").AutoFill Destination:=Range("I7:I" & iRow - 1), Type:=xlFillDefault
    
55.     Range("g6:I" & iRow - 1).NumberFormatLocal = "0.00_ ;[红色]-0.00 "  '设置格式为两位小数
    
56. 
    
57.     With Range("F6:I" & iRow - 1)  '.Select '设置摘要栏为自动缩小字体适应单元格
    
58.         .VerticalAlignment = xlCenter
    
59.         .ReadingOrder = xlContext
    
60.     End With
    
61. 
    
62.     With Columns("A:E")    '.Select 'A到E列的内容居中
    
63.         .HorizontalAlignment = xlCenter
    
64.         .VerticalAlignment = xlCenter
    
65.         .ReadingOrder = xlContext
    
66.     End With
    
67.     Columns("E:E").NumberFormatLocal = "0000"    '设置E列格式
    
68. 
    
69.     With Range("A5:I" & [I65536].End(xlUp).Row)  '加边框线
    
70.         With .Borders
    
71.             .LineStyle = xlContinuous
    
72.             .Weight = xlThin
    
73.         End With
    
74.     End With
    
75. 
    
76.     With Range("B3")    '设置B3和I3单元格格式
    
77.         .HorizontalAlignment = xlLeft
    
78.         .VerticalAlignment = xlCenter
    
79.         .ReadingOrder = xlContext
    
80.     End With
    
81. 
    
82.     With Range("I3")
    
83.         .HorizontalAlignment = xlRight
    
84.         .VerticalAlignment = xlCenter
    
85.         .ReadingOrder = xlContext
    
86.     End With
    
87. 
    
88.     Application.ScreenUpdating = True
    
89.     ActiveSheet.PageSetup.PrintArea = "A1:I" & iRow - 1  '设置打印区域
    
90. End Sub

复制代码

重新整理了下，当是学下SORT

hwc2ycy

存盘后再运行宏，不会报错了。

gylilan

hwc2ycy 发表于 2013-1-14 17:39
之前保存的没有运行宏。
应该是宏代码运行后导致的。

那应该是宏代码有问题，请问能通过修改代码解决这个问题吗？