نصيحة: اللغات الأخرى مترجمة من قبل Google. يمكنك زيارة English نسخة من هذا الرابط.
تسجيل الدخول
x
or
x
x
التسجيل
x

or

كيفية الحفاظ على الجدول قابلة للتوسيع عن طريق إدراج صف الجدول في ورقة عمل محمية في إكسيل؟

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

إبقاء الجدول قابلة للتوسيع عن طريق إدراج صف الجدول في ورقة عمل محمية مع التعليمات البرمجية فبا

علامة تبويب Office تمكين التحرير والتصفح في Tabbed ، وجعل عملك أسهل بكثير ...
Kutools for Excel يحل معظم مشاكلك ، ويزيد من إنتاجيتك بنسبة 80٪
  • إعادة استخدام أي شيء: أضف الصيغ الأكثر استخدامًا أو تعقيدًا والمخططات وأي شيء آخر إلى مفضلاتك ، ثم أعد استخدامها سريعًا في المستقبل.
  • أكثر من ميزات نص 20: استخراج الرقم من سلسلة النص ؛ استخراج أو إزالة جزء من النصوص ؛ تحويل الأرقام والعملات إلى الكلمات الإنجليزية.
  • دمج الأدوات: العديد من المصنفات والأوراق في واحد ؛ دمج خلايا / صفوف / أعمدة متعددة دون فقدان البيانات ؛ دمج الصفوف المكررة ومجموع
  • أدوات الانقسام: تقسيم البيانات إلى أوراق متعددة بناءً على القيمة ؛ مصنف واحد إلى ملفات Excel أو PDF أو CSV متعددة ؛ عمود واحد إلى أعمدة متعددة.
  • لصق الطفر الصفوف المخفية / المصفاة ؛ عدد ومبلغ بواسطة لون الخلفية. إرسال رسائل البريد الإلكتروني الشخصية إلى مستلمين متعددين بكميات كبيرة.
  • فلتر سوبر: إنشاء مخططات تصفية متقدمة وتطبيقها على أي أوراق ؛ تصنيف حسب: حسب الأسبوع ، اليوم ، التردد وغير ذلك ؛ تصفية / فلترة بواسطة جريئة ، الصيغ ، التعليق ...
  • أكثر من ميزات 300 القوية ؛ يعمل مع Office 2007-2019 و 365 ؛ يدعم جميع اللغات ؛ سهولة النشر في مؤسستك أو مؤسستك.

السهم الأزرق الفقاعة اليمنى إبقاء الجدول قابلة للتوسيع عن طريق إدراج صف الجدول في ورقة عمل محمية مع التعليمات البرمجية فبا


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

1. انقر المطور > إدراج > زر (التحكم في النموذج) لإدراج a التحكم في النموذج في ورقة العمل.

2. في ظهرت تعيين ماكرو مربع الحوار، انقر فوق جديد .

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

رمز فبا: حافظ على توسيع الجدول عن طريق إدراج صف جدول في ورقة عمل محمية

Dim pswStr As String
'Update by ExtendOffice 20181106
    pswStr = "123"
    On Error Resume Next
   Application.ScreenUpdating = False
    ActiveSheet.Unprotect Password:=pswStr
       ActiveSheet.Range("A1").Select
        Range("Table1[[#Headers],[Total]]").Select
        Selection.End(xlDown).Select
        Selection.Offset(1, 0).Select
        ActiveCell.FormulaR1C1 = "new"
        ActiveSheet.Protect Password:=pswStr, DrawingObjects:=False, _
                        Contents:=True, Scenarios:=False, _
                        AllowFormattingCells:=True, AllowFormattingColumns:=True, _
                        AllowFormattingRows:=True, AllowInsertingColumns:=True, _
                        AllowInsertingRows:=True, AllowInsertingHyperlinks:=True, _
                        AllowDeletingColumns:=True, AllowDeletingRows:=True, _
                        AllowSorting:=True, AllowFiltering:=True, _
                        AllowUsingPivotTables:=True
    Selection.ClearContents
    Application.ScreenUpdating = True

الملاحظات:

1). في التعليمات البرمجية، رقم "شنومك" هي كلمة المرور التي ستستخدمها لحماية ورقة العمل.

2). يرجى تغيير اسم الجدول واسم العمود الذي يحتوي على صيغة ستحميها.

3). وتغيير الإزاحة في التعليمات البرمجية Selection.Offset (شنومكس، -1). حدد العمود الهدف الأول من الجدول. على سبيل المثال، إذا كان هناك ستة أعمدة في الجدول، يرجى تغيير الإزاحة إلى (شنومكس، -4).

4. اضغط على قديم + Q مفاتيح لإغلاق نافذة ميكروسوفت فيسوال باسيك فور أبليكاتيونس.

5. حدد الخلايا في الجدول الذي تحتاجه لتعيين بيانات جديدة إلى ما عدا عمود الصيغة، ثم اضغط على CTRL + 1 مفاتيح لفتح تنسيق الخلايا صندوق المحادثة. في ال تنسيق الخلايا مربع الحوار، قم بإلغاء تحديد مقفل مربع، ثم انقر فوق OK زر. انظر لقطة الشاشة:

6. الآن حماية ورقة العمل الخاصة بك مع كلمة المرور التي حددتها في التعليمات البرمجية فبا.

من الآن فصاعدا، بعد النقر على زر "التحكم في النموذج" في ورقة العمل المحمية، سيتم توسيع الجدول عن طريق إدراج صف جديد كما هو موضح أدناه لقطة شاشة.

ملاحظة:: يمكنك تعديل الجدول باستثناء عمود الصيغة في ورقة العمل المحمية.


السهم الأزرق الفقاعة اليمنىمقالات ذات صلة:


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

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

علامة تبويب Office توفر واجهة مبوبة لـ Office ، واجعل عملك أسهل بكثير

  • تمكين تحرير علامات التبويب والقراءة في Word و Excel و PowerPointوالناشر والوصول ، Visio ومشروع.
  • افتح مستندات متعددة وقم بإنشائها في علامات تبويب جديدة لنفس النافذة ، وليس في نوافذ جديدة.
  • يزيد إنتاجيتك بنسبة 50٪ ، ويقلل مئات نقرات الماوس لك كل يوم!
أسفل مكتبه
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Michelle · 4 months ago
    Hello, I used the above code and got the following error message:
    "Code execution has been interrupted". When I click on Debug, Line 20 "Selection.ClearContents" is highlighted.

    When I initially entered the code, it worked correctly.

    I changed "Table" to the name of the table and change the column to the name of the column I am using. I also changed the "Selection.Offset (x,-x).Select" to match my needs.


    Any suggestions as to why this is occurring?
  • To post as a guest, your comment is unpublished.
    Mac · 9 months ago
    Try this Vba code for add new line in you table

    Sub Tab_Line_Add()
    Dim pswStr As String
    pswStr = "123"
    On Error Resume Next
    Application.ScreenUpdating = False
    ActiveSheet.Unprotect Password:=pswStr
    ActiveSheet.Range("D8").Select
    'D8 is tabel header
    Range("Table1[[#Headers],[Total]]").Select
    Selection.End(xlDown).Select
    Selection.ListObject.ListRows.Add AlwaysInsert:=False
    ActiveSheet.Protect Password:=pswStr

    End Sub
    .
    • To post as a guest, your comment is unpublished.
      sohael al-husainy · 4 months ago
      using the suggested (Selection.ListObject.ListRows.Add AlwaysInsert:=False) fixed a similar problem for me with the original code, where a new full row (extending down cell contained formulas) would not be added to the table on a much wider table 51 columns. So thanks for sharing and fixing Mac.
    • To post as a guest, your comment is unpublished.
      crystal · 9 months ago
      Hi Mac,
      Thanks for sharing.
  • To post as a guest, your comment is unpublished.
    Brandi · 1 years ago
    So I tried this however it adds a new row at the bottom of the workbook on line 1048576 however my table only has about 800 records. I have no idea why it's doing this!
    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Hi Brindi,
      The code has been updated with the problem solved, please have a try and thank you for your comment.
      • To post as a guest, your comment is unpublished.
        Ali · 10 months ago
        Hi Crystal, theproblem is same. I created a new table for myself with only 2 rows. Once I click the button the list is expanded till end of table without adding any Rows. It should be adding to Row number 3.
      • To post as a guest, your comment is unpublished.
        Ali · 10 months ago
        Hi Crystal, theproblem is same. I created a new table for myself with only 2 rows. Once I click the button the list is expanded till end of table without adding any Rows. It should be adding to Row number 3.