Excel VBA - 查找函数的类型不匹配

问题描述

在使用 Find 函数时遇到了一些麻烦。 我有一个 Excel 表，其中 A 列显示工作日，B 列显示日期。 我正在尝试自动滚动到今天的日期，但如果“今天”不是星期一，则自动滚动到相应周（星期一）的开始。为此，我使用偏移量在今天日期前最多 6 天进行搜索。 尽管我在第二个 Find 函数中遇到了 Type Mismatch 错误，该函数正在 A 列中搜索最近的前一个星期一。

你知道为什么会发生这种情况吗？

我目前的代码如下：

Sub Go_to_Today_Button()

Dim searchResult As range
Dim today As range
Dim currentWeek As range
Dim prevIoUsMonday As range
   
Set searchResult = Cells.Find(What:=Date,After:=range("B3"),LookIn:=xlFormulas _,LookAt:=xlWhole,SearchOrder:=xlByRows,SearchDirection:=xlNext)

Set today = searchResult.Offset(0,-1)
Set currentWeek = searchResult.Offset(-6,-1)
Set prevIoUsMonday = nothing
   
prevIoUsMonday = Cells.Find("Monday",range(currentWeek.Address(),today.Address()),SearchDirection:=xlPrevIoUs)

Application.Goto Reference:=range(prevIoUsMonday),Scroll:=True

End Sub

谢谢！

解决方法

计算上一个星期一并搜索那个。

docker run -d --restart unless-stopped -p 8883:8883 -p 1883:1883 -p 15675:15675 -p 15672:15672 --sysctl net.core.somaxconn=32768 --sysctl net.ipv4.tcp_max_syn_backlog=4096 --sysctl net.ipv4.tcp_rmem='4096 120000 16777216' --sysctl net.ipv4.tcp_wmem='4096 120000 16777216' -e RABBITMQ_VM_MEMORY_HIGH_WATERMARK=0.9 -e RABBITMQ_SERVER_ADDITIONAL_ERL_ARGS="+P 2000000" -t probusdev/hes-rabbitmq:latest