拒绝访问 | www.excelpx.com | 百度云加速
请打开cookies.
此网站 (www.excelpx.com) 的管理员禁止了您的访问。原因是您的访问包含了非浏览器特征(3ffdd8c-ua98).
重新安装浏览器，或使用别的浏览器excel怎么使用vba实现箱号换散鞋模板的功能?
互联网 & 08-10 10:31:49 & 作者：佚名 &
excel怎么使用vba实现箱号换散鞋模板的功能？经常需要将整箱的鞋子换成散鞋，该怎么换呢？今天我们就来看看使用excel制作散箱号换散鞋模板的教程，需要的朋友可以参考下
我工作主要是接触整箱的鞋子和散鞋，那么如何将整箱的鞋子换成散鞋，做一个模板方便以后使用呢？主要用到mid以及vlookup函数。了解下鞋子货号的要素，箱号DW16X00010是22位，前13位是货号，13-16位为规格B06，最后6位流水号。06是双装箱。B为起始尺码225，DW16X00010装的是DW16X的6双。
软件名称：MicroExcel(微表格) 3.1.1.2
中文免费安装版软件大小：5.16MB更新时间：
1、箱号是22位，前13位是货号，从箱号取值前13位，取该箱的货号，在右边一格输入=mid（箱号，1,13），取出该箱的货号。
2、箱号的13-16位为规格，取值规格，C06、D06、F10...等，前一位字母代表的是里面装箱的鞋的起始尺码，后面06是装箱的规格，06双装，有的是10双装。输入=mid（箱号，14,3），取值规格。
3、用规格是要从尺码表匹配的起始尺码以及装箱的数量。做好尺码表，尺码表应该有所有规格对应的起始尺码，A06，B06，C06，D06...一一对应的是220，225，230，235，240等。后面两位数字06对应的6双装。
4、匹配的思路是利用规格，先对应尺码，后对应双数。从尺码表匹配前面规格对应的尺码，输入函数=vlookup(规格，06尺码表，第2列，0)，使用规格作为查找值，从尺码表匹配起始尺码。得到起始尺码。
5、得到内装散鞋的货号。合并货号和尺码，得到箱子内装的散鞋的货号，合并第一步的单元格和第四步的单元格，输入=C1&E1,合并单元格。得到里面所装散码的货号。
6、从尺码表匹配装箱的规格，利用函数=vlookup(规格，06尺码表，2，0)，2代表从所求值在数据表的第几列，使用规格作为查找值，数量位于表的第2列。不懂的话，请查下vlookup函数的用法哟。我的规格分了两列方便匹配。
7、公式做好之后，只要将箱号复制到第一列，可以不写箱号后面的1，正常情况下，后面就会出现对应的散鞋，如果没有出现，选中空白区域的上方一行，Ctrl+D填充你的单元格，出现完整的结果。
相关推荐：
大家感兴趣的内容
12345678910
最近更新的内容目前要做一个打印外发加工单的表格，表格中的单据编号希望能用Excel自动生成（用公式或者VBA或控件按钮）_百度知道
目前要做一个打印外发加工单的表格，表格中的单据编号希望能用Excel自动生成（用公式或者VBA或控件按钮）
目前要做一个打印外发加工单的表格，表格中的单据编号希望能用Excel自动生成（用公式或者VBA或控件按钮）
编号的格式如下：
“WXJG”+日期（yymmddHHMM）+四位序号组成
序号不要根据不同的日期自动由”001“开始，年只需要显示两位就可以了，
Sheet2&quot.Range(&quot: Exit Sub
If confirm = 6 Then
With Sheets(&quot, &Wyyyymmdd&Wyyyymmdd&怎么会显示成5yyyymmdd，只要是字母&quot, 5)) + 1, &) & Format(Val(Right(;).Value.Value = Format(DatePrivate Sub Workbook_BeforePrint(Cancel As Boolean)
confirm = MsgBox(&自动更新单据编号？&)W&就会显示为数字&, vbYesNoCancel)
If confirm = 2 Then Cancel = T00000&)
End If这段代码&G5&quot
我有更好的答案
yyyymmdd&quot、.Value = Format(Date, &quot, &00000&quot：.Value = ”W“ & Format(Date, &)变为下面这样就OK了一、需要另外用一个单元格来记录流水序号，程序运行一次, 5)) + 1, &) & Format(Val(Right(；二.VWyyyymmdd&) & Format(Val(Right(.Value, 5)) + 1，该流水序号+1
采纳率：33%
编号的时间取哪个点有几个问题需要你确认，这点你想怎么解决？是打印完每一张跳出一个确认窗口来确认呢？还是打印错了你自己记得去改？ 3：1，编号的最后几位肯定会跳成002、日期变化后，此时如果是第一张打印错误需要重新打印的话，编号就肯定不对了，序号是否重新开始？也就是说今天的编号是XXXXXXXX001-XXXXXXXX008，那么第二天再打印的话是XXXXXXXX009开始编还是XXXXXXXX001开始？比如第一张打印完之后，马上就取当时的时间作为第二张编号还是等到第二张开始打印的时候才开始取当时的时间作为编号？2、如果编号自动生成的话，第一张打完之后
1.等到第二张开始打印的时候才开始取当时的时间作为编号2.打印完每一张跳出一个确认窗口来确认3今天的编号是XXXXXXXX001-XXXXXXXX008，那么第二天再打印的话是要XXXXXXXX009开始
如果你对VBA有所了解，留下邮箱，我发一个大概的给你，代码还是需要根据你的表格样式进行修改的，如果你自己修改有问题，那么把你的表格发给我，我直接帮你做好。你那个代码改一下把，那句改为： .Value = &W& & Format(Date, &yyyymmdd&) & Format(Val(Right(.Value, 5)) + 1, &00000&)
由于EXCEL没有计时器控件，你可能需要设计一个Command控件来实现序号001的累加功能。其它部分还好解决，函数year(),month(),day(),hour(),minute()可以返回当前日期和时间，当然你需要用到NOW（）来调用。以上仅供思路参考。
怎么设计啊，
Sub&Macro1()a&=&Year(Now)b&=&Month(Now)c&=&Day(Date)If&b&&&10&Then&&&&b&=&&0&&&&bEnd&IfIf&c&&&10&Then&&&&c&=&&0&&&&cEnd&Ifno&=&ThisWorkbook.Sheets.Application.ActiveSheet.Index&&&&If&no&&&10&Then&&&&&&&&no&=&&000&&&&no&&&&ElseIf&no&&&100&Then&&&&&&&&no&=&&00&&&&no&&&&End&IfSelection.Value&=&&WXJG&&&&Mid(a,&3,&2)&&&b&&&c&&&Mid(Time,&4,&2)&&&Mid(Time,&7,&2)&+&noEnd&Sub刚学，闹着玩下！别见笑！QQ：
其他1条回答
为您推荐：
其他类似问题
您可能关注的内容
外发加工的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。查看: 2517|回复: 24
[求助]如何实现自动提取单据号？
阅读权限20
在线时间 小时
1。如何实现段单据号的入库？
2。如何自动提取单据号？
详见附件，谢谢帮忙！
(7.83 KB, 下载次数: 18)
11:57 上传
点击文件名下载附件
[求助]如何实现自动提取单据号？
阅读权限20
在线时间 小时
非常感谢龙3老师的关注!也对我的表达不清说声SORRY.
对上张表格进行了些注释和修改,请高手再帮忙看看~谢谢!
目的简要:表单序号的自动注释和更新问题!详细见附件.
(11.49 KB, 下载次数: 24)
13:38 上传
点击文件名下载附件
[求助]如何实现自动提取单据号？
阅读权限20
在线时间 小时
谢谢龙3老师
连在一起确实复杂了,不过也只有这样的关联才能实现它的完整性,我想这需求都写了半天不怪龙3老师说复杂的:)
不过你说的出货单表格太固定?我有点不明白!能否就针对这句解释下,让我理清思路.
阅读权限70
在线时间 小时
Sub sjh()With x
Set x = CreateObject("adodb.connection")
.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;';data source=" & ThisWorkbook.FullNameSql = "insert into [单据汇总$] (字轨,单号,品名, 数量, 规格,单价, 金额, 备注) select '" & Sheet2.[d2] & "','" & Sheet2.[f2] & "',* " & _
from [出货单$a3:f5]" .Execute (Sql)
Sql = " update [单据入库$a1:c800] set 标识='填用' where 字轨=" & Sheet2.[d2] & " and [no#]='" & Sheet2.[f2] & "'".Execute (Sql)Sheet2.[a4:f5].ClearContentsSql = "select top 1 [no#] from [单据入库$a1:c800] where 标识='空'"
Sheet2.[f2].CopyFromRecordset .Execute(Sql)
Set x = Nothing
阅读权限90
在线时间 小时
兄 对数据库的驾驭真是潇洒啊，学习中。
阅读权限20
在线时间 小时
看看人家的SQL学得!佩服!
阅读权限20
在线时间 小时
以下是引用figfig在 15:31:20的发言：
Set x = CreateObject("adodb.connection")
.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;';data source=" & ThisWorkbook.FullName
Sql = "insert into [单据汇总$] (字轨,单号,品名, 数量, 规格,单价, 金额, 备注) select '" & Sheet2.[d2] & "','" & Sheet2.[f2] & "',* " & _
from [出货单$a3:f5]"
.Execute (Sql)
Sql = " update [单据入库$a1:c800] set 标识='填用' where 字轨=" & Sheet2.[d2] & " and [no#]='" & Sheet2.[f2] & "'"
.Execute (Sql)
Sheet2.[a4:f5].ClearContents
Sql = "select top 1 [no#] from [单据入库$a1:c800] where 标识='空'"
Sheet2.[f2].CopyFromRecordset .Execute(Sql)
Set x = Nothing
(13.25 KB, 下载次数: 11)
19:37 上传
点击文件名下载附件
[求助]如何实现自动提取单据号？
请帮忙看看错在哪里?应该怎么改?谢谢
阅读权限20
在线时间 小时
感谢楼上各位老师的帮助!
谢谢龙3,可能我的解释是越描越乱,SORRY!第一表其实就是一张表格1,没有下半部的,下面的表格2只是例子.
谢谢figfig的大力帮助和耐心解答,不过我由于对语言的不熟悉,还有问题存在,请抽空再继续帮忙解答!谢谢
阅读权限70
在线时间 小时
.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & Server.MapPath("/为什么改这个？
阅读权限20
在线时间 小时
document.body.clientWidth*0.5) {this.resized=this.width=document.body.clientWidth*0.5;this.style.cursor='pointer';} else {this.onclick=null}" alt="" />
因为不改出现上面附件的错误提示,我参考了些文章认为是不是我的路径写错了,所以改掉.
(12.07 KB, 下载次数: 1)
19:53 上传
[求助]如何实现自动提取单据号？
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师}