Brian问Excel中是否有一种方法可以放大当前单元格的内容。他正在工作一个工作表，该工作表需要设置为低缩放比例（大约30％）才能查看整个工作表。在运行不同方案时，单元会根据结果改变颜色。 Brian可以轻松查看需要调查的单元格，但由于缩放设置而无法读取它们。他通常会更改缩放比例，读取答案，然后再缩小以运行其他场景。如果仅将当前单元格（选定的那个单元格）放大到可读水平，将会容易得多。

Excel中没有内置方法可以完成这种选择性缩放方法，但是您可以使用几种解决方法。一种这样的解决方法是使用一个宏，该宏在消息框中显示活动单元格中的值。这样的宏很容易添加到工作表模块中：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

MsgBox ActiveCell.Address & ": " & ActiveCell.Value End Sub

每次在工作表中选择一个不同的单元格时，宏都会弹出一个消息框，显示该单元格的内容。这解决了问题，但是每次更改选择的单元格时，不断关闭消息框可能会很麻烦。

您还可以创建一个宏，该宏仅更改当前所选单元格的字体大小。将以下简单宏添加到工作表模块中，以查看当前选定的单元格并将其字体大小增加500％。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

FontSize = ActiveCell.Font.Size     LargeSize = FontSize * 5     Cells.Font.Size = FontSize     ActiveCell.Font.Size = LargeSize End Sub

当然，此类宏的实用程序将取决于您如何格式化选定单元格的高度和宽度。如果它们是静态的高度和宽度，则增大字体大小可能会使单元格内容不可读。如果高度和宽度是动态的，那么内容应该仍然可读。

还有另一种方法是在选定每个单元格时创建自己的放大图片：

Private Sub ZoomCell(ZoomIn As Single)

Dim s As Range     Set s = Selection

'Get rid of any existing zoom pictures     For Each p In ActiveSheet.Pictures         If p.Name = "ZoomCell" Then             p.Delete             Exit For         End If     Next

'Create a zoom picture     s.CopyPicture Appearance:=xlScreen, _       Format:=xlPicture     ActiveSheet.Pictures.Paste.Select     With Selection         .Name = "ZoomCell"

With .ShapeRange             .ScaleWidth ZoomIn, msoFalse, _               msoScaleFromTopLeft             .ScaleHeight ZoomIn, msoFalse, _               msoScaleFromTopLeft             With .Fill                 .ForeColor.SchemeColor = 9                 .Visible = msoTrue                 .Solid             End With         End With     End With     s.Select     Set s = Nothing End Sub

为了使用宏，您需要在工作表中的每次选择更改时调用它。为此，您可以向工作表模块添加一个小宏：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

ZoomCell 6 End Sub

在这种情况下，每次更改单元格选择时，都会运行ZoomCell宏以创建原始大小六倍的图片。如果每次选择不同的单元格时都会自动更改图片，这很麻烦，则可以取消工作表模块中的trigger宏，并修改ZoomCell宏，以便在每次启动它时都可以运行，也许可以使用快捷键您建立了。

Sub ZoomCell()

Dim s As Range     Dim ZoomIn As Single     Set s = Selection     ZoomIn = 6

'Get rid of any existing zoom pictures     For Each p In ActiveSheet.Pictures         If p.Name = "ZoomCell" Then             p.Delete             Exit For         End If     Next

'Create a zoom picture     s.CopyPicture Appearance:=xlScreen, _       Format:=xlPicture     ActiveSheet.Pictures.Paste.Select     With Selection         .Name = "ZoomCell"

With .ShapeRange             .ScaleWidth ZoomIn, msoFalse, _               msoScaleFromTopLeft             .ScaleHeight ZoomIn, msoFalse, _               msoScaleFromTopLeft             With .Fill                 .ForeColor.SchemeColor = 9                 .Visible = msoTrue                 .Solid             End With         End With     End With     s.Select     Set s = Nothing End Sub

注意：

如果您想知道如何使用此页面（或_ExcelTips_网站上的任何其他页面）中描述的宏，我准备了一个特殊页面，其中包含有用的信息。

点击此处在新的浏览器标签中打开该特殊页面。

_ExcelTips_是您进行经济高效的Microsoft Excel培训的来源。

本技巧（10426）适用于Office 365中的Microsoft Excel 2007、2010、2013、2016、2019和Excel。您可以在此处为Excel的较旧菜单界面找到此技巧的版本：

仅放大当前单元格。