如果工作表中的單元格都具有相同的行高和列寬，我們可以用VBA的方法將給定的單元格和區(qū)域定位于屏幕中央，下面是VBA代碼：
Sub CenterOnCell(OnCell As Range)
Dim VisRows As Integer
Dim VisCols As Integer
‘關閉屏幕更新
Application.ScreenUpdating = False
‘激活區(qū)域所在的工作簿和工作表
OnCell.Parent.Parent.Activate
OnCell.Parent.Activate
‘獲取活動窗口的可視行數(shù)和列數(shù)
With ActiveWindow.VisibleRange
VisRows = .Rows.Count
VisCols = .Columns.Count
End With
‘ 確定參考單元格并用GOTO方法將該單元格定位到屏幕左上角。
‘ 該參考單元格用給定的單元格的行數(shù)和列數(shù)分別減去可視行數(shù)和可視列數(shù)除以2來確定。
‘ 用MAX函數(shù)確保參考單元格的最小行數(shù)和列數(shù)為1。
With Application
.Goto reference:=OnCell.Parent.Cells( _
.WorksheetFunction.Max(1, OnCell.Row + _
(OnCell.Rows.Count / 2) – (VisRows / 2)), _
.WorksheetFunction.Max(1, OnCell.Column + _
(OnCell.Columns.Count / 2) – _
.WorksheetFunction.RoundDown((VisCols / 2), 0))), _
scroll:=True
End With
‘選擇給定的單元格
OnCell.Select
‘啟用屏幕更新
Application.ScreenUpdating = True
End Sub
假如給定的區(qū)域為M50：N51，可以在VBA中用下面的方法調(diào)用上述代碼：
CenterOnCell Range("m50:n51")
