客户应收款管理系统

mcy318

客户管理系统[函数版].rar (79.09 KB, 下载次数: 171)

2013-12-4 12:04 上传

点击文件名下载附件

做了一个函数版的系统，但数据量一大就动不了了，那位帮做一个代码的，谢了。

mineshine

仅供参考
将公式用放在VBA
运用工作表Change事件

1. 
   
2. Private Sub Worksheet_Change(ByVal Target As Range)
   
3. If Target.Row < 3 Then Exit Sub
   
4. If Target.Count > 1 Then Exit Sub
   
5. If Target.Column < 6 Or Target.Column > 34 Then Exit Sub
   
6. Dim r As Long, c As Integer
   
7. r = Target.Row   '目标列
   
8. c = Target.Column '一标栏
   
9. If c = 16 Or c = 17 Then
   
10.     Cells(r, 18) = Cells(r, 17) - Cells(r, 16)  '代理差价
    
11. ElseIf c = 15 Or c = 22 Then
    
12.     Cells(r, 25) = Cells(r, 22) - Cells(r, 15)  '末开票数量
    
13. ElseIf (c >= 5 And c <= 7) Or c = 17 Or c = 33 Or c = 34 Then
    
14.     With Application.WorksheetFunction
    
15.         Cells(r, 35) = .SumIf(Range(Cells(3, 5), Cells(r, 5)), Cells(r, 5), Range(Cells(3, 6), Cells(r, 6))) + .SumIf(Range(Cells(3, 5), Cells(r, 5)), Cells(r, 5), Range(Cells(3, 17), Cells(r, 17))) - .SumIf(Range(Cells(3, 5), Cells(r, 5)), Cells(r, 5), Range(Cells(3, 33), Cells(r, 33))) '欠款总额(按客户)
    
16.         Cells(r, 36) = .SumIf(Range(Cells(3, 5), Cells(r, 5)), Cells(r, 5), Range(Cells(3, 7), Cells(r, 7))) + .SumIf(Range(Cells(3, 5), Cells(r, 5)), Cells(r, 5), Range(Cells(3, 34), Cells(r, 34))) '逾期欠款(按客户)
    
17.         Cells(r, 37) = .SumIf(Range(Cells(3, 3), Cells(r, 3)), Cells(r, 3), Range(Cells(3, 6), Cells(r, 6))) + .SumIf(Range(Cells(3, 3), Cells(r, 3)), Cells(r, 3), Range(Cells(3, 17), Cells(r, 17))) - .SumIf(Range(Cells(3, 3), Cells(r, 3)), Cells(r, 3), Range(Cells(3, 33), Cells(r, 33))) '欠款总额(按代理商)
    
18.         Cells(r, 38) = .SumIf(Range(Cells(3, 3), Cells(r, 3)), Cells(r, 3), Range(Cells(3, 7), Cells(r, 7))) + .SumIf(Range(Cells(3, 3), Cells(r, 3)), Cells(r, 3), Range(Cells(3, 34), Cells(r, 34))) '逾期欠款(按代理商)
    
19.     End With
    
20. End If
    
21. End Sub
    

复制代码

hnnyfcykl

mineshine 发表于 2013-12-4 15:02
仅供参考
将公式用放在VBA
运用工作表Change事件

谢谢mineshine    很好