时间：2016-11-08 20:09作者：admin来源：未知人气：768我要评论(0)
如果工作表中的单元格都具有相同的行高和列宽，我们可以用VBA的方法将给定的单元格和区域定位于屏幕中央，下面是VBA代码：
Sub CenterOnCell(OnCell As Range)
Dim VisRows As Integer
Dim VisCols As Integer
'关闭屏幕更新
Application.ScreenUpdating = False
'激活区域所在的工作簿和工作表
OnCell.Parent.Parent.Activate
OnCell.Parent.Activate
'获取活动窗口的可视行数和列数
With ActiveWindow.VisibleRange
VisRows = .Rows.Count
VisCols = .Columns.Count
End With
' 确定参考单元格并用GOTO方法将该单元格定位到屏幕左上角。
' 该参考单元格用给定的单元格的行数和列数分别减去可视行数和可视列数除以2来确定。
' 用MAX函数确保参考单元格的最小行数和列数为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
假如给定的区域为M50：N51，可以在VBA中用下面的方法调用上述代码：
CenterOnCell Range("m50:n51")
相关阅读 你想学的FILTER函数用法，很全了当Excel体积臃肿，运行卡顿时，我们应该做些什么？带合并单元格的表格，求和计数也不难Excel筛选条件怎么设置ExcelA4页面怎么设置Excel表格A列被隐藏了怎么恢复Excel图例位于底部怎么设置Excel图表怎么嵌入单元格Excel没保存不小心关闭怎么恢复Excel图表怎么设置X轴Y轴
热门文章
excel怎么制作表格？制作excel表格的步骤技巧
excel 常见的六个排序方法，你必须要学会
excel自动换行显示不全怎么办
excel 数据透视表 选定区域不能分组 的原因和解决方法
最新文章
你想学的FILTER函数用法，很全了
当Excel体积臃肿，运行卡顿时，我们应该做些什么？
带合并单元格的表格，求和计数也不难Excel筛选条件怎么设置ExcelA4页面怎么设置Excel表格A列被隐藏了怎么恢复
人气排行 excel怎么制作表格？制作excel表格的步骤技巧excel 常见的六个排序方法，你必须要学会excel自动换行显示不全怎么办excel 数据透视表 选定区域不能分组 的原因和解决方法Excel高级筛选怎么用 excel高级筛选多个条件（并且、或用法）excel if函数的多个条件使用方法Excel中的快速填充键ctrl+e没反应，不能用是为什么？excel 判断两列数据是否一致的四种方法
盖楼回复X
(您的评论需要经过审核才能显示)
查看所有0条评论>>