如何在Excel中縮放或放大選定的單元格？

眾所周知，Excel具有縮放功能，可幫助我們增加整個工作表中單元格值的大小。 但是，有時，我們只需要縮放或放大所選的單元格即可。 有什么好主意可以幫助我們僅在工作表中擴大所選單元格？

使用VBA代碼縮放或放大所選單元格

使用VBA代碼縮放或放大所選單元格驚人的！ 在 Excel 中使用高效的選項卡，如 Chrome、Firefox 和 Safari！每天節省50％的時間，并減少數千次鼠標單擊！

可能沒有直接的方法可以讓我們放大Excel中選定的單元格，但是在這里，我可以引入VBA代碼來解決此工作。 請執行以下操作：

1。 右鍵單擊要自動放大所選單元格的圖紙選項卡，然后選擇 查看代碼 從上下文菜單中，在打開的 適用于應用程序的Microsoft Visual Basic 窗口，將以下代碼復制并粘貼到空白模塊中：

VBA代碼：放大或放大選定的單元格：

Private Sub worksheet_selectionchange(ByVal Target As Range)Updateby ExtendofficeDim xRg As RangeDim xCell As RangeDim xShape As VariantSet xRg = Target.Areas(1)For Each xShape In ActiveSheet.PicturesIf xShape.Name = "zoom_cells" ThenxShape.DeleteEnd IfNextIf Application.WorksheetFunction.CountBlank(xRg) = xRg.Count Then Exit SubApplication.ScreenUpdating = FalsexRg.CopyPicture appearance:=xlScreen, Format:=xlPictureApplication.ActiveSheet.Pictures.Paste.SelectWith Selection.Name = "zoom_cells"With .ShapeRange.ScaleWidth 1.5, msoFalse, msoScaleFromTopLeft.ScaleHeight 1.5, msoFalse, msoScaleFromTopLeftWith .Fill.ForeColor.SchemeColor = 44.Visible = msoTrue.Solid.Transparency = 0End WithEnd WithEnd WithxRg.SelectApplication.ScreenUpdating = TrueSet xRg = NothingEnd SubCopy

2。 然后保存并關閉此代碼窗口，現在，當您選擇或單擊一些數據單元格時，這些單元格將自動放大為圖片，請參見屏幕截圖：

備注：選擇其他單元格后，所選單元格將變回原始大小。

最佳辦公生產力工具

將小時轉化為分鐘 Kutools for Excel!

準備好增強您的 Excel 任務了嗎？ 利用的力量 Kutools for Excel - 您終極的節省時間的工具。 簡化復雜的任務并像專業人士一樣瀏覽數據。 以閃電般的速度體驗 Excel！

為什么需要 Kutools for Excel