仅放大当前单元格(Microsoft Excel)
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的较旧菜单界面找到此技巧的版本: