用excel怎样实现收据功能

hneea · 发表于 2012-2-1 20:25

学习中，能用啊

心世界 · 发表于 2011-12-6 23:42

太感谢了，好用

清泉水 · 发表于 2012-1-10 11:04

太好了,需好好学习,天天向上!

lhsh · 发表于 2012-1-10 14:52

我这里有一段代码你们修改修改用吧

lhsh · 发表于 2012-1-10 14:53

Sub 按钮15_单击()
Dim arr
Dim i%
Sheet2.Select '数据表
arr = Range(Cells(2, 1), Cells(65536, 5)) '数据区域
Sheet1.Select '打印表
A = Cells(1, 13) '起始页M1
b = Cells(2, 13) '终止页M2
For i = A To b '设定打印起止页
Sheets("sheet1").Unprotect Password:=123 '解除保护
Cells(3, 10) = arr(i, 2)
Cells(4, 2) = arr(i, 1)
Cells(4, 6) = arr(i, 3)
Cells(5, 3) = arr(i, 4)
Cells(5, 9) = arr(i, 5)
ActiveSheet.PageSetup.PrintArea = "$A$1:$J$24" '设定打印区域
Sheets("Sheet1").PrintOut Copies:=1 '进行打印
Cells(3, 13) = Format(Cells(3, 13) + 1, "000000") '编码
Cells(6, 3) = "NO:YJ" & Cells(3, 13) '编码
Sheets("sheet1").Protect Password:=123 '增加保护
Next
End Sub

fu123 · 发表于 2012-7-10 11:11

太好了,需好好学习,天天向上

fu123 · 发表于 2012-7-3 09:38

太好了,需好好学习,天天向上

PALMT · 发表于 2013-8-30 20:18

昴日星君发表于 2003-10-19 18:20

好厉害呀，下载收藏了

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

[讨论] 用excel怎样实现收据功能