Excel VBA質問箱 IV

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

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


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

3481 / 76735

←次へ　｜　前へ→


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

はる - 17/2/20(月) 2:03 -


	引用なし

	パスワード

書き込み失礼致します。ご指導よろしくお願いします。

SHEET２に昨日の日付を入力し、他シートでその値で検索、スクロールしたいです。
見よう見まねで書いてみましたが上手くスクロールしてくれません。
どのように修正したらいいでしょうか。ご教授願います。

Sub サーチ()
'
'
'高速化
'　 Application.ScreenUpdating = False
'　 Application.DisplayAlerts = False

'##日付設定
　　Sheets("Sheet2").Select
　　Range("A1").FormulaR1C1 = "=TODAY()-1"
　　Sheets("Sheet2").Range("A1").Value = Sheets("Sheet2").Range("A1").Value
　　　　
'##シートループ
　　Dim i As Integer
　　Dim DD As String
　　DD = Range("A1").Value
　　If ActiveWorkbook.Worksheets.Count < 1 Then Exit Sub
　　For i = 1 To ActiveWorkbook.Worksheets.Count
　　Worksheets(i).Select
　　Range("A1").Select
　'###日付検索
　　Dim Findcell As Range
　　Set Findcell = Cells.Find(what:=DD)
　 '##無かったら
　　If Not Findcell Is Nothing Then
　　On Error Resume Next
　 '##移動
　　Else
　　ActiveWindow.ScrollRow = Findcell
　　End If
　　
　　Next i
　　
'　 Application.ScreenUpdating = true
'　 Application.DisplayAlerts = true
　　
　　'
　　End Sub

1 hits

▼

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