1

それぞれがJANUARYからFEBRUARYという名前の12のワークシートを含むワークブックがあります。

=TODAY()今月のシート（例：11月）にのみ、 mm / dd/yyyy日付形式の関数を含むセルが含まれます。

ブックを開くときに、このセル（私のインスタンスではCell 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
4

2 に答える 2

2

これは私にとってはうまくいきます。

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
于 2012-11-06T22:10:48.713 に答える
1 
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
于 2012-11-06T22:11:23.127 に答える