انتقل إلى المحتوى الرئيسي

Excel: كيفية توسيع الخلية لإظهار كافة المحتويات عند النقر فوقها

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

قم بتوسيع الخلية لإظهار كافة المحتويات عن طريق إدراج عناصر تحكم Active X في مربع نص

قم بتوسيع الخلية لإظهار جميع المحتويات باستخدام Bigger Formula Bar of Kutools for Excel

ملاحظة: تم اختبار الطرق الواردة في هذا البرنامج التعليمي في Excel 2021 ، وقد يكون هناك بعض الاختلاف في إصدارات Excel المختلفة.


قم بتوسيع الخلية لإظهار كافة المحتويات عن طريق إدراج عناصر تحكم Active X في مربع نص

1. قم بتنشيط ورقة العمل التي تريد توسيع الخلية ، انقر فوقها المطور > إدراج > مربع نص (عناصر تحكم ActiveX).
الإكمال التلقائي من قائمة أخرى

إذا لم يكن هناك المطور علامة التبويب في الشريط ، يرجى عرضها في البداية ، يرجى الاطلاع على هذا البرنامج التعليمي كيفية إظهار / عرض علامة تبويب المطور في شريط Excel

2. ثم اسحب المؤشر لرسم مربع نص بعرض وارتفاع يمكن أن يظهر محتويات الخلايا الأطول. تذكر اسم مربع النص هذا ، هنا هو TextBox1.
الإكمال التلقائي من قائمة أخرى

3. انقر بزر الماوس الأيمن فوق مربع النص ، ثم انقر فوق عقارات من قائمة السياق. ثم في عقارات جزء ، اختر صواب من القوائم المنسدلة في متعدد الأسطر و WordWrap أقسام. ثم أغلق ملف عقارات الجزء.
الإكمال التلقائي من قائمة أخرى  الإكمال التلقائي من قائمة أخرى

أو يمكنك تحديد True من القائمة المنسدلة في حجم تلقائي في جزء الخصائص ، سيتم تغيير حجم مربع النص تلقائيًا بناءً على طول محتويات الخلية التي تنقر عليها.

4. انقر بزر الماوس الأيمن فوق علامة تبويب اسم الورقة في شريط الحالة ، ثم انقر فوق عرض الرمز من قائمة السياق.

5. في ال ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، انسخ والصق الرمز أدناه في البرنامج النصي الفارغ.

فبا: قم بتوسيع الخلية لإظهار المحتويات

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'UpdatebyExtendoffice
Dim xRgAddress As String
xRgAddress = "A1:B4" 'the range this VBA work, if you leave it is blank, it work for whole sheet
If xRgAddress = "" Then
  With TextBox1
        .Top = Target.Top
        .Left = Target.Offset(, 1).Left
        .Text = Target.Text
        .Visible = True
    End With
Else
    If Intersect(Target, Range(xRgAddress)) Is Nothing Then
        TextBox1.Visible = False
    Else
        With TextBox1
            .Top = Target.Top
           .Left = Target.Offset(, 1).Left
            .Text = Target.Text
            .Visible = True
        End With
    End If
End If
End Sub

الإكمال التلقائي من قائمة أخرى

لاحظ أن TextBox1 هو اسم مربع النص الذي رسمته ، وأن A1: B4 هو النطاق الذي يعمل به هذا الرمز ، قم بتغييره حسب حاجتك.

6. ارجع إلى الورقة ، انقر فوق المطور > وضع التصميم لوجود وضع التصميم.
الإكمال التلقائي من قائمة أخرى

الآن عند النقر فوق الخلية ، سيظهر مربع النص بجوارها ، ويعرض المحتويات الكاملة للخلية.
الإكمال التلقائي من قائمة أخرى


قم بتوسيع الخلية لإظهار جميع المحتويات باستخدام Bigger Formula Bar of Kutools for Excel

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

نصيحة:

1. باستخدام شريط الصيغة الأكبر ، باستثناء عرض محتويات الخلية النشطة ، يمكنك أيضًا تحرير محتويات الخلية في شريط الصيغة الأكبر.

2. يمكنك تغيير حجم شريط الصيغة الأكبر عن طريق سحب الزاوية اليمنى السفلية للشريط.

3. إذا قمت بتحديد أكثر من خلية واحدة ، فسيتم عرض محتويات الخلية الأولى فقط من التحديد في شريط الصيغة الأكبر.

مزيد من التفاصيل حول Bigger Formula Bar ، يرجى زيارة موقعه البرنامج التعليمي.


عمليات أخرى (مقالات)

كيفية إيقاف تشغيل الإكمال التلقائي
إليك خيار في Excel يمكنه إيقاف الإكمال التلقائي.

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

كيفية إكمال الخلايا تلقائيًا من جدول آخر
في هذا البرنامج التعليمي ، يتحدث عن كيفية الإكمال التلقائي لخلايا العمود الأخرى من جدول في ورقة أخرى بعد إدخال قيمة عمود واحد.

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


  • سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
  • دمج الخلايا / الصفوف / الأعمدة وحفظ البيانات. تقسيم محتوى الخلايا ؛ اجمع الصفوف المكررة والمجموع / المتوسط... منع تكرار الخلايا؛ قارن النطاقات
  • حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
  • نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
  • المفضلة وإدراج الصيغ بسرعةوالنطاقات والمخططات والصور ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
  • اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
  • تجميع الجدول المحوري حسب رقم الأسبوع واليوم من الأسبوع والمزيد ... إظهار الخلايا غير المؤمنة والمغلقة بألوان مختلفة قم بتمييز الخلايا التي لها صيغة / اسم
علامة تبويب kte 201905
  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
Comments (5)
Rated 4.5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
I am having the same issue as Neil. Code works fine, except when selecting any full row or column that include the cell range in the code, i am getting the Run-time error '94'. Invalid use of Null, highlighting to .Text = Target.Text. This code was very helpful except for the debug popping up every time. Please provide a solution
This comment was minimized by the moderator on the site
Hi, I have modified the code, it will not pop up a bug dialog when you select a column of cells or multiple cells, and the textbox will be hidden as well. Please try:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'UpdatebyExtendoffice
Dim xRgAddress As String
If Target.CountLarge > 1 Then
    TextBox1.Visible = False
    Exit Sub
End If
xRgAddress = "A1:A20" 'the range this VBA work, if you leave it is blank, it work for whole sheet
If xRgAddress = "" Then
  With TextBox1
        .Top = Target.Top
        .Left = Target.Offset(, 1).Left
        .Text = Target.Text
        .Visible = True
    End With
Else
    If Intersect(Target, Range(xRgAddress)) Is Nothing Then
        TextBox1.Visible = False
    Else
        With TextBox1
            .Top = Target.Top
           .Left = Target.Offset(, 1).Left
            .Text = Target.Text
            .Visible = True
        End With
    End If
End If
End Sub
This comment was minimized by the moderator on the site
Sunny, this is absolutely perfect - thank you so much for your time and expertise.
This comment was minimized by the moderator on the site
Good day, this code is great - I have two columns included in my code and the expanding text box pops up no issues when a cell is clicked - however, if I highlight multiple cells including one of the cells I wish to have the text box pop up - I get run-time error '94' - Invalid use of Null. Debugging highlights the 2nd 'Text = Target.Text' line.

Appreciate any feedback.
Rated 4.5 out of 5
This comment was minimized by the moderator on the site
Hi, do you want to show all contents of the selected cells to the textbox? Or just supports to select cells but show contents of the first one cell of the selection?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations