選択したセルを Excel 画面の下部から離れた位置に保つことは可能ですか。つまり、下部に到達する前に自動スクロールするということです。

Question 1

z/OS を少し触ったことがある人にとっては、これは非常に理解しやすいことです...

VBA 以外では、移動中に選択が変更されないようにするスクロールロックや、カーソルの視覚的な位置を同じに保ちながら画面に表示される行数を移動するページアップ/ダウンを知っていますが、どちらも目的に合いません。

私はこれの特別なケースを設計しました。少なくともセルサイズが固定されている場合は、選択範囲が常に中央に配置されます (そうでない場合、指摘されているように計算が乱雑になり、おそらく遅くなります)。表示範囲 (つまり、画面サイズ + ズーム) は、わずかな追加コストで動的に決定できます。また、範囲選択は処理されていません。中央揃えや無視ではなく、左上のセルに従って中央に配置され、新しいシートにイベントが動的に追加されることはありません。

'Const SCRROWS = 24 ' Example screen size.
'Const SCRCOLS = 21
Global Pscrr As Long
Global Pscrc As Long

Function GetScreen() As Long()
Dim vret(2) As Long
If ActiveWindow.VisibleRange.Rows.Row + _
    ActiveWindow.VisibleRange.Rows.Count >= Rows.Count _
or ActiveWindow.VisibleRange.Columns.Column + _
    ActiveWindow.VisibleRange.Columns.Count >= Columns.Count Then
    vret(0) = Pscrr
    vret(1) = Pscrc
Else
    vret(0) = ActiveWindow.VisibleRange.Rows.Count
    vret(1) = ActiveWindow.VisibleRange.Columns.Count
    Pscrr = vret(0)
    Pscrc = vret(1)
End If
GetScreen = vret
End Function

Sub CenterScroll(slrow As Long, slcol As Long)
Dim nscrr As Long
Dim nscrc As Long
Dim scrsize() As Long
scrsize = GetScreen
nscrr = slrow - Int(scrsize(0) / 2)
If nscrr < 1 Then
    nscrr = 1
End If
nscrc = slcol - Int(scrsize(1) / 2)
If nscrc < 1 Then
    nscrc = 1
End If
ActiveWindow.ScrollRow = nscrr
ActiveWindow.ScrollColumn = nscrc
End Sub

Sub Button2_Click()
CenterScroll ActiveCell.Row, ActiveCell.Column
End Sub

'------Put this on the sheet which uses the scroll method------'
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
CenterScroll Target.Row, Target.Column
End Sub

20% - 80% のエッジ制限を追加するのは比較的簡単なはずです (「運動量」の概念を導入し、選択された行 - 表示されている最上行 > 0.8 * 画面行などを確認する必要がある)。ただし、堅牢なソリューションは私の範囲外です。

Answer