12万作品が月額500円(税別)で見放題なのはdTVだけ!! >>dTV(外部リンク)

いつもお世話になります
WIN10 エクセル2016 です。

A列には、month(b2) で 1~12 の数値があります。

例えば M1 に 8 と入力すると、

マクロでA列の中で 8 と始まる先頭のセルを 「アクティブセル」 に上にスクロールしたいのですが

ご指導いただけませんか。


※A列で8が始まるセルが仮に1032行だと 「A1032」 がアクティブセルで
通常のA2のセル位置までスクロールさせたい。
A1032セルは普通は見れないので上に移動させて見やすくしたい。


目的は何か問題が出た時に点検するためにです。

A 回答 (1件)

こんにちは



こんな感じでしょうか?

Sub Sample()
Dim c As Range, s As String, rw As Long

s = Range("M1").Text & "*"
rw = 0

If s <> "*" Then
 For Each c In Intersect(Columns(1), ActiveSheet.UsedRange)
  If c.Value Like s Then
   rw = c.Row
   Exit For
  End If
 Next c
End If


If rw = 0 Then
 Range("M1").Select
 MsgBox "該当するセルがありません"
Else
 Cells(rw, 1).Activate
 ActiveWindow.ScrollColumn = 1
 ActiveWindow.ScrollRow = rw + (rw > 1)
End If
End Sub
    • good
    • 0
この回答へのお礼

早速のご回答を感謝します。
ありがとうございました。

お陰様でうまくできました。

お礼日時:2018/10/12 12:04

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!


このカテゴリの人気Q&Aランキング