Excel VBA質問箱 IV

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

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


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

3480 / 76735

←次へ　｜　前へ→


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

ウッシ - 17/2/20(月) 8:40 -


	引用なし

	パスワード

こんにちは

ActiveWindow.ScrollRow = Findcell

を

Application.GoTo Findcell, True

か

Application.GoTo Findcell.EntireRow.Cells(1, 1), True

とするとどうですか？

▼はるさん：
>書き込み失礼致します。ご指導よろしくお願いします。
>
>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