我有一个excel表格，里面有很多数据，我想通过扫描条形码后自动查找到excel中与扫描到的数据相同的数据。

Question

就是条形码扫描出的数据与excel里面的数据，只要相同就会自动跳到excel中相同数据的单元格哪里，大侠请问VBA语句应该怎么写呢？谢谢

Answer 1

我真的很像帮助你
但是这个真的不需要VBA来解决
使用查找功能Ctrl+F，然后扫描条码就可以了
但是，条码扫描枪最好进行一下设置，将末尾添加回车符
就可以搜索了，否则要手动按回车
希望能够帮到你
有问题再问吧追问

你好，谢谢你的帮助，我还有一个问题想问一下，如果说我条码扫进去的数值是14位，我只想要前11位的数值来进行查找，因为我的excel里面的数据只是条码的前11为，这样可以以实现吗？
要怎样实现呢？

追答

如果你一定要VBA，那就给你一段吧
Sub find_text()
find_content = InputBox("请输入扫描内容")
For Each sheets_search In ThisWorkbook.Worksheets
If Not sheets_search.Cells.Find(Left(find_content, 11)) Is Nothing Then
sheets_search.Activate
Cells.Find(what:=Left(find_content, 11), After:=ActiveCell).Activate
Exit Sub
End If
Next
End Sub

Answer 2

qq群