در صورتیکه داده های فایل اکسل شما زیاد باشه گشتن بین سلولها و دیدن اطلاعات ممکنه گاهی سردرگم‌کننده باشه و ما رو دچار خطا کنه
اما با بزرگنمایی یا زوم سلول های فعال در اکسل می‌تونید از رخ دادن این اشتباه جلوگیری کنید.

با بزرگنمایی و هایلایت محتویات سلول دیگه نیازی نیست اندازه فونت کل شیت رو افزایش بدید که گاهی منجر به از بین رفتن بخشی از داده در سلول میشه

ویدیو رو ببینید تا این ترفند کاربردی زوم کردن سلول در اکسل رو یاد بگیرید

نکته: بهتره در آن واحد فقط یک فایل اکسل باز باشه تا عملیات به درستی انجام بشه.

کد۱:
Range("A1").Value = ActiveCell.Value

کد۲:
Dim xRg As Range
Dim xCell As Range
Dim xShape As Variant
Set xRg = Target.Areas(1)
For Each xShape In ActiveSheet.Pictures
If xShape.Name = "zoom_cells" Then
xShape.Delete
End If
Next
If Application.WorksheetFunction.CountBlank(xRg) = xRg.Count Then Exit Sub
Application.ScreenUpdating = False
xRg.CopyPicture appearance:=xlScreen, Format:=xlPicture
Application.ActiveSheet.Pictures.Paste.Select
With Selection
.Name = "zoom_cells"
With .ShapeRange
.ScaleWidth 2.5, msoFalse, msoScaleFromTopLeft
.ScaleHeight 2.5, msoFalse, msoScaleFromTopLeft
With .Fill
.ForeColor.SchemeColor = 44
.Visible = msoTrue
.Solid
.Transparency = 0
End With
End With
End With
xRg.Select
Application.ScreenUpdating = True
Set xRg = Nothing
Range("B2").Value = ActiveCell.Value

ترجمه رایگان انگلیسی به فارسی و برعکس با موتور ترجمه ترگمان:
https://targoman.ir/?utm_source=tarjomyar&utm_medium=namasha&utm_campaign=teach