如何解决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
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。