Excel是许多职场人士常用的烦恼之源，学习相关技巧需耗费大量时间。简道云作为一款办公神器，能很好地替代Excel。它是一个在线表单和数据管理工具，支持PC端和手机微信浏览器操作。除此之外，简道云还能辅助企业进行流程审批、财务报销、人事管理等业务管理，满足不同需求。
如果工作表中的单元格都具有相同的行高和列宽，我们可以用VBA的方法将给定的单元格和区域定位于屏幕中央，下面是VBA代码：
Sub CenterOnCell(OnCell As Range)Dim VisRows As IntegerDim VisCols As Integer'关闭屏幕更新Application.ScreenUpdating = False'激活区域所在的工作簿和工作表OnCell Excel利用VBA将指定的单元格定位于屏幕中央
如果工作表中的单元格都具有相同的行高和列宽，我们可以用VBA的方法将给定的单元格和区域定位于屏幕中央，下面是VBA代码：
Sub CenterOnCell(OnCell As Range)Dim VisRows As IntegerDim VisCols As Integer'关闭屏幕更新Application.ScreenUpdating = False'激活区域所在的工作簿和工作表OnCell.Parent.Parent.ActivateOnCell.Parent.Activate'获取活动窗口的可视行数和列数With ActiveWindow.VisibleRangeVisRows = .Rows.CountVisCols = .Columns.CountEnd 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:=TrueEnd With'选择给定的单元格OnCell.Select'启用屏幕更新Application.ScreenUpdating = TrueEnd Sub
假如给定的区域为M50：N51，可以在VBA中用下面的方法调用上述代码：
CenterOnCell Range("m50:n51")
