跟我制作简易仓库系统:[5]入库出库自动记帐

制作“ 入库提交”和“出库”提交按钮,可以实现自动记帐,大大提高办公效率。下面就请跟随小编一起来实际操作一次吧。

操作方法

  • 01

    画按钮: 打开我们前面设计的“入库单”表。依次点击“开发工具”选项卡/控件/插入/表单控件,选择“按钮”控件。

  • 02

    设置按钮格式: 在“入库单”表中任意位置,画出按钮控件。如图。右键点击按钮,将按钮文字更改为“入库提交”或“入库记帐”。再次右键点击按钮,在设置控件格式中,将字体字号、文字颜色等设置为自己喜爱的样式。

  • 03

    插入模块:点击开发工具/代码/visual basic,(或者AIT+F11)弹出VB编辑窗口。点击VB编辑器中的插入,选择模块点击,会出现一个新的模块。

  • 04

    编写代码:在代码编辑窗口写入如下代码 Sub 入库提交() Dim a As Long    a = IIf(Sheets("入库单").[P14] = "", Sheets("入库单").[P14].End(xlUp).Row, 14)      Range("C5:W" & a).Select      Selection.Copy      'Sheets("数据库").Visible = True '显示数据库表 Dim b As Long    b = Sheets("数据库").[B65536].End(xlUp).Row + 1    Sheets("数据库").Select    Sheets("数据库").Cells(b, 1).Select    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _        :=False, Transpose:=False    'ActiveWindow.SelectedSheets.Visible = False '隐藏数据库表    Dim c As Long    Sheets("入库单").Select     Range("P5:P14") = "" End Sub

  • 05

    指定“入库提交”宏: 在入库单中,右击入库提交按钮,点击指定宏,在宏列表中选取“入库提交”,确定。

  • 06

    出库提交按钮的制作步骤与上面完全一样。只是代码略有不同。 Sub 出库提交() Dim a As Long    a = IIf(Sheets("出库单").[U14] = "", Sheets("出库单").[U14].End(xlUp).Row, 14)      Range("C5:W" & a).Select      Selection.Copy      Sheets("数据库").Visible = True '显示数据库表 Dim b As Long    b = Sheets("数据库").[a65536].End(xlUp).Row + 1    Sheets("数据库").Select    Sheets("数据库").Cells(b, 1).Select    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _        :=False, Transpose:=False   ' ActiveWindow.SelectedSheets.Visible = False '隐藏数据库表    Sheets("出库单").Select End Sub

  • 07

    指定“出库提交”宏: 在出库单中,右击出库提交按钮,点击指定宏,在宏列表中选取“出库提交”,确定。

  • 08

    代码测试: 分别在入库单、出库单中录入数据,点击“入库提交”、“出库提交”按钮,系统会自动找到数据库中A列最后一行,并将单据信息对应数据库中的字段逐行写入。

(0)

相关推荐

  • 跟我制作简易仓库系统:[6]动态进出存帐

    操作方法 01 动态月份设计 因为后面要A1中放置返回主页按钮,所以在A2单元格填写帐表所属的月份. 为了让进出存帐表动态地计算各月的入库.出库数据,必须将A2的格式设置为日期,按年4位月2位显示,如 ...

  • 跟我制作简易EXCEL仓库系统:[3]出库单的设计

    日常工作中经常会制表一些出库表格单,怎么制作好看又实用呢,下面以EXCEL2013为例 操作方法 01 在第一行输入标题:XX公司销售出库单:在第二行输入:单据编号及出库日期 02 输入出库单内容(例 ...

  • 跟我制作简易EXCEL仓库系统:[4]数据库表

    数据库表在仓库系统中的作用是:存储入库.出库单据信息.是进出存等表格或查询的数据源. 操作方法 01 在工作簿表标签栏,点击插入新工作表按钮,或者按快捷键shift加F11,EXCEL将自动增加一个新 ...

  • 跟我制作简易EXCEL仓库系统:[2]入库单的设计

    本例中入.出库单 的功能有两个:一是仓库部门在办理入库.出库时打印单据.二是可以按其他部门已经打印的单据录入数据. 操作方法 01 入库单的设计: 建立表"入库单",为了便于数据处 ...

  • 如何用EXCEL制作简易库存表

    EXCEL是常用的表格软件,使用其制表,可以使用公式快速统计,非常方便.经常有人想用此来制作简易库存表,但不知怎样设计比较合理,本篇作一简要介绍,并给出相关公式及其它一些界面操作方法. 操作方法 01 ...

  • 用PS软件怎么制作简易透明logo

    今天给大家介绍一下用PS软件怎么制作简易透明logo的具体操作步骤.1. 首先打开电脑上的ps软件,进入主页面后,依次点击左下角的文件---新建选项.2. 然后根据自己的需要,选择创建画布的大小,然后 ...

  • 如何制作简易游戏脚本,解放你的双手。

    我们玩游戏的时候经常会遇到需要刷刷金币的情况,操作单调,又需要反复几十次甚至上百次,十分劳时劳力,怎么办呢?我们这就用一款叫做触摸精灵的软件,制作简易游戏脚本来释放你的双手,让手机自己动起来. 操作方 ...

  • excel表格怎么制作简单的出库表?

    出库表是物流行业经常需要用到的,一般系统可以直接在过账后打印出库表,但是由于这种情况打印明细过于相信,可能耗时长并且打印慢,来不及.那么excel如何制作简版出库表呢? 表格的模板可以采取我这种形式. ...

  • 怎么在PR软件中制作简易漫画效果

    PR即Premiere,是一款常用的视频编辑软件,今天给大家介绍一下怎么在PR软件中制作简易漫画效果的具体操作步骤.1首先打开电脑上的pr软件,进入主页面后,选择新建一个项目.2然后将想要添加漫画效果 ...