用excel怎样实现收据功能

lhsh · 发表于 2003-10-20 20:19

以下是引用昴日星君在2003-10-19 20:55:00的发言：
别客气, 若你修改得更完善了请告诉我一声.
共同学习才能共同进步.

看这个可以吗

LpgjLq1z.rar (13.07 KB, 下载次数: 177) [em06]

lhsh · 发表于 2003-10-20 20:21

请指导[em06]

昴日星君 · 发表于 2003-10-22 15:43

呵~ 是学校的收据. 还未设置打印区域?

lhsh · 发表于 2003-10-22 19:50

对[em06]

lhsh · 发表于 2003-10-24 13:45

以下是引用昴日星君在2003-10-19 20:55:00的发言：
别客气, 若你修改得更完善了请告诉我一声.
共同学习才能共同进步.

能不能打印一份收据，把数据记录入另一个工作表[em06]

逗人 · 发表于 2003-11-12 20:19

昴日星君:
可否打印完，自动把其内容保存在另一工作表。
如打印完Sheet1的001号，其Sheet1的001号内容保存在Sheet2；打印完Sheet1的002号，其Sheet1的001号内容保存在Sheet3……

昴日星君 · 发表于 2003-11-18 16:19

这个由你来完成吧~ 好吗?

因为我每一张收据都需打印出来, 而且留下存根, 所以不需要复制到另一个表中.

逗人 · 发表于 2003-11-24 20:55

用别人的东西改给写一下，增加一个宏的控件
Sub 增加一页()
ActiveSheet.Copy after:=ActiveSheet
ActiveSheet.Shapes("Button 1").Delete
Rown1 = ActiveSheet.Range("B65536").End(xlUp).Row
pagen = rown2
For Rowh = rown2 + 2 To 21 Step -20
With Rows(Rowh)
End With
Next Rowh
End Sub
请指教

[此贴子已经被作者于2003-11-24 20:55:26编辑过]

昴日星君 · 发表于 2003-11-26 10:13

提议: 如果这样, 收据开多了, 工作表也多了, 存根查找就很不方便, 可以改为在另外一个表中的一行中按号码顺序记录该收据的资料吗?

honghai · 发表于 2003-11-26 11:24

如果再加上VBA，你可以制作一个输入界面，打印开票的同时，将数据保留下来，形成一个数据库，一举两得。

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

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