ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 2245|回复: 10

[求助] 新货入库,扫描条形码,自动判断是否已录入并填写至指定单元格

[复制链接]

TA的精华主题

TA的得分主题

发表于 2021-10-25 13:24 | 显示全部楼层 |阅读模式

库存数据内包含已经录入的条形码且唯一

库存数据内包含已经录入的条形码且唯一
库存数据内包含已经录入的条形码且唯一

想要达到的效果:一,在对话框输入条形码,会自行判断此条形码是否已录入,未录入则该条码跳转至C20(之后的 ...

想要达到的效果:一,在对话框输入条形码,会自行判断此条形码是否已录入,未录入则该条码跳转至C20(之后的 ...
想要达到的效果:在对话框输入条形码,会自行判断此条形码是否已录入,未录入则该条码跳转至C20(之后的新条码在C20的下一行录入,以此类推)。如果该条码包含于库存数据的C列,则从C3开始向下输入即可




Sub 条形码扫描()
    On Error Resume Next
    Dim rng As Range
    rng = InputBox("请输入条形码")
    Set rng = Sheets("库存数据").Range("C:C").Find(Sheets("新货入库").[C3], LOOKAT:=xlWhole)
    If rng Is Nothing Then
    For I = 20 To 34
    Sheets("新货入库").Cells(I, 3) = rng
    Next I
    Else
    Sheets("新货入库").Cells(3, 3) = rng
    Exit Sub
    End If
End Sub


这是我借鉴相关代码 自己改的。但达不到我想要的效果。希望高手能指点一下,或者重新写代码,感谢!

TA的精华主题

TA的得分主题

发表于 2021-10-25 16:17 | 显示全部楼层
1,没有附件,爱莫能助,
2、如果该条码包含于库存数据的C列,则从C3开始向下输入即可,这句话实在是没法理解

TA的精华主题

TA的得分主题

 楼主| 发表于 2021-10-25 16:23 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
3190496160 发表于 2021-10-25 16:17
1,没有附件,爱莫能助,
2、如果该条码包含于库存数据的C列,则从C3开始向下输入即可,这句话实在是没法 ...

则从“新货入库”的C3单元格向下逐条输入。。。。。。

TA的精华主题

TA的得分主题

发表于 2021-10-25 16:25 | 显示全部楼层
GG6666 发表于 2021-10-25 16:23
则从“新货入库”的C3单元格向下逐条输入。。。。。。

如果C3及以下单元格原来就有数据呢??也是从C3单元格开始录入??不可能吧

TA的精华主题

TA的得分主题

 楼主| 发表于 2021-10-25 17:22 | 显示全部楼层
3190496160 发表于 2021-10-25 16:25
如果C3及以下单元格原来就有数据呢??也是从C3单元格开始录入??不可能吧

是我表述不清,C3有内容  则直至下一行(空行内)录入

TA的精华主题

TA的得分主题

 楼主| 发表于 2021-10-25 18:00 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
没有高手给咱整一下嘛

TA的精华主题

TA的得分主题

发表于 2021-10-25 19:31 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
GG6666 发表于 2021-10-25 17:22
是我表述不清,C3有内容  则直至下一行(空行内)录入

不是别人不想帮你,而是根不明白你的意思
应该是如果有则不录入吧????

TA的精华主题

TA的得分主题

发表于 2021-10-26 06:19 来自手机 | 显示全部楼层
没有数据库条码的扫入c20后面的空行,在数据库内的条码扫入c3后到c19之间的空行。这个字典可以处理,但时间多了,数据库条码多了怎么办

TA的精华主题

TA的得分主题

 楼主| 发表于 2021-10-26 06:35 来自手机 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
shiruiqiang 发表于 2021-10-26 06:19
没有数据库条码的扫入c20后面的空行,在数据库内的条码扫入c3后到c19之间的空行。这个字典可以处理,但时间 ...

旁边的数据传递可以将数据转到下面的单元格,这个问题可以不做考虑

TA的精华主题

TA的得分主题

发表于 2021-10-26 07:36 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
新定义i,x
i=Sheets("新货入库").range("c36").end(xlup).row
x=Sheets("新货入库").range("c19").end(xlup).row
If rng Is Nothing Then
    Sheets("新货入库").Cells(I, 3) = rng
    Else
    Sheets("新货入库").Cells(x, 3) = rng
endif
新手的思路
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-3-29 13:11 , Processed in 0.048166 second(s), 9 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表