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

با سلام خدمت کاربران عزیز آی تی سواد

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

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

۱. کلیدهای Alt + F11 را فشار دهید تا پنجره Microsoft Visual Basic for Applications باز شود .

۲. در پنجره Microsoft Visual Basic for Applications بر رویInsert > Module کلیک کنید و سپس از زیر کد VBA را کپی و در درون پنجره ماژول قراردهید .

۱. روی نام شیت راست کلیک کنید ، و سپس View Code را از منوی باز شده انتخاب کنید ، کد زیر را در پنجره Microsoft Visual Basic for applications کپی کنید.

Private Sub worksheet_selectionchange(ByVal Target As Range)
'Updateby Extendoffice
    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 1.5, msoFalse, msoScaleFromTopLeft
            .ScaleHeight 1.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
End Sub

Private Sub worksheet_selectionchange(ByVal Target As Range)

'Updateby Extendoffice

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

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 1.5, msoFalse, msoScaleFromTopLeft

.ScaleHeight 1.5, msoFalse, msoScaleFromTopLeft

With .Fill

.ForeColor.SchemeColor = 44

.Visible = msoTrue

.Solid

.Transparency = 0

End With

xRg.Select

Application.ScreenUpdating = True

Set xRg = Nothing

End Sub

۲. سپس این پنجره کد را ذخیره و ببندید، در حال حاضر ، هنگامی که شما برخی از سلول‌های داده را انتخاب یا کلیک می‌کنید ، این سلول‌ها به صورت خودکار به عنوان یک تصویر به صورت خودکار بزرگ می‌شوند .

توجه : سلول‌های انتخاب‌شده پس از انتخاب سلول دیگر به اندازه اولیه تغییر خواهند کرد .

ترجمه شده از سایت www.extendoffice.com

ممنون از همراهی شما کاربران عزیز آی تی سواد

اشتراک گذاری

بیشتر

2 دیدگاه دربارهٔ «بزرگنمایی سلول انتخاب شده در اکسل;

gh.e

اسفند 6, 1398 در 8:39 قبل از ظهر

سلام میخوام در اکسل در یک شیت هر تصویری که باز میکنم و به سایز دلخواه میرسونم با یکبار کلیک کردن بزرگ بشه و با مثلا دابل کلیک به سایز قبلی برگردد.
ماکرو این برنامه رو چطور بنویسم ؟
پاسخ
- حامد محمودخانی
  
  اسفند 15, 1398 در 1:26 بعد از ظهر
  
  از کد
  Selection.ShapeRange.ScaleWidth 0.5, msoFalse, msoScaleFromBottomRight
  استفاده کنین فقط بجای ۰٫۵ مقدار دلخواه رو قرار بدهید
  پاسخ

با سلام خدمت کاربران عزیز آی تی سواد

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

ممنون از همراهی شما کاربران عزیز آی تی سواد

2 دیدگاه دربارهٔ «بزرگنمایی سلول انتخاب شده در اکسل;

دیدگاهتان را بنویسید لغو پاسخ