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

mengdie101

1032446692 发表于 2013-3-17 10:23
我也觉的   乱七八糟的  都不知道他想干嘛

不好意思，老师，就是想做一个应付款的明细账，用公式做了，每次输入信息都要计算单元格，想用VBA做一个，还不是很懂，结果弄得乱七八糟{:241:}

hwc2ycy

复件 其他应付款.rar (31.17 KB, 下载次数: 7)

2013-3-17 10:39 上传

点击文件名下载附件

mengdie101

hwc2ycy 发表于 2013-3-17 10:35
平贷的关系我不懂，你给说说。

一般是期初余额在贷方，本行余额=上行余额+本行贷方-本行借方，如果为0则不显示，借贷显示为平

hwc2ycy

你把我改的代码生成的数据补上剩下的我看看吧。

mengdie101

hwc2ycy 发表于 2013-3-17 10:59
你把我改的代码生成的数据补上剩下的我看看吧。

好的老师，就是如果查询当前名字没有数据的情况下，再点击J1单元格选择其他名字时还会提示一次没有数据，能不能把这一次的提示去掉

hwc2ycy

双击sheet3（明细账簿），找到

1. Call 明细账_生成

复制代码

直接把这行注释掉吧。

mengdie101

hwc2ycy 发表于 2013-3-17 11:16
双击sheet3（明细账簿），找到直接把这行注释掉吧。

原来在这里，是我的错，已去掉

hwc2ycy

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

复制代码

你看余额和借贷关系是不是对的。

hwc2ycy

复件 其他应付款.rar (31.35 KB, 下载次数: 7)

2013-3-17 12:08 上传

点击文件名下载附件

mengdie101

hwc2ycy 发表于 2013-3-17 12:08

谢谢老师，余额为借时也显示为正数，余额为0时不显示，我改成这样，对吗

1.             YuE = YuE + Val(arr2(k, 7)) - Val(arr2(k, 6))
   
2.             Select Case YuE
   
3.                 Case Is = 0: arr2(k, 8) = "平": arr2(k, 9) = ""
   
4.                 Case Is > 0: arr2(k, 8) = "贷": arr2(k, 9) = YuE
   
5.                 Case Is < 0: arr2(k, 8) = "借": arr2(k, 9) = Abs(YuE)
   
6.             End Select

复制代码