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的原因）

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

1 个答案: