存书和出单都大同小异,一般在填写相关数据后打印出来,然后将圆圈引用到其他表中存档。

入库单


保存效果


10年前我就是做这个工作的,那时我的出入库单到此都是合并单元格,需要分好多次复制才能将数据保存到另外的工作表。每天大概花半小时在复制粘贴。


后来,就用VBA一键生成。今天,学员这个问题,对当年的代码略作修改就可以用。


现在我已经录入好数据,看看VBA的效果。控件是调整入库单号用的,打印并保存的按钮是执行打印和保存的工作的,因为我电脑现在没有连接打印机,打印的代码被我禁用了。


这一步平常一定要做,月底统计和对账会用到。

财务工作中,你是否遇到焦头烂额不知如何解决的问题呢?

(此处已添加小程序,请到今日头条客户端查看)

绿色字体部分是用来打印的,如果需要打印就前面的单引号去掉就可以。


Option Explicit

Sub 保存并打印001()

Dim i&, j&, k&, sh As Worksheet

Set sh = Sheets("主材入库单")

i = 7

Do While (i, "C") <> ""

i = i + 1

j = j + 1

Loop

With Sheets("历史数据保存")

k = .U + 1

.Columns(1).NumberFormatLocal = "yyyy/mm/dd"

.Cells(k, 1).Resize(j, 1) = Date

.Cells(k, 2).Resize(j, 1) = ("i2")

.Cells(k, 3).Resize(j, 9) = ("c7:K" & i).Value

End With

'MsgBox "确认打印,并保存!"

'

End Sub

来源:Excel不加班

这里相信有许多想要学习会计的同学,大家可以关注小编头条号,

下方评论区留言:想要学习,并收藏本文;私信小编:学习

即可领取一整套系统的会计学习资料!还可以免费试学会计课程15天!

因领取人数太多,不能及时回复,请大家耐心等待。。。。

1.《打印机出库单怎么打印?终于找到答案了超好用!入库单、出库单全自动引用》援引自互联网,旨在传递更多网络信息知识,仅代表作者本人观点,与本网站无关,侵删请联系页脚下方联系方式。

2.《打印机出库单怎么打印?终于找到答案了超好用!入库单、出库单全自动引用》仅供读者参考,本网站未对该内容进行证实,对其原创性、真实性、完整性、及时性不作任何保证。

3.文章转载时请保留本站内容来源地址,https://www.lu-xu.com/why/2992880.html