根据登记表自动生成出入库单，请大神帮忙修改下

徐萌鲜

200元请咱们论坛里面鄂龙蒙老师帮忙给做的一个根据日常登记表自动生成出入库单的VBA。但是没有真正实现要求的功能，鄂龙蒙老师在修改两次之后依然没有实现要求的功能，就不再提供售后服务了。现在这个表格没法使用，求助论坛的老师们帮忙在这个基础上修改一下程序，实现如下操作：
一、根据日常登记表里面的内容
      １、如果登记表中“送货单日期”=“同一天” and “供货单位”＝“同一个”（即同一天内同一个供货商的送货记录），那么，就根据同一天和同一个供货单位的送货登记，分别自动提取相应内容生成这个供货单位这一天的送货单。
　　　　　生成的送货单的内容和登记表内容一模一样，不做任何修。
                 生成的送货单的产品名称根据登记表中产品名称文字的多少自动换行，自动调整单元格大小
生成的每个送货单，产品名称最多填入12行，超过12行的，自动生成下一个送货单，填入剩余的产品名称
　　　　　生成的入库单编号＝ＲＫ＋送货单日期
　　　　　生成的入库单金额合计（大写）＝金额合计的中国汉字
　　　　　入库单样式见附件图片。
              

自动生成的入库单样式

　　２、如果登记表中“送货单日期”=　同一天 and　“供货单位”＝　同一个，（即同一天内同一个供货商的送货记录），那么，就根据同一天和同一个供货单位的送货登记，分别自动提取相应内容生成这个供货单位这一天的出库单。
　　　　　生成的出库单的单价是登记表中供货单价×1.15，其他内容不变
                 生成的出库单的产品名称，根据登记表中产品名称文字的多少自动换行，自动调整单元格大小
　　　　　生成的出库单编号＝CＫ＋送货单日期
　　　　　生成的出库单金额合计（大写）＝金额合计数字转换成中国汉字
　　　　　出库单样式见附件图片。
           

自动生成的出库单

     



        3、 窗口功能实现，选择日期、选择供应商、然后点击生成出入库单按钮，生成出入库单。再根据需要，选择打印出库单，或打印入库单，或出入库单同时打印。还有一个按照年月，区分供应商和日期，一次性打印出入库单
            

窗口功能

excelhomecoming

对啊，搞别人的比自己搞还麻烦