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

كيفية منع الترقيم التلقائي في رأس العمود المكرر في جدول Excel؟

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

إضافة مسافات لاحقة إلى الرأس تلقائيًا

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


إضافة مسافات لاحقة إلى الرأس تلقائيًا

1. اكتب الرؤوس التي تريد تكرارها في عمود ، ثم اضغط قديم + F11 مفاتيح للتمكين ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. انقر إدراج > وحدة لإنشاء وحدة جديدة في ميكروسوفت فيسوال باسيك للتطبيقات ، ثم انسخ الكود أدناه والصقه فيه.

فبا: كرر وإضافة مسافات لاحقة

Sub repeat()
'UpdatebyExtendoffice20220927
    Dim xRg As Range
    Dim saveRg As Range
    Dim xIndex As Integer
    Dim xCount As Integer
    Dim k As Integer
    Dim xStr As String
    Set xRg = Application.InputBox("Select the cells that you want to repeat", "kte", , , , , , 8)
    xIndex = Application.InputBox("Enter the repeat times", "kte")
    Set saveRg = Application.InputBox("Select a cell to output", "kte", , , , , , 8)
    xStr = ""
    xCount = xRg.Cells.Count * xIndex
    Set saveRg = saveRg.Range("a1").Resize(1, xCount)
    k = 0
    For i = 1 To xIndex
        For j = 1 To xRg.Cells.Count
            k = k + 1
            saveRg.Cells(k).Value = xRg.Cells(j).Value + xStr
        Next
        xStr = xStr + " "
    Next
End Sub

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

3. انقر يجري الإكمال التلقائي من قائمة أخرى زر في الشريط أو اضغط F5 مفتاح لتنشيط الرمز ، في مربع الحوار الأول ، حدد الرؤوس التي تريد تكرارها. انقر OK.
الإكمال التلقائي من قائمة أخرى

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

5. حدد الخلية التي تريد إخراج الرؤوس المتكررة. انقر OK.
الإكمال التلقائي من قائمة أخرى

الآن تم تكرار الرؤوس وإضافتها بمسافات لاحقة.
الإكمال التلقائي من قائمة أخرى

6. حدد العناوين وانسخها بالضغط CTRL + C، ولصقها مرة أخرى على الطاولة التي تحتاجها بالضغط CTRL + الخامس.

يمكنك الآن رؤية الجدول يحتوي على رؤوس أعمدة مكررة بدون ترقيم.
الإكمال التلقائي من قائمة أخرى


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

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

كيف تحافظ على قيادة الفاصلة العليا عند الكتابة في Excel؟
كما نعلم ، عندما تريد تغيير رقم إلى نص ، يمكنك إدخال رمز الفاصلة العليا في المقدمة مثل هذا: '123 ، وسيتم تحويل الرقم إلى نص وإخفاء الفاصلة العليا.

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

كيفية إيقاف Excel من تنسيق التواريخ تلقائيًا في CSV؟
إليك ملف csv يحتوي على التاريخ بتنسيق نص 12-May-20 ولكن عند فتحه من خلال Excel ، سيتم تخزينه تلقائيًا كتنسيق تاريخ ...


  • سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
  • دمج الخلايا / الصفوف / الأعمدة وحفظ البيانات. تقسيم محتوى الخلايا ؛ اجمع الصفوف المكررة والمجموع / المتوسط... منع تكرار الخلايا؛ قارن النطاقات
  • حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
  • نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
  • المفضلة وإدراج الصيغ بسرعةوالنطاقات والمخططات والصور ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
  • اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
  • تجميع الجدول المحوري حسب رقم الأسبوع واليوم من الأسبوع والمزيد ... إظهار الخلايا غير المؤمنة والمغلقة بألوان مختلفة قم بتمييز الخلايا التي لها صيغة / اسم
علامة تبويب kte 201905
  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations