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

كيفية زيادة حجم خط القائمة المنسدلة في Excel؟

doc زيادة حجم الخط القائمة المنسدلة 1

القائمة المنسدلة هي ميزة مفيدة للغاية في Excel ، عند إنشاء قائمة منسدلة في ورقة العمل الخاصة بك ، هل سبق لك أن حاولت زيادة حجم الخط في القائمة المنسدلة لجعل السجل المحدد أكبر وأكثر قابلية للقراءة كما هو موضح في لقطة الشاشة اليسرى؟ ستتحدث هذه المقالة عن حل بديل لحلها.

قم بزيادة حجم خط القائمة المنسدلة باستخدام رمز VBA لتكبير التكبير / التصغير


قم بزيادة حجم خط القائمة المنسدلة باستخدام رمز VBA لتكبير التكبير / التصغير

في الواقع ، لا توجد طريقة مباشرة لنا لزيادة حجم الخط في القائمة المنسدلة ، ولكن يمكنك تطبيق رمز VBA التالي لتغيير إعداد تكبير خلايا القائمة المنسدلة لجعل النص يبدو أكبر. الرجاء القيام بما يلي:

1. انتقل إلى ورقة العمل التي تحتوي على القائمة المنسدلة التي تريد زيادة حجم خطها.

2. انقر بزر الماوس الأيمن فوق علامة تبويب الورقة ، وحدد عرض الرمز من قائمة السياق ، في النافذة المنبثقة ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، يرجى نسخ ولصق الكود التالي في الفراغ وحدة نافذة:

كود فبا: قم بزيادة حجم خط القائمة المنسدلة لتكبير تكبير الخلية

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'updateby Extendoffice
    On Error GoTo LZoom
    Dim xZoom As Long
    xZoom = 100
    If Target.Validation.Type = xlValidateList Then xZoom = 130
LZoom:
    ActiveWindow.Zoom = xZoom
End Sub

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

ملاحظة: في الكود أعلاه ، xZoom = 130 سيغير تكبير خلايا القائمة المنسدلة ليكون 130، يمكنك تغيير رقم التكبير هذا حسب حاجتك.


إنشاء قائمة منسدلة مع مربعات الاختيار في Excel

إذا كنت بحاجة إلى إنشاء قائمة منسدلة مع مربعات اختيار متعددة من أجل تحديد عناصر متعددة من القائمة في خلية واحدة ، فربما لا توجد طريقة مباشرة لحل هذه المهمة. لكن، كوتولس ل إكسيل دعم ميزة مذهلة - قائمة منسدلة مع مربعات اختيار، باستخدام هذه الميزة ، يمكنك إنشاء قائمة منسدلة تحتوي على مربعات اختيار في نطاق محدد أو ورقة العمل الحالية أو المصنف الحالي أو جميع المصنفات المفتوحة بناءً على احتياجاتك بسرعة.  انقر لتنزيل Kutools for Excel!


العرض التوضيحي: قم بزيادة حجم خط القائمة المنسدلة باستخدام رمز VBA لتكبير التكبير / التصغير


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

Kutools for Excel يحل معظم مشاكلك ويزيد من إنتاجيتك عن طريق
و ان آكثر من 80%

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

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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك عن طريق
    و ان آكثر من 50%
    ، ويقلل من مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (27)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لذا ، فإن هذا الرمز يجعل الورقة بأكملها تكبير / تصغير ، وليس فقط المربع المنسدل. تقول أيضًا "لا يمكن حفظ ...... مشروع VB في مصنف ماكرو معطل". الخ الخ الخ. إذا اضطررت إلى البحث عن نصف فدان من الجحيم للحصول على إجابة كاملة لهذه المشكلة ، فهذه ليست إجابة.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
[اقتباس] لذا ، فإن هذا الرمز يجعل الورقة بأكملها تكبير / تصغير ، وليس فقط المربع المنسدل. تقول أيضًا "لا يمكن حفظ ...... مشروع VB في مصنف ماكرو معطل". الخ الخ الخ. إذا اضطررت إلى البحث عن نصف فدان من الجحيم للحصول على إجابة كاملة لهذه المشكلة ، فهذه ليست إجابة.بقلم مايكل[/ quote] ببساطة احفظ المصنف كـ xlsm واتبع الخطوات مرة أخرى. راجع للشغل حاولت ذلك ولم يعمل معي على الإطلاق ؛ لا يزال التكبير عند 100٪.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أنا أقوم بتشغيل Office 2016 وأستخدم المربعات المنسدلة. لقد جربت "زيادة حجم خط القائمة المنسدلة باستخدام رمز VBA لتكبير التكبير / التصغير" ولكنه لا يعمل. هل هناك أي شيء آخر يجب علي فعله لإنجاحه؟ شكرًا لك!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كما تشير الاتجاهات ، يجب تغيير التكبير / التصغير من "100" إلى "130" أو تكبير / تصغير مختلف لرؤية أي تغييرات. ومع ذلك ، فإن التعليق الأول دقيق لأنه لا يغير فقط القائمة المنسدلة ، ولكن بمجرد النقر فوق الخلية ، سيتم تكبير الورقة بأكملها بنسبة 1 ٪ لتكبير تلك الخلية. ليس مفيدًا جدًا لأنه يتعين عليك بعد ذلك التصغير في كل مرة.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أو حدد خلية بديلة في المصنف لإعادتها إلى 100 كما هو مذكور في الماكرو

تحديث ورقة العمل الفرعية الخاصة (التحديد ByVal Target As Range) Extendoffice 20160530 عند الخطأ ، انتقل إلى LZoom Dim xZoom بطول xZoom = 100 إذا كان Target.Validation.Type = xlValidateList ثم xZoom = 130LZoom: ActiveWindow.Zoom = xZoomEnd Sub
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، أتساءل فقط عن سبب اختفاء هذه الميزة بعد حفظ الملف وإعادة فتحه؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا نويل ، يجب عليك حفظ ملف Excel بتنسيق مصنف Excel Macro-Enabled.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
Dzięki za podpowiedź
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا ، انها تعمل بشكل جيد
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هذا لا يعمل بالنسبة لي. لقد قمت بلصق النص حسب التعليمات. عندما قمت بالنقر فوق القائمة المنسدلة ، كان حجم الخط هو نفسه. عندما قمت بعد ذلك بالنقر فوق خلية مختلفة ، زاد حجم جدول البيانات بالكامل ربما بنسبة 30٪. حقا أود الحصول على عمل إذا كان ذلك ممكنا
تم تصغير هذا التعليق بواسطة المشرف على الموقع
بعد استخدام هذا الرمز ، لا يمكنني استخدام مفتاح الإرجاع في Excel. كيف يمكنني كود (تثبيت) مفتاح العودة؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يؤدي هذا إلى تكبير الورقة بأكملها إلى 130٪
كيف أقوم بزيادة القائمة المنسدلة فقط؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا ديف ،
لزيادة القائمة المنسدلة فقط ، إليك حل بديل لحلها.

أولاً ، بعد إدراج القائمة المنسدلة في ورقة العمل الخاصة بك ، يجب عليك إدراج مربع تحرير وسرد (عناصر تحكم ActiveX) ، ثم تطبيق رمز VBA التالي في رمز الوحدة النمطية للورقة:

خافت xRg كمدى
مجموعة فرعية خاصة
على خطأ استئناف التالي
xRg.Value = Me.ComboBox1.Text
نهاية الفرعية
تغيير ورقة العمل الفرعية الخاصة (الهدف حسب القيمة كنطاق)
عند حدوث خطأ ، انتقل إلى LblExit
معي CompoBox1
.Visible = False
إذا كان Target.Validation.Type = xlValidateList ثم
Target.Validation.InCellDropdown = خطأ
.ListWidth = 120
.ListFillRange = ""
.ListFillRange = Target.Validation.Formula1
. اليسار = الهدف. اليسار
.Top = الهدف
. العرض = الهدف. العرض
.Height = الهدف
الخط الحجم = 16
. المرئي = صحيح
تعيين xRg = الهدف
إنهاء حالة
انتهت ب
خروج:
نهاية الفرعية

بعد إدخال الرمز ، الآن عند النقر فوق خلية القائمة المنسدلة ، سيتم عرض مربع تحرير وسرد ، وسيتم زيادة حجم الخط في القائمة المنسدلة حسب حاجتك. وسيتم إخفاء مربع التحرير والسرد المُدرج تلقائيًا.

من فضلك جربها ، آمل أن تساعدك!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عبقري! شكرا لك Skyyang! ممتن جدا لطريقتك! يعمل كالسحر!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يمكنك شرح ذلك خطوة بخطوة للدمى الثابتة والمتنقلة؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، ITALO ،
1. أدخل القائمة المنسدلة التي تحتاجها في ورقة العمل الخاصة بك ؛
2. ثم أدخل مربع تحرير وسرد (عناصر تحكم ActiveX) بالنقر فوق المطور> إدراج> مربع تحرير وسرد (عناصر تحكم ActiveX) ، ثم اسحب الماوس لرسم كائن مربع تحرير وسرد ؛
3. وبعد ذلك ، انقر بزر الماوس الأيمن فوق ورقة العمل المستخدمة حاليًا ، واختر عرض الرمز ، والصق الرمز أعلاه في الوحدة النمطية ؛
4. أخيرًا ، انقر فوق Design Mode (وضع التصميم) ضمن علامة التبويب Developer لتعطيله.
5. الآن عند النقر فوق خلية القائمة المنسدلة ، سيتم عرض مربع تحرير وسرد ، وسيتم زيادة حجم الخط في القائمة المنسدلة حسب حاجتك.
من فضلك حاول ، آمل أن يساعدك!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كيف يمكنني تطبيق حجم تغيير الخط هذا على عمود واحد فقط؟ لدي عدة أعمدة بها مربعات منسدلة وأريد عمودًا واحدًا محددًا فقط لتغيير حجم الخط؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، سؤال فقط لقد قمت بلصق الكود على نافذة وحدة فارغة (انقر بزر الماوس الأيمن في رمز العرض). بمجرد الحفظ ، تعمل بشكل جيد كان ذلك جيدًا. ولكن عندما أغلق الملف وأعد فتحه ، اختفى الرمز ولم يعد يتم تكبيره للقائمة المنسدلة. هل يمكنني معرفة كيفية ضبطه للاستخدام الدائم؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا ايس
لحفظ الرمز ، يجب عليك حفظ ملف Excel بتنسيق Excel Macro-Enabled Workbook. رجاء محاولة ذلك.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لدي عدة قوائم منسدلة وأحتاج فقط إلى قائمة أكبر لأن البقية هي نعم / لا. لكن الكود الذي شاركته يقوم بذلك من أجلهم جميعًا. كيف يمكنني استخدام هذا لقائمة منسدلة واحدة فقط؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا ايفون
لتطبيق الكود على خلية واحدة فقط ، قد يساعدك الرمز التالي: (ملاحظة: في الكود ، قم بتغيير الخلية I2 إلى مرجع الخلية الخاصة بك.)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'updateby Extendoffice
    On Error GoTo LZoom
    Dim xZoom As Long
    Dim xRg As Range
    xZoom = 100
    Set xRg = Range("I2")
    If Not Intersect(Target, xRg) Is Nothing Then
        If Target.Validation.Type = xlValidateList Then xZoom = 130
    End If
LZoom:
    ActiveWindow.Zoom = xZoom
End Sub

من فضلك حاول ، آمل أن يساعدك!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرًا لك على النصيحة الخاصة بتكبير حجم الخط في المربع المنسدل. فعلت الحيلة.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
Ocurre آل Revés. Al dar clic en cualquiera celda se agranda، pero no en la lista desplegable y no vuelve al tamaño original. برنامج Uso Excel 2010. Solución ، يحدث العكس. يؤدي النقر فوق أي خلية إلى تكبيرها ، ولكن ليس القائمة المنسدلة ولا تعود إلى الحجم الأصلي. يمكنني استخدام Excel 2010. الحل؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل يمكننا القيام بذلك لصندوق الإسقاط المتعدد؟ إذا لم يكن كذلك ، فما هو الإجراء الخاص بصندوق الإسقاط المتعدد.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
Ale po zamknięciu pliku i ponownym go otwarciu to rozwiązanie już nie działa.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أوكي. Trzeba zapisać plik z obsługą makra.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا صديق،
أنت محق. نحتاج إلى حفظ الملف الممكّن بماكرو حتى يعمل الحل. أتمنى لك يوماً عظيماً.

مع خالص الشكر والتقدير،
ماندي
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

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