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

- بانک کد VBA در اکسل
- آموزش رایگان اکسل
آخرین بروزرسانی: 31 اردیبهشت 1402

باز هم آکادمی روح الله با یک آموزش عالی و کاربردی در اکسل در خدمت شما هست توی این آموزش نحوه بزرگنمایی سلول انتخاب شده در اکسل 3 روش
بی نظیر برای شما آموزش میدهید پس ما همراه باشید.

بزرگنمایی سلول های اکسل چگونه انجام می شود؟

در آکادمی روح الله با آموزش بزرگنمایی سلول های اکسل در خدمت شما هستیم. اگر داده های شما در اکسل زیاد باشد نیاز است که آن ها را کنترل نمایید، با این روش خطاهای احتمالی پیدا می شود. برای پیمایش کردن سلول ها در اکسل نیاز است که سلول هارا بزرگنمایی نماییم. اگر به زوم کردن سلول های اکسل تمایل نداشته باشید می توانید از این روش استفاده نمایید.

سلول ها فضاهایی هستند که اطلاعات در آن ها ذخیره می شود. اطلاعات سلول می تواند اعداد یا متن باشد. نمادهای کوچک هم می تواند بخشی از اطلاعات یک سلول باشد. همیشه نمی توان برای بهتر دیدن اطلاعات سلول اندازه فونت را افزایش داد. با افزایش فونت یک سلول تنظیماتی که برای آن انجام داده ایم از بین می رود و ممکن است بخشی از متنی که در سلول وجود دارد از بین رود.

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

توجه

قبل از هر کاری آموزش زیر را مشاهده فرمایید👇

نحوه ذخیره فایل اکسل حاوی ماکرو

زوم کردن در اکسل

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

پیش نهاد آکادمی روح الله برای شما :

نحوه ساخت ساعت دیجیتال در اکسل 2021

زوم کردن قابلیتی است که فقط روی نوع نمایش تاثیر می گذارد. مانند حالتی که با یک ذره بین قسمتی از یک کتاب را مشاهده نمایید. در این حالت شما به طور واقعی نوشته های یک کتاب را بزرگ نکرده اید بلکه فقط آن ها را بزرگتر میبینید. زوم کردن انواع مختلفی دارد که شما بسته به نیازتان از آن ها استفاده می نمایید. در آموزش اکسل آکادمی روح الله می توانید مطالبی را یاد بگیرید که برای کار با اکسل مورد نیاز می باشد.

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

با بزرگنمایی سلول ها در یک کاربرگ می توانیم آن ها را دقیق تر ببینیم. این کار باعث می شود بتوانیم اطلاعات موجود در سلول ها را به راحتی مشاهده نماییم مخصوصا وقتی که سایز قلم کوچک است. همچنین اگر بخواهیم یک کاربرگ را به صورت کلی مشاهده نماییم آن را کوچک می کنیم تا یک نمای کلی از کاربرگ به ما نشان داده شود.

بزرگنمایی سلولهای اکسل

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

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

پیش نهاد آکادمی روح الله برای شما :

آموزش فعال کردن ماکرو اکسل

با استفاده از کلیدهای ترکیبی Alt + F11 می توانیم پنجره ی Microsoft Visual Basic for Applications را باز کنیم. در پنجره ی باز شده روی Insert > Module کلیک نمایید و سپس کد VBA را کپی نمایید و داخل پنجره ماژول قرار دهید. حال روی نام شیت راست کلیک نموده و گزینه ی View Code را کلیک نمایید. کدهای داده شده را در پنجره ی Microsoft Visual Basic for applications کپی نمایید. بعد از انجام عملیات پنجره را ذخیره نموده و آن را ببندید حال با انتخاب یک یا چند سلول، این سلول ها به طور اتوماتیک بزرگ می شوند.

با استفاده از این روش ما به کمک کد های VBA می توانیم سلول ها را بزرگ کنیم. در این حالت با یک بار کلیک کردن روی یک سلول حالت بزرگ را مشاهده می نماییم و با کلیک دوباره یا دبل کلیک، آن سلول به حالت اولیه برمی گردد. این روش می تواند برای بزرگنمایی تصاویر نیز به کار رود.

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

برای استفاده از روش اول که توی فیلم آموزشی بالا برای تون گفته شد کد زیر را کپی نمایید👇

Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'********** ACADEMYRUHOLLAH.COM *************
Range("A1").Value = ActiveCell.Value
  End Sub

Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

'********** ACADEMYRUHOLLAH.COM *************

Range("A1").Value = ActiveCell.Value

End Sub

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

پیش نهاد آکادمی روح الله برای شما :

بازکردن ماشین حساب ویندوز در اکسل

Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'********* ACADEMYRUHOLLAH.COM *************
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
        End Sub

Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

'********* ACADEMYRUHOLLAH.COM *************

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

.ScaleHeight 2.5, msoFalse, msoScaleFromTopLeft

With .Fill

.ForeColor.SchemeColor = 44

.Visible = msoTrue

.Solid

.Transparency =

End With

xRg.Select

Application.ScreenUpdating = True

Set xRg = Nothing

Range("B2").Value = ActiveCell.Value

End Sub

میانگین رتبه 4.4/5 تعداد رای : 15

روح الله وکیل زاده

نظر شما در مورد این مقاله چیست؟

نظر یا سوال شما در این مورد چیست؟ انصراف

DARIUSH 1403/17/12

درود بر شما
ایا میشه به جای کلیک چپ , فقط با کلیک چپ و راست با هم زوم انجام بشه ؟ و یا مثلا کلید کنترل رو نگه داشته و کلیک کنیم . با تشکر از اموزشی که گذاشته‌اید.

پاسخ

روح الله وکیل زاده 1403/18/12

بله، می‌توان این قابلیت را با استفاده از VBA در اکسل پیاده‌سازی کرد. در اینجا دو روش مختلف را بررسی می‌کنیم:

1.بزرگنمایی با کلیک هم‌زمان چپ و راست ماوس
2. بزرگنمایی با نگه داشتن کلید Ctrl و کلیک چپ ماوس

روش اول: کلیک هم‌زمان چپ و راست ماوس برای زوم
از طریق رویداد MouseDown در Workbook می‌توان این قابلیت را پیاده‌سازی کرد. اما VBA مستقیماً کلیک هم‌زمان دو دکمه ماوس را تشخیص نمی‌دهد، بنابراین نیاز به ترفند داریم.

روش دوم: زوم با نگه داشتن Ctrl و کلیک چپ
این روش ساده‌تر است و می‌توان از Application.OnKey برای تشخیص Ctrl استفاده کرد.

کد VBA برای زوم با Ctrl + Click
این کد را در ماژول ThisWorkbook قرار دهید:

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) If CtrlPressed Then ActiveWindow.Zoom = 150 ' تنظیم درصد بزرگنمایی Cancel = True End If End Sub


Function CtrlPressed() As Boolean

    CtrlPressed = CBool(GetKeyState(vbKeyControl) And &H8000)

End Function

Private Declare PtrSafe Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer

🔹 نحوه عملکرد
– اگر Ctrl را نگه دارید و روی یک سلول دابل کلیک کنید، زوم روی آن انجام می‌شود.
– می‌توانید مقدار 150 را تغییر دهید تا بزرگنمایی موردنظر را تنظیم کنید.

اگر می‌خواهید دقیقاً با کلیک چپ و راست هم‌زمان این کار را انجام دهید، باید از APIهای پیشرفته‌تر ویندوز استفاده کنید که ممکن است پیچیدگی بیشتری داشته باشد.

محمد 1402/08/11

سلام و خسته نباشید
یه سوال داشتم در مورد دومین کد اینکه سایز رو کوچکتر میکنیم ولی اعمال نمیشه خواستم نوع کوچک کردن سایز و ذخیره را توضیح بدهید.
با تشکر

روح الله وکیل زاده 1402/09/11

سلام ارادت خدمت شما دوست عزیز
توی کد ها قسمت
.ScaleWidth ۲.۵, msoFalse, msoScaleFromTopLeft .ScaleHeight ۲.۵, msoFalse, msoScaleFromTopLeft
این کد ها میتوانید هر سایز که دوست دارید بدهید بعد از تغییرات فایل را ذخیره کنید تا کد های جدید اعمال بشه به همین راحتی
موفق باشید

سلامم 1402/26/10

سلام. این کد دوم که قرار دادید کار نمیکنه. یعنی وقتی قرار میدیم ارور 1004 میده و به این بند گیر میده:
Application.ActiveSheet.Pictures.Paste.Select

روح الله وکیل زاده 1402/03/11

سلام ارادت خدمت شما
بله، به نظر می‌آید که مشکل در کد VBA شما وجود دارد. ارور 1004 به عنوان خطا در زمان اجرا شناخته می‌شود و معمولاً به مشکلاتی در دستورها یا اشیاء مرتبط با Excel اشاره دارد.

برای رفع این مشکل، چند نکته را بررسی کنید:

اطمینان حاصل کنید که شیء فعلی معتبر است. به عنوان مثال، اگر شما در حال کار با ورکشیت خاصی هستید، اطمینان حاصل کنید که آن ورکشیت وجود دارد و شناسه‌اش صحیح است.

اطمینان حاصل کنید که در حالتی که کد اجرا می‌شود، تصویر در کلیپ‌بورد قرار دارد.

اگر از کدی قبلی که تصاویر را در ورکشیت می‌گذارد استفاده کرده‌اید، مطمئن شوید که آن کد به درستی کار می‌کند.

برای بیشترین دقت در رفع این مشکل، ممکن است کد کامل شما را ببینم. اگر می‌خواهید، کد را به برایم ارسال فرمایید تا بتوانم بهترین راهنمایی را ارائه دهم.
شاد باشید

فرزانه 1401/20/07

سلام.اگه عکسی داخل سلول قرار بدهیم و سلول های روبرو اطلاعات مربوط به عکس. با چه روشی می توان عکس را بزگنمایی کرد بدون اینکه سایز سلول تغییر کند؟

روح الله وکیل زاده 1401/08/08

سلام ارادت خدمت شما دوست عزیز
این مورد را میتوانید از تنظیمات سلول های در اکسل انجام بدهید اگر آشنایی ندارد بگوید تا برای تون یک آموزش در این زمینه آماده کنم
موفق باشید مثل همیشه

محمد کاکاوندی 1401/09/03

سلام خداقوت
چطور میشه از روش 2 واسه تصاویر هم استفاده کرد؟ مثلا رو تصویر بزنی و زوم بشه تصویر

روح الله وکیل زاده 1401/10/03

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

مجتبی 1400/09/09

سلام . کار نمیکنه

روح الله وکیل زاده 1400/09/09

سلام ارادت خدمت شما دوست عزیز
یک فیلم آموزشی درحال ضبط هستم در این زمینه که چطور بتوانید از این کد ها استفاده کنید منتظر باشید از طریق کانال آکادمی روح الله برای شما اطلاع رسانی میشود
موفق پیروز باشید مثل همیشه

مجتبی 1400/10/09

سلام. ممنون از تلاش شما برای ارتقاء دانش تخصصی هموطنان. از پی گیری شما هم ممنونم. انجام شد.

روح الله وکیل زاده 1400/13/09

ارادت خدمت شما دوست عزیز
خوشحال هستم که توانستم به یکی از دوستان و هموطنان خود کمک کنم
موفق باشید مثل همیشه