Question

因此，我得到了其中包含大量事务的这些罐头报告，并且我编写了一个宏，该宏添加了一个列（总是在L列中），该列计算每个事务的年龄，然后对它们进行从新到旧的排序。 / p>

我的目标是添加一个输入框，最终用户可以在其中指定过期的天数（例如50天），然后代码将找到该值的第一个实例并将该行中的所有内容复制到末尾，将其移到新工作表上。

这是我当前的下属，只是在查找数据（忽略列标题部分，因为那只是复制标题）

Console.WriteLine()

这只是返回我在输入框中输入的内容的值，而不是该值首次显示的地址。感谢您的帮助！

Answer 1

Range.Find返回一个Range引用，而不是值，也不是地址。您可以通过其Range属性获取任何Address对象的地址。

拆分代码，在一条指令中发生了太多事情：

Dim userInput As Variant
userInput = InputBox(...)
If StrPtr(userInput) = 0 Then
    'inputbox was cancelled
    Exit Sub
End If

Dim findResult As Range
Set findResult = ActiveSheet.Range("L:L").Find(CStr(userInput), ...)

If findResult Is Nothing Then
    'did not find anything
    Exit Sub
End If

MsgBox findResult.Address

使用输入框查找值

1 个答案: