本篇经验将和大家分享【在VBA中，如何编写入库单开单之代码？】

工具/原料

  • 电脑壹台
  • OFFICE办公软件

方法/步骤

  1. 1

    实例：【编写开单代码，运行后清除物料明细和供应商，同时入库单号改变？】

  2. 2

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

  3. 3

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

  4. 4

    会弹出模块编辑窗口！

  5. 5

    在代码编辑窗口输入以下代码：

    Sub 开单()

    Dim edc As Range

    [b2] = "TH" & Format(Now(), "ymdhms")

    Set edc = Cells.Find("*", , xlValues, , xlByRows, xlPrevious)

    Range([a5], edc.Offset(6)).Clear

    [e2] = ""

    End Sub

  6. 6

    在工作表界面，【开发工具】菜单下，点击【插入】按钮，填加一表单，与开单代码相关联，并命名为【开单】！

  7. 7

    点击【开单】按钮！物料明细、供应商被清除，入库单号改变了！

    END
经验内容仅供参考，如果您需解决具体问题(尤其法律、医学等领域)，建议您详细咨询相关领域专业人士。