使用绑定搜索excel中的数字

因此，我对这种代码编写非常陌生，我试图在excel表格中搜索从条形码输入的数字，并在一行中找到，然后选择另一行输入我的现有数量条形码在g行，我想在F行结束。这是我拥有的，它不起作用。请注意，这是我第一次尝试编写代码

Sub Barcodesearch()
'
' Barcodesearch Macro
'
' Keyboard Shortcut: Ctrl+Shift+B
'
    Range("G3:G344").Select
    Selection.Find What:= (Inputbox "Please scan a barcode and hit enter if needed"), After:=ActiveCell, LookIn:= _
        xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
        xlNext, MatchCase:=False, SearchFormat:=False).Activate
    Range("F").Offset (0, 2)
End Sub

---

您需要处理不匹配的情况：

子条码搜索（）
尺寸bc，f为范围，ws为工作表
设置ws=ActiveSheet
bc=修剪（输入框（“请扫描条形码并在需要时按enter键”））
如果Len（bc）=0，则退出子项“未进行输入”
设置f=ws.Range（“G3:G344”）.Find（What:=bc，LookIn:=xlFormulas_
LookAt:=xlother，MatchCase:=False）
如果不是的话，那么f什么都不是
f、 偏移量（0，-1）。选择“已匹配”
其他的
MsgBox“条形码”&bc&“未找到”'不匹配
如果结束
端接头

您需要处理不匹配的情况：

子条码搜索（）
尺寸bc，f为范围，ws为工作表
设置ws=ActiveSheet
bc=修剪（输入框（“请扫描条形码并在需要时按enter键”））
如果Len（bc）=0，则退出子项“未进行输入”
设置f=ws.Range（“G3:G344”）.Find（What:=bc，LookIn:=xlFormulas_
LookAt:=xlother，MatchCase:=False）
如果不是的话，那么f什么都不是
f、 偏移量（0，-1）。选择“已匹配”
其他的
MsgBox“条形码”&bc&“未找到”'不匹配
如果结束
端接头

在执行

之前，最好先检查输入框是否被拒绝。查找
。像检查
如果不是bc=“”，那么
@cabbleson-同意。添加到上面。感谢您像charm一样工作hanks我如何设置搜索整个工作表的范围？
set f=wsCells.Find（…
将搜索整个工作表在执行
之前检查输入框是否被拒绝也是一个好主意。Find
。像check
如果不是bc=“”然后
@chobbleson-同意。添加到上面。谢谢你像一个charmThanks一样工作。我如何设置搜索整个工作表的范围？
set f=wsCells.Find（…
将搜索整个工作表