摘要： 如果工作表中的单元格都具有相同的行高和列宽，我们可以用VBA的方法将给定的单元格和区域定位于屏幕中央，下面是VBA代码： Sub CenterOnCell(OnCell As Range) Dim VisRows As I...
如果工作表中的单元格都具有相同的行高和列宽，我们可以用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
利用VBA为Excel添加更多的打印功能
大家知道，Word可以进行多种方式打印，如打印奇数页、打印偶数页、打印当前页等。而Excel的各种版本一直没有这些功能，从节约纸张、提高打印效率方面来看，这无疑是一个小小的遗憾。我
假如给定的区域为M50：N51，可以在VBA中用下面的方法调用上述代码：
CenterOnCell Range("m50:n51")
Excel利用VBA将公式打印到Word中
有时我们需要将指定单元格或区域中的公式打印出来，以便分析。下面的VBA代码可以实现这个功能，可以将选择的单元格或区域中的公式打印到Word中，方便打印。使用方法：1.单击菜单工具引
