[已解决]麻烦大家帮忙看一下这段代码有什么错误

hwc2ycy

你运行嘛，应该没问题。

mengdie101

hwc2ycy 发表于 2013-3-17 13:17
你运行嘛，应该没问题。

试了，没有问题，老师能不能帮忙把汇总页的公式和凭证录入页A列的公式转成vba代码

hwc2ycy

有现成的能用的的就用现成的吧，只要没问题，不影响速度。

mengdie101

hwc2ycy 发表于 2013-3-17 15:46
有现成的能用的的就用现成的吧，只要没问题，不影响速度。

好吧老师，再问一个问题，当提示无符合条件的数据之后，能不能把页面数据清空

hwc2ycy

mengdie101 发表于 2013-3-17 16:18
好吧老师，再问一个问题，当提示无符合条件的数据之后，能不能把页面数据清空

1. Sub 明细账_清空()
   
2.     With Sheets("明细账簿")
   
3.         ka = .[B65536].End(xlUp).Row
   
4.         If ka > 3 Then
   
5.             .Range("b4:j" & ka).ClearContents
   
6.         End If
   
7.     End With
   
8. End Sub
   
9. 
   
10. Sub 明细账_生成()
    
11.     Dim arr
    
12.     With Worksheets("凭证录入")
    
13.         arr = .Range("a1").CurrentRegion
    
14.     End With
    
15. 
    
16.     Dim Km$
    
17.     Km = [j1]
    
18.     If Len(Km) = 0 Then MsgBox "请在J1选择要查询的姓名": Exit Sub
    
19. 
    
20.     Dim i As Long, YuE As Double
    
21.     Dim arrPos1, arrPos2, arr2(), k&
    
22.     ReDim arr2(1 To UBound(arr) - 1, 1 To 9)
    
23.     arrPos1 = Array(3, 4, 5, 6, 7, 8, 9)
    
24.     arrPos2 = Array(1, 2, 3, 4, 5, 6, 7)
    
25.     For i = 3 To UBound(arr)
    
26.         If arr(i, 2) Like Km Then
    
27.             k = k + 1
    
28.             For j = LBound(arrPos1) To UBound(arrPos1)
    
29.                 arr2(k, arrPos2(j)) = arr(i, arrPos1(j))
    
30.             Next
    
31.             YuE = YuE + Val(arr2(k, 7)) - Val(arr2(k, 6))
    
32.             arr2(k, 9) = YuE
    
33.             Select Case YuE
    
34.                 Case Is = 0: arr2(k, 8) = "平"
    
35.                 Case Is > 0: arr2(k, 8) = "贷"
    
36.                 Case Is < 0: arr2(k, 8) = "借"
    
37.             End Select
    
38.             
    
39.         End If
    
40.     Next
    
41.     If k > 0 Then
    
42.         Range("b4").Resize(k, 9) = arr2
    
43.     Else
    
44.         MsgBox "无符合条件的数据"
    
45.         Call 明细账_清空
    
46.     End If
    
47. End Sub

复制代码

hwc2ycy

提示后加一句

1. Call 明细账_清空

复制代码

原有的清空代码给改了下，这样易读。

mengdie101

hwc2ycy 发表于 2013-3-17 16:27
提示后加一句原有的清空代码给改了下，这样易读。

好了，非常感谢老师的帮助