VBA - 使用输入框的值来搜索数据范围

Question

我正在寻找能够让我做一些事情的代码。

我所希望做的是搜索由1

例子。在一列，自动递增相邻小区的输入框使用的值，A列有序列号的列表。 B列跟踪“用途”的数量。输入框要求输入序列号。当输入序列号时，我希望代码能够搜索A列中的序列号，并移动到同一行中的B列，并将该值增加+1。如果在A列中找不到序列号，请提供“未找到”消息框。

任何帮助你可以提供将不胜感激！谢谢！

Answer 1

是这样的：

Sub yourmacro() 
Serialnumber = Application.InputBox("Please provide a serial number", "Serial Number", Type:=1) 

Set found = Range("A:A").Find(what:=Serialnumber, LookIn:=xlValues, LookAt:=xlWhole) 

If found Is Nothing Then 
    MsgBox "Your serial number was not found" 
Else 
    found.Offset(0, 1).Value = found.Offset(0, 1).Value + 1 
End If 

End Sub 

我假设你的序列号没有“ - ”或“/”，只是数字（这就是为什么在输入框的类型1）