





اگر داده های زیادی در اکسل داشته باشید احتمال دارد که بخواهید آن را کنترل نمائید و خطاهای احتمالی را پیدا کنید و برای پیمایش بین سلولها نیاز به بزرگنمایی اکسل داشته باشید ، که البته تمایلی هم به زوم کردن اکسل نداشته باشید ، این آموزش رایگان از مناسب شماست.
مراحل اضافه کردن بزرگنمایی اکسل
- فایل اکسل مورد نظر را بازکرده و وارد کد نویسی شوید
- سعی کنید در آن واحد فقط یک فایل اکسل باز داشته باشید.
- در سمت چپ قسمت کدنویسی روی نام شیت مورد نظر دابل کلیک کنید.
- کد زیر را درون آن قرار دهید.
Range(“A1”).Value = ActiveCell.Value
Range(“A1”).Value = ActiveCell.Value
Range("A1").Value = ActiveCell.Value
- خط بالا باعث می شود با حرکت جهت نما در شیت ، مقدار آن در A1 نمایش داده شود.
روش دوم زوم کردن سلول
وارد محیط کدنویسی اکسل شده و شیت مورد نظر را انتخاب نمائید.
کد های زیر را در آنجا قرار دهید.
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
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
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
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
- به اکسل باز گردید ، حالا با حرکت در سلولها ، محتویات سلول ، مانند عکس نمایش داده می شود.
زوم کردن سلول