VBA代码来检查每个工作表，find一个包含= TODAY（）函数的单元格，并select该单元格

我有一个工作簿，每个工作表有12个工作表，每个工作表名为1月到2月。

只有当前月份的表单（例如NOVEMBER）将包含一个单元格，其中包含以mm / dd / yyyydate格式表示的函数=TODAY() 。

当我打开工作簿时，我想自动激活包含此单元的工作表（在我的实例单元格N2 ）并Select它。 我是一个真正的新手学习缓慢，但知识是微乎其微，找不到我所需要的。 这是我迄今为止，但它不工作：

 Sub ChooseSheet() Dim SearchString As Variant SearchString = "TODAY()" 'string I am searching for Do Until SearchString = "TODAY()" If Application.WorksheetFunction.CountIf(Sheets("Sheet1").Columns(14), SearchString) > 0 Then Worksheets("Sheet1").Activate End If Exit Do Loop End Sub 

Answer 1

这对我有用。

 Sub searchToday() Dim sh As Worksheet Dim found As Range For Each sh In ActiveWorkbook.Worksheets Set found = sh.Cells.Find(what:="=TODAY()", LookIn:=xlFormulas) If Not found Is Nothing Then sh.Activate found.Select Exit Sub End If Next sh End Sub 

Answer 2

 Sub Test() Dim ws As Worksheet Dim f As Range For Each ws In ActiveWorkbook.Worksheets Set f = ws.Cells.Find(What:="=TODAY()", LookIn:=xlFormulas, LookAt:=xlWhole) If Not f Is Nothing Then ws.Activate f.Select Exit For End If Next ws End Sub