如何能自动使选择单元格处于屏幕中心

各位老师，请教一下，如何能自动使选择单元格显示在屏幕中心？

[ 本帖最后由 hlxue 于 2011-8-7 08:42 编辑 ]

不是太明白你的意思。

如果是要区域打印时居中的话就可以在页面设置那里

仅供参考：

其他参考：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)    '选择单元时显示为屏幕中央
    Dim lStart As Long
    Dim lEnd As Long
    lStart = ActiveWindow.VisibleRange.Row
    lEnd = ActiveWindow.VisibleRange.Rows.Count + lStart
    If Target.Row < (lEnd - lStart) / 2 Then Exit Sub
    If Target.Row > (lEnd + lStart) / 2 Then
        ActiveWindow.SmallScroll down:=Target.Row - (lEnd - lStart) / 2 - lStart + 1
    ElseIf Target.Row < (lEnd + lStart) / 2 Then
        ActiveWindow.SmallScroll up:=(lEnd - lStart) / 2 + lStart - Target.Row - 1
    End If
End Sub