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）