Note: The other languages of the website are Google-translated. Back to English

كيفية تكبير أو تكبير الخلايا المحددة في إكسيل؟ 

كما نعلم جميعًا ، يحتوي Excel على ميزة Zoom لمساعدتنا على زيادة حجم قيمة الخلية في ورقة العمل بأكملها. لكن ، في بعض الأحيان ، نحتاج فقط إلى تكبير أو تكبير الخلايا المحددة فقط. هل توجد أي أفكار جيدة لنا لتكبير الخلايا المحددة في ورقة العمل فقط؟

تكبير أو تكبير الخلية المحددة برمز VBA


تكبير أو تكبير الخلية المحددة برمز VBA

قد لا يكون هناك طريقة مباشرة لنا لتكبير الخلايا المحددة في Excel ، ولكن ، هنا ، يمكنني تقديم رمز VBA للتعامل مع هذه الوظيفة كحل بديل. الرجاء القيام بما يلي:

1. انقر بزر الماوس الأيمن فوق علامة تبويب الورقة التي تريدها لتكبير الخلايا المحددة تلقائيًا ، ثم اختر عرض الرمز من قائمة السياق ، في فتح Microsoft Visual Basic للتطبيقات نافذة ، انسخ والصق الكود التالي في الوحدة النمطية الفارغة:

كود فبا: تكبير أو تكبير الخلايا المحددة:

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

2. ثم احفظ وأغلق نافذة الكود هذه ، الآن ، عند تحديد أو النقر فوق بعض خلايا البيانات ، سيتم تكبير الخلايا كصورة تلقائيًا ، انظر لقطة الشاشة:

ملاحظة: سيتم تغيير الخلايا المحددة مرة أخرى إلى الحجم الأصلي بعد تحديد الخلايا الأخرى.


أفضل أدوات إنتاجية المكتب

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

  • إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
  • حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
  • نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
  • اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
  • أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.
علامة تبويب kte 201905

يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (10)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هذا رائع ، لكنني أريده أن يعمل في جميع الأوراق ، كيف يمكنني القيام بذلك؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا احمد
لتطبيق هذه العملية في جميع أوراق العمل ، يمكنك استخدام كود vba أدناه. (يجب أن تضع الكود في وحدة ThisWorkbook) الرجاء المحاولة.
Private Sub Workbook_SheetSelectionChange (ByVal sh As Object ، ByVal Target As Range)
خافت xRg كمدى
خافت xCell كمجموعة
خافت x شكل كمتغير
قم بتعيين xRg = Target.Areas (1)
لكل xShape في ActiveSheet.Pictures
إذا كان xShape.Name = "zoom_cells" إذن
xShape.Delete
إنهاء حالة
التالى
إذا كان Application.WorksheetFunction.CountBlank (xRg) = xRg.Count ثم اخرج من الفرع
Application.ScreenUpdating = خطأ
xRg.CopyPicture المظهر: = xlScreen ، التنسيق: = xlPicture
Application.ActiveSheet.Pictures.Paste.Select
مع التحديد
.Name = "zoom_cells"
مع .ShapeRange
.ScaleWidth 1.5، msoFalse، msoScaleFromTopLeft
.ScaleHeight 1.5 ، msoFalse ، msoScaleFromTopLeft
مع
.ForeColor.SchemeColor = 44
.Visible = msoTrue
.صلب
الشفافية = 0
انتهت ب
انتهت ب
انتهت ب
xRg اختر
Application.ScreenUpdating = ترو
تعيين xRg = لا شيء
نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أريد التكبير عند إدخال البيانات
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا،
ربما لا توجد طريقة مباشرة لحل مشكلتك ، إذا وجدت طريقة جيدة ، يرجى التعليق هنا.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
خطأ 1004 في السطر 15

Application.ActiveSheet.Pictures.Paste.Select

لماذا ؟، ماذا يمكن أن يكون؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا مازي ،
يعمل الكود أعلاه بشكل جيد في مصنف Excel الخاص بي ، ما هو إصدار Excel الذي تستخدمه؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا،
أنا أستخدم Mac-Air وهو يظهر اللون فقط عند النقر فوق خلية معينة ، دليل الثابتة والمتنقلة.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لدي نفس المشكلة على MBA M2 الخاص بي الذي يعمل بنظام Excel V16.62 ، بخلفية زرقاء ولكن لا يوجد نص
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا،
هذا شيء عظيم، شكرا لك.

هل سيكون من الممكن أن يكون هذا فقط على مجموعة مختارة من الخلايا في ورقة؟ على سبيل المثال ، كل الخلايا في العمود A ، أو من A3 إلى A26 على سبيل المثال؟
شكرا!
ريس
تم تصغير هذا التعليق بواسطة المشرف على الموقع
Ragazzi perso cos 'non posso correggere la singola cella ... esiste un modo per ingrandire la singola cella una volta selezionata e lavorarci sopra؟
لا توجد تعليقات منشورة هنا حتى الآن

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL