制作“入库提交”和“出库”提交按钮,可以实现自动记帐,大大提高办公效率。下面就请跟随小编一起来实际操作一次吧。
工具/原料
EXCEL2007
EXCEL附带的visualbasic
方法/步骤
1、画按钮:打开我们前面设计的“入库单”表。依次点击“开发工具”选项卡/控件/插入/表单控件,选择“按钮”控件。
2、设置按钮格式:在“入库单”表中逻晶诚湮任意位置,画出按钮控件。如图。右键点击按钮,将按钮文字更改为“入库提交”或“入库记帐”。再次右键点击按钮,在设置控件格式中,将字体字号、文字颜色等设置为自己喜爱的样式。
3、插入模块:点击开发工具/代码/visualbasic,(或者AIT+F11)弹出VB编辑窗口。点击VB编辑器中的插入,选择模块点击,会出现一个新的模块。
4、编写代码:在代码编辑窗口写入如下代码Sub入库提交()DimaAsLo艘绒庳焰nga=IIf(Sheets("淀尬逄攻入库单").[P14]="",Sheets("入库单").[P14].End(xlUp).Row,14)Range("C5:W"&a).SelectSelection.Copy'Sheets("数据库").Visible=True'显示数据库表DimbAsLongb=Sheets("数据库").[B65536].End(xlUp).Row+1Sheets("数据库").SelectSheets("数据库").Cells(b,1).SelectSelection.PasteSpecialPaste:=xlPasteValues,Operation:=xlNone,SkipBlanks_:=False,Transpose:=False'ActiveWindow.SelectedSheets.Visible=False'隐藏数据库表DimcAsLongSheets("入库单").SelectRange("P5:P14")=""EndSub
5、指定“入库提交”宏:在入库单中,右击入库提交按钮,点击指定宏,在宏列表中选取“入库提交”,确定。
6、出库提交按钮的制作步骤跤耧锿葡与上面完全一样。只是代码略有不同。Sub出库提交()DimaAsLonga=IIf(She髫潋啜缅ets("出库单").[U14]="",Sheets("出库单").[U14].End(xlUp).Row,14)Range("C5:W"&a).SelectSelection.CopySheets("数据库").Visible=True'显示数据库表DimbAsLongb=Sheets("数据库").[a65536].End(xlUp).Row+1Sheets("数据库").SelectSheets("数据库").Cells(b,1).SelectSelection.PasteSpecialPaste:=xlPasteValues,Operation:=xlNone,SkipBlanks_:=False,Transpose:=False'ActiveWindow.SelectedSheets.Visible=False'隐藏数据库表Sheets("出库单").SelectEndSub
7、指定“出库提交”宏:在出库单中,右击出库提交按钮,点击指定宏,在宏列表中选取“出库提交”,确定。
8、代码测试:分别在入库单、出库单中录入数据,点击“入库提交”、“出库提交”按钮,系统会自动找到数据库中A列最后一行,并将单据信息对应数据库中的字段逐行写入。