読者です 読者をやめる 読者になる 読者になる

役に立つか?VBAメモ

仕事で使ったVBAをメモっとく

入力時の自動スクロール

大量のデータを打ち込んでいて、ウィンドウの一番下まで行ってしまうとかなり見難くなりません?

私はなります。

どうせなら、入力セルは見やすい位置にずっていてくれたほうが助かります。

なので、自動でスクロールして選択セルは定位置にするマクロが必要です。

 

WorksheetのSelectionChangeイベントに書いていきます。

 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim Scrl As Long
Dim i As Long

Application.ScreenUpdating = False 'スクロールの際のチラツキ?防止の為

For i = 0 To 94 '100行目まで

Scrl = 6 + i

If Target.Row > Scrl Then '6行目を超えたら

ActiveWindow.ScrollRow = Scrl - 5 '1行スクロール=定位置

End If
Next i

End Sub

 

これだけだとあまり役に立たないので、他のマクロと組み合わせます。

まあ、こんな感じ。