如何根据客户自动累加

gaga44

应收11.zip (32.79 KB, 下载次数: 11)

2017-10-17 17:27 上传

点击文件名下载附件 各位好，已知应收账款，现在在“输入界面”工作表输入已收金额，能否在“应收未收”表格自动累加“已收”和“未收”的金额，谢谢！

大灰狼1976

1. Sub aaa()
   
2. Dim i&, r&, c&
   
3. If [b8] = "" Then MsgBox "No Data!": Exit Sub
   
4. With Sheets(3)
   
5.   For i = 8 To 14
   
6.     If Cells(i, 2) = "" Then Exit For
   
7.     r = .Columns(1).Find(Cells(i, 2)).Row
   
8.     c = .Rows(3).Find(Left(Cells(i, 5), 2)).Column
   
9.     .Cells(r, c + 1) = Cells(i, 4)
   
10.     .Cells(r, c + 2) = .Cells(r, c) - Cells(i, 4)
    
11.   Next i
    
12. End With
    
13. End Sub

复制代码