Excel - 現在の日付のワークブックでセルを選択するマクロ

Question

Excelでカレンダー/スケジュールブックを作成しています。毎月のワークシートがあります。

今私はCommandButtonを作成して、現在の日付を含むセルに移動させる必要があります。現在の日付のセルは1つだけですが、ワークブックの任意のシートに配置できます。

私は数日前から検索してきましたが、それは正しくできません。

物事私がしようとしてきた。（それは私がEscキーを押すまでのセルを再選択し続けるが）現在の日付を持つセルが同じシート上にあるとき、これはちょっと作品

Private Sub CommandButton1_Click() 

Dim Sh As Worksheet 
Dim Loc As Range 

For Each Sh In ThisWorkbook.Worksheets 
    With Sh.UsedRange 
     Set Loc = .Cells.Find(What:=Int(Date), LookIn:=xlValues) 
     If Not Loc Is Nothing Then 
      Do Until Loc Is Nothing 
       Loc.Select 
       Set Loc = .FindNext(Loc) 
      Loop 
     End If 
    End With 
    Set Loc = Nothing 

Next 

End Sub 

が、時に失敗しましたセルが別のシートにあります。

助けていただけたら幸いです！

Answer 1

Do Whileループは必要ありません。あなたが探しているだけなので、この簡単なFor/Nextはすべきです。コードが見つかると、コードはループを終了し、最後にSelectセクションに移動します。日付が見つからない場合は、何も選択されません。

親シートをアクティブにする必要があることに注意してください。