按照销售回款周期进行考核结算

zminjun

大家好
      公司需要对销售回款情况进行考核结算，但条数较多，计算较麻烦，能否帮助设计一个小程序，谢谢。
     下面是其中一部分内容：

开票单位	开票日期	开票金额	销售员	产品类别	扣款金额
AHCHZ	2014-5-17	130400	邓枫	空调
AHCHZ	2014-2-17	98560	邓枫	微波炉
AHYSM	2014-4-2	25100	蔡彬	电扇
BJALW	2014-5-4	9087	上官琳	电扇
BJBDJ	2013-3-15	62400	钱荣华	加热器
BJDFT	2014-5-10	9072	上官琳	电扇
BJGD(11/	2011-4-10	18000	钱荣华	微波炉
BJGD(2/8	2013-12-18	216233	钱荣华	空调
BJGD(CC	2012-9-24	6100	钱荣华	微波炉
BJGDJ（7	2013-9-9	249020	钱荣华	空调
BJJH(FL	2014-4-4	6500	蔡彬	电扇
BJJH(DF	2014-5-20	11848	蔡彬	电扇
结算的基准日期为2014-6-10
结算允许周期：空调  90天     电扇 60天   加热器 60天   微波炉 75天
在结算允许周期内不扣款
超过周期：按每天万分之零点六计算扣款。

销售回款考核.rar (7.79 KB, 下载次数: 37)

2014-6-14 17:05 上传

点击文件名下载附件

chxw68

1. Sub test()
   
2.   Dim d As New Dictionary
   
3.   Dim r%, i%
   
4.   Dim arr
   
5.   d("空调") = 90
   
6.   d("电扇") = 60
   
7.   d("加湿器") = 60
   
8.   d("微波炉") = 75
   
9.   With Worksheets("sheet1")
   
10.     r = .Range("a1").End(xlDown).Row
    
11.     arr = .Range("a2:f" & r)
    
12.     For i = 1 To UBound(arr)
    
13.       If d.Exists(arr(i, 5)) Then
    
14.         n = DateDiff("d", arr(i, 2), DateSerial(2014, 6, 10))
    
15.         If n < d(arr(i, 5)) Then
    
16.           arr(i, 6) = Round((d(arr(i, 5)) - n) * arr(i, 2) * 0.00006, 2)
    
17.         End If
    
18.       End If
    
19.     Next
    
20.     .Range("f2").Resize(UBound(arr), 1) = Application.Index(arr, 0, 6)
    
21.   End With
    
22. End Sub
    

复制代码

chxw68

搅到楼主表述的关系中了，结果不一定正确。

坚守

1. 是否是这样？

复制代码

zminjun

真的非常感谢各位

442758828

chxw68 发表于 2014-6-14 18:29
搅到楼主表述的关系中了，结果不一定正确。

能不能请楼主，帮我这个表格设置个宏！谢谢！