怎样在excel中制作自动获取数据的出库单

1、如图所示，根据sheet2工作表中的出库明细表在sheet1中自动开具出库单！

2、在工作表中，点击菜单栏【开发工具】，在其工具栏内，点击【visual basic】!

3、会进入VBA编辑界面！点击菜单栏【插入】，在其下拉菜单中，选择【模块】！

4、会弹出模块编辑窗口！

5、在模块窗口输入以下代码：

Sub 开单()

Sheet1.Range("a4:g9").ClearContents

Set Rng = Sheet2.Cells(Rows.Count, "h").End(xlUp)

Set rngs = Sheet2.Cells(Rows.Count, 2).End(xlUp)

Rng.Offset(1, -6).Resize(6, 6).Copy

Sheet1.[a4].PasteSpecial 12

Application.CutCopyMode = True

Rng.Offset(1, 0).Resize(6, 1) = "√"

Sheet2.Range("h" & rngs.Row + 1 & ":h100").ClearContents

End Sub

6、点击【开发工具】工具栏中的【插入】按钮，插入一表单控件！命名为【开单】

7、【开单】控件与编写的代码相关联。

8、点击【开单】按钮，就会自动开单了！已经开单的数据用“√”标注，以防重复开单！