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的较旧菜单界面找到此技巧的版本: