假设有条码,格式为两位字母加六位数字 例如AC234205,JD786805.(最后两位为数量)我想通过扫描,把AC列成一行 JD列成一行 如 第一行AC 5 .第二行JD 15如果字母组合扫过了 就继续往上加数量 如果有新
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/24 09:35:53
![假设有条码,格式为两位字母加六位数字 例如AC234205,JD786805.(最后两位为数量)我想通过扫描,把AC列成一行 JD列成一行 如 第一行AC 5 .第二行JD 15如果字母组合扫过了 就继续往上加数量 如果有新](/uploads/image/z/14652004-4-4.jpg?t=%E5%81%87%E8%AE%BE%E6%9C%89%E6%9D%A1%E7%A0%81%2C%E6%A0%BC%E5%BC%8F%E4%B8%BA%E4%B8%A4%E4%BD%8D%E5%AD%97%E6%AF%8D%E5%8A%A0%E5%85%AD%E4%BD%8D%E6%95%B0%E5%AD%97+%E4%BE%8B%E5%A6%82AC234205%2CJD786805.%28%E6%9C%80%E5%90%8E%E4%B8%A4%E4%BD%8D%E4%B8%BA%E6%95%B0%E9%87%8F%29%E6%88%91%E6%83%B3%E9%80%9A%E8%BF%87%E6%89%AB%E6%8F%8F%2C%E6%8A%8AAC%E5%88%97%E6%88%90%E4%B8%80%E8%A1%8C+JD%E5%88%97%E6%88%90%E4%B8%80%E8%A1%8C+%E5%A6%82+%E7%AC%AC%E4%B8%80%E8%A1%8CAC+5+.%E7%AC%AC%E4%BA%8C%E8%A1%8CJD+15%E5%A6%82%E6%9E%9C%E5%AD%97%E6%AF%8D%E7%BB%84%E5%90%88%E6%89%AB%E8%BF%87%E4%BA%86+%E5%B0%B1%E7%BB%A7%E7%BB%AD%E5%BE%80%E4%B8%8A%E5%8A%A0%E6%95%B0%E9%87%8F+%E5%A6%82%E6%9E%9C%E6%9C%89%E6%96%B0)
假设有条码,格式为两位字母加六位数字 例如AC234205,JD786805.(最后两位为数量)我想通过扫描,把AC列成一行 JD列成一行 如 第一行AC 5 .第二行JD 15如果字母组合扫过了 就继续往上加数量 如果有新
假设有条码,格式为两位字母加六位数字 例如AC234205,JD786805.(最后两位为数量)我想通过扫描,把AC列成一行 JD列成一行 如 第一行AC 5 .第二行JD 15
如果字母组合扫过了 就继续往上加数量 如果有新的字母组合就生成新的一行
假设有条码,格式为两位字母加六位数字 例如AC234205,JD786805.(最后两位为数量)我想通过扫描,把AC列成一行 JD列成一行 如 第一行AC 5 .第二行JD 15如果字母组合扫过了 就继续往上加数量 如果有新
假设你所有的商品代码都在EXCEL的第一个表的第一列里
那下面的代码可以把第2列填充成你想要的数据
dim i as long
dim s as string
dim s1 as string
dim s2 as string
i=1
dim j as long
s=trim(sheet1.cells(i,1) & "")
while not (s="" )
s2=left(s,2)
j=1
s3=trim(sheet1.cells(j,2) & "")
while not( s3="" ) and not( left(s3,2)=s2)
j=j+1
s3=trim(sheet1.cells(j,2) & "")
wend
if s3="" then
sheet1.cells(j,2)=s2 & " " & right(s,2)
else
sheet1.cells(j,2)=s2 & " " & int( val(right(s,2))+val(right(s3,2)))
endif
i=i+1
s=sheet1.cells(i,1) & ""
wend
头一次代码有错误,现在修改过