刚做的报价单和合同、采购单生成小程序

iamtheman · 发表于 2012-4-7 18:20

好东西，给点个人建议：
1、增加数据存储功能；
2、增加产品的明细情况
3、增加客户的数据自动引用功能
4、生成合同的那个语句可以简化

总之这个想法很棒，我也在做这样的一个系统，正在找思路

明水蔷薇 · 发表于 2012-11-19 18:57

非常感谢，学习一下

ae9480 · 发表于 2012-11-20 17:23

应该先有一个数据库，再生成其他的

fu123 · 发表于 2012-11-26 08:58

很好，学习一下

lzqlaj · 发表于 2012-11-26 10:46

可以优化代码。例如
Sub 生成合同()
Application.ScreenUpdating = False
Sheets("购销合同").Range("E4") = Sheets("产品报价单").Range("J5")
Sheets("购销合同").Range("D6") = Sheets("产品报价单").Range("C6")
Sheets("购销合同").Range("H32") = Sheets("产品报价单").Range("C6")
Sheets("购销合同").Range("H34") = Sheets("产品报价单").Range("C7")
Sheets("购销合同").Range("H35") = Sheets("产品报价单").Range("I6")
Sheets("购销合同").Range("H36") = Sheets("产品报价单").Range("I7")
Sheets("产品报价单").Range("A10:I20").Copy Sheets("购销合同").Range("B10")
Sheets("产品报价单").Range("K10:K20").Copy Sheets("购销合同").Range("K10")
Sheets("购销合同").Select
Application.ScreenUpdating = True
End Sub

zhuchong89 · 发表于 2012-11-27 16:34

谢谢分享,学习了

329425335 · 发表于 2012-12-4 09:57

楼主有没有在啊。能否加个QQ请教一点问题

h_dlsrk · 发表于 2012-12-29 14:50

{:soso_e179:}{:soso_e182:}

hnnyfcykl · 发表于 2012-12-27 13:44

谢谢分享，下载下来学习

xxxer383 · 发表于 2013-3-28 09:06

谢谢楼主..........

		自动登录	找回密码
密码			免费注册