Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

3467 / 76735

←次へ　｜　前へ→


	【78898】Re:検索し、各シートを検索したセルを表示したい

ウッシ - 17/2/21(火) 8:12 -


	引用なし

	パスワード

こんにちは

こんな感じですか？

Sub サーチ()
　　Dim i　As Integer
　　Dim DD As Date
　　'##日付設定
　　Sheets("Sheet2").Range("A1").FormulaR1C1 = "=TODAY()-1"
　　Sheets("Sheet2").Range("A1").Value = Sheets("Sheet2").Range("A1").Value
　　DD = Sheets("Sheet2").Range("A1").Value
　　
　　'##シートループ
　　If ActiveWorkbook.Worksheets.Count < 1 Then Exit Sub
　　For i = 1 To ActiveWorkbook.Worksheets.Count
　　　　'###日付検索
　　　　Dim Findcell As Range
　　　　Set Findcell = Worksheets(i).Cells.Find(What:=DD, LookAt:=xlWhole, LookIn:=xlFormulas)
　　　　'##無かったら
　　　　If Not Findcell Is Nothing Then
　　　　　　'##移動
　　　　　　Application.Goto Findcell, True
　　　　　　MsgBox "OK"
　　　　End If
　　　　
　　Next i
End Sub

他の部分、出来てなかったんですね。
▼β さん：
>▼HARU さん：
>
>ところで、ほかのシートのセルの日付ですが、値で入っていますか？
>それとも、数式で入っているのでしょうか？

3 hits

▼

【78884】検索し、各シートを検索したセルを表示したい はる 17/2/20(月) 2:03