新葡萄京官网8814-澳门新浦京8814com

产品展示

Products Classification

Excel批量填写表单 一段全自动的VBA代码送给你 需要的收藏|亚美体育app下载

  • 产品时间:2021-11-21 11:08
  • 价       格:

简要描述:先来看看要解决的问题如图1,在一张Excel事情表中,生存了许多订单信息。图1 订单信息数据明细同时另有一张生存发货单模板的事情表,如图2。图2 发货单模板现需要将图1事情表中每条订单信息填到图2发货单模板中,保将效果生存为差别的事情簿,文件以订单编号信息命名,如图3。 图3 希翼获得的发货单事情簿看看用VBA怎么解决这个问题步骤一:按Alt+F11打开VBE窗口步骤二:在新打开窗口左侧的【工程】窗口空缺处单击鼠标右键,实行【插入】 →【模块】下令,如图4。...

详细先容
本文摘要:先来看看要解决的问题如图1,在一张Excel事情表中,生存了许多订单信息。图1 订单信息数据明细同时另有一张生存发货单模板的事情表,如图2。图2 发货单模板现需要将图1事情表中每条订单信息填到图2发货单模板中,保将效果生存为差别的事情簿,文件以订单编号信息命名,如图3。 图3 希翼获得的发货单事情簿看看用VBA怎么解决这个问题步骤一:按Alt+F11打开VBE窗口步骤二:在新打开窗口左侧的【工程】窗口空缺处单击鼠标右键,实行【插入】 →【模块】下令,如图4。

亚美am8ag

先来看看要解决的问题如图1,在一张Excel事情表中,生存了许多订单信息。图1 订单信息数据明细同时另有一张生存发货单模板的事情表,如图2。图2 发货单模板现需要将图1事情表中每条订单信息填到图2发货单模板中,保将效果生存为差别的事情簿,文件以订单编号信息命名,如图3。

图3 希翼获得的发货单事情簿看看用VBA怎么解决这个问题步骤一:按<Alt+F11>打开VBE窗口步骤二:在新打开窗口左侧的【工程】窗口空缺处单击鼠标右键,实行【插入】 →【模块】下令,如图4。图4 插入模块步骤三:双击插入的模块,在右侧【代码窗口】中输入下面的代码,如图5.Sub 填写信息() Dim Irow As Long, sht As Worksheet, t As Worksheet, Rng As Range, ToFolder As String, i As Long, Inow Set sht = Worksheets("数据明细") Irow = sht.Range("A1").CurrentRegion.Rows.Count Set t = Worksheets("发货单") ToFolder = ThisWorkbook.Path & "" Application.ScreenUpdating = False Application.DisplayAlerts = False Set Rng = Union(t.[B3], t.[D3], t.[F3], t.[B5:B6], t.[D5:D6], t.[F5:F6], t.[B8], t.[D8], t.[F8]) For i = 2 To Irow Rng.Value = "" t.[B3].Value = sht.Cells(i, "A").Value t.[D3].Value = sht.Cells(i, "B").Value t.[F3].Value = "'" & sht.Cells(i, "C").Value t.[B5].Value = "'" & sht.Cells(i, "D").Value t.[B6].Value = "'" & sht.Cells(i, "G").Value t.[D5].Value = sht.Cells(i, "E").Value t.[D6].Value = sht.Cells(i, "H").Value t.[F5].Value = "'" & sht.Cells(i, "F").Value t.[F6].Value = sht.Cells(i, "I").Value t.[B8].Value = sht.Cells(i, "J").Value t.[D8].Value = "'" & sht.Cells(i, "K").Value t.[F8].Value = sht.Cells(i, "L").Value t.Cells.EntireColumn.AutoFit t.Copy ActiveSheet.Name = sht.Cells(i, "D").Value ActiveWorkbook.SaveAs ToFolder & sht.Cells(i, "D").Value & ".xlsx" ActiveWorkbook.Close Next Rng.Value = "" Application.DisplayAlerts = False Application.ScreenUpdating = True MsgBox "操作完成,单击【确定】按钮检察效果。", vbInformation Shell "explorer.exe " & ToFolder, vbNormalFocusEnd Sub图5 写入的VBA代码步骤四:单击工具栏中的实行历程按钮,实行代码,就可以在文件夹中检察填写所得的事情簿文件了。

图6 实行写入的代码详细操作历程见视频演示:https://www.ixigua.com/i6798507687106576904/我是叶枫,关注我,带你学更多的Excel技巧。


本文关键词:Excel,批量,填写,表单,一段,全自动,的,VBA,代码,亚美体育app下载

本文来源:亚美体育app下载-www.cnshvalve.com

 


产品咨询

留言框

  • 产品:

  • 留言内容:

  • 您的单位:

  • 您的姓名:

  • 联系电话:

  • 常用邮箱:

  • 详细地址:


推荐产品

Copyright © 2008-2021 www.cnshvalve.com. 亚美体育app下载科技 版权所有 备案号

在线客服 联系方式 二维码

咨询在线客服

服务热线

0692-50003206

扫一扫,关注大家

新葡萄京官网8814|澳门新浦京8814com

XML 地图 | Sitemap 地图