如何搜索公式驱动的值?-VBA:HowdoIsearchforaformuladrivenvalue?

1  

This should do it. Note that your original code will throw an error if today's date isn't found. Typically when working with Find() it's safer to test the returned value before trying to do something with it.

这应该这样做。注意，如果没有找到今天的日期，您的原始代码将抛出一个错误。通常，在使用Find()时，更安全的做法是在尝试使用返回值之前对其进行测试。

Dim f As Range
Set f = Columns("A:A").Find(What:=Date(), After:=ActiveCell, LookIn:=xlFormulas, _
    LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
    MatchCase:=False, SearchFormat:=False)

If Not f Is Nothing then
    'do something with f
Else
    '???? do what
End If

0  

You could replace your entire code with this:

您可以用以下代码替换整个代码:

Activesheet.Columns("A:A").Find(What:=ActiveSheet.Range("K1"), After:=ActiveCell, _
LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate

What was happening is that there's no way to paste a cell's contents via .Copy directly into a VBA function. So I placed what you wanted to paste into it into the function directly.

正在发生的是，无法通过. copy直接将单元格内容粘贴到VBA函数中。我把你想要粘贴的东西直接放到函数中。

I think you will also find this helpful: How to avoid using Select in Excel VBA macros

我想您也会发现这很有用:如何避免在Excel VBA宏中使用Select