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

كيفية إدراج صف جديد فارغ تلقائيًا بواسطة زر الأمر في إكسيل؟

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

أدخل صفًا جديدًا فارغًا تلقائيًا بواسطة زر الأمر


أدخل صفًا جديدًا فارغًا تلقائيًا بواسطة زر الأمر

يمكنك تشغيل التعليمات البرمجية لـ VBA التالية لإدراج صف جديد فارغ بالنقر فوق زر الأمر. الرجاء القيام بما يلي.

1. أولاً ، تحتاج إلى إدخال زر الأمر. من فضلك اضغط المطور > إدراج > زر الأمر (عنصر تحكم ActiveX). انظر لقطة الشاشة:

2. ثم ارسم زر الأمر إلى ورقة العمل التي تريد إضافة صفوف جديدة إليها ، انقر بزر الماوس الأيمن فوق زر الأمر وانقر عقارات من قائمة النقر بزر الماوس الأيمن.

3. في ال عقارات في مربع الحوار ، أدخل النص المعروض لزر الأمر في ملف شرح مربع تحت مصنف علامة التبويب ، ثم أغلق مربع الحوار.

يمكنك أن ترى تغيير النص المعروض لزر الأمر كما هو موضح أدناه لقطة الشاشة.

4. انقر بزر الماوس الأيمن فوق زر الأمر مرة أخرى ، ثم انقر فوق عرض الرمز من قائمة النقر بزر الماوس الأيمن.

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

رمز فبا: أدخل صفًا جديدًا فارغًا تلقائيًا بواسطة زر الأمر

Private Sub CommandButton1_Click()
    Dim rowNum As Integer
    On Error Resume Next
    rowNum = Application.InputBox(Prompt:="Enter Row Number where you want to add a row:", _
                                    Title:="Kutools for excel", Type:=1)
    Rows(rowNum & ":" & rowNum).Insert Shift:=xlDown
End Sub

ملاحظة: في الكود ، CommanButton1 هو اسم زر الأمر الذي قمت بإنشائه.

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

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

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


مقالات ذات صلة:


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

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٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (22)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل يمكن لأي شخص أن ينصحني كيف يمكنني تعديل هذا لإضافة الصف الجديد تلقائيًا إلى أسفل جدول Excel؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل وجدت الجواب؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، أنا أستخدم هذا الرمز ولكنه لا يؤدي إلى إسقاط الصيغ من الصف السابق ، هل يمكنك المساعدة من فضلك.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
العزيز كيم،

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

مع أطيب التحيات ، كريستال
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يمكن أن توفر لنا مثالا؟ لا تتبع ما تقوله هنا. شكرًا
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا،
يرجى تحويل النطاق الخاص بك إلى نطاق جدول لإخراج الصيغة تلقائيًا عند إدراج صفوف جديدة. انظر لقطة الشاشة:
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أواجه نفس المشكلة مثل Kim - عندما تكون الورقة غير محمية ، فإنها تضيف الصف بالتنسيق الصحيح والصيغ الصحيحة. بمجرد حماية الورقة ، لا تنسخ الصيغ. أي أفكار؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عزيزتي ميشيل ،
بشكل افتراضي ، لا تسمح ورقة العمل المحمية بإدراج صف فارغ.
لذلك ، لا يمكن أن تعمل التعليمات البرمجية لـ VBA في هذه الحالة.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل هناك طريقة لإضافة زر "إدراج صف" وجعل الصفوف الجديدة تحتفظ بالخلايا مدمجة / منسقة كما هي في باقي الجدول؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا سايمون ،
آسف يمكن أن تساعد في حل هذه المشكلة حتى الآن. شكرا على تعليقك.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل هناك طريقة لجعل الصف الجديد يحتفظ بتنسيق الصف أدناه بدلاً من الصف أعلاه؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا تارل ،
آسف يمكن أن تساعد في حل هذه المشكلة حتى الآن. شكرا على تعليقك.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
نعم ، لقد لعبت مع النص وعمل معي. ما عليك سوى إضافة رقم الصف الذي تريده (اخترت الصف 6) ، لكنني سأصاب بالصدمة إذا سمح بنشره.

أمر فرعي خاص
خافت صف رقم كعدد صحيح
على خطأ استئناف التالي
صفوف (rowNum & "6"). أدخل Shift: = xlDown
نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يمكن إدراج صف ورقة متعددة في وقت واحد انقر فوق هذا.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا،
يمكن أن يساعدك الكود أدناه في حل المشكلة. يرجى المحاولة.

أمر فرعي خاص
خافت xIntRrow كعدد صحيح
خافت صف رقم كعدد صحيح
على خطأ استئناف التالي
rowNum = Application.InputBox (موجه: = "أدخل رقم الصف حيث تريد إضافة صف:"، _
العنوان: = "Kutools for excel" النوع: = 1)
xIntRrow = Application.InputBox (موجه: = "اكتب عدد الصفوف التي تريد إدراجها" ، _
العنوان: = "Kutools for excel" النوع: = 1)
الصفوف (rowNum + 1 & ":" & rowNum + 1) .EntireRow.Resize (xIntRrow). أدخل التحول: = xlShiftDown

نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل من الممكن إنشاء ورقة مختلفة؟ أنا حقا أحتاج ذلك
تم تصغير هذا التعليق بواسطة المشرف على الموقع
Sub AddNewRow ()



أمر فرعي خاص

ActiveSheet.Unprotect Password: = "1234"



خافت أوراق MySheets

خافت أنا طويلة



mySheets = Array ("Sheet2")



بالنسبة إلى i = LBound (mySheets) إلى UBound (MySheets)

مع الأوراق (mySheets (i))

.Range ("B10"). EntireRow.Insert Shift: = xlDown

.Range ("B10: H10"). Borders.Weight = xlThin

انتهت ب

أنا القادم



كلمة مرور ActiveSheet.Protect: = "1234"



نهاية الفرعية

لا أعرف ما إذا كان هذا سيعمل من أجلك. عملت بشكل جيد بالنسبة لي. حتى أنني تركت خلايا غير محمية يمكنك إدخال البيانات ولا تزال الصيغ نشطة. استغرق مني يوما كاملا لمعرفة ذلك. استبدل "1234" بأي كلمة مرور تريدها ، و "Sheet2" بالجدول الذي تعمل به وأدخل النطاق الذي تريده.
يقوم الكود أولاً بإلغاء حماية ورقة العمل ، ويضيف صفًا ويحمي ورقة العمل.
kiongakamau@gmail.com
تم تصغير هذا التعليق بواسطة المشرف على الموقع
Hi

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

أمر فرعي خاص
خافت xIntRrow كعدد صحيح
خافت صف رقم كعدد صحيح
على خطأ استئناف التالي
rowNum = Application.InputBox (موجه: = "أدخل رقم الصف حيث تريد إضافة صف:"، _
العنوان: = "Kutools for excel" النوع: = 1)
xIntRrow = Application.InputBox (موجه: = "اكتب عدد الصفوف التي تريد إدراجها" ، _
العنوان: = "Kutools for excel" النوع: = 1)
الصفوف (rowNum + 1 & ":" & rowNum + 1) .EntireRow.Resize (xIntRrow). أدخل التحول: = xlShiftDown
الصفوف (rowNum). الحجم (xIntRrow + 1)

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

Private Sub CommandButton1_Click()
'Updated by Extendoffice 20220707
    Dim rowNum As Integer
    Dim xRg1, xRg2 As Range
    
    On Error Resume Next
    
    rowNum = Application.InputBox(Prompt:="Enter Row Number where you want to add a row:", _
                                    Title:="Kutools for excel", Type:=1)
    
    Rows(rowNum & ":" & rowNum).Insert Shift:=xlDown
    Rows((rowNum - 1) & ":" & (rowNum - 1)).Copy
    Rows(rowNum & ":" & rowNum).Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Range("F" & rowNum).Value = ""
End Sub
تم تصغير هذا التعليق بواسطة المشرف على الموقع
Caros colegas، após pesquisar (bastante) na net não consegui encontrar um atalho، comando، código، nada، nada، que eu posa usar para inserir em uma macro APENAS uma forma de inserir uma linha ABAIXO da célula ativa. Isto porquê se eu gravar o endereço da célula، ele não muda، fica semper na mesma célula e as seguintes não vão ficar corretamente abaixo eu se eu usar um endereço de célula fixo، a linha tem que seraserida acima fixo فورما ديسيجادا ، كيو سيريا أو فورماتو داس لينهاس دي سيما.

Acho que o código موجود ، só não encontro ، já tentei várias formas ، selecionando um fixo ، subindo uma linha e pedindo para inserir após ، mas as seguintes não funcionam de acordo.

الجيم poderia لي ajudar؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
... Testei os códigos acima، mas، como se trata de pessoas que vão usar، não é viável os box que pedem a linha ea quantidade، não dá ...
تم تصغير هذا التعليق بواسطة المشرف على الموقع
Criei uma linha e nomeei como spotB ،
Mudei a altura da linha para 0,01،XNUMX para ocultá-la (apenas por estética).
كريي أم بوتاو:
مرجع Application.Goto: = "spotB"
التحديد. الصف بالكامل. إدراج

حل مشكلة.

Obrigado pelos códigos a Mah e crystal، mas eu tinha 8 títulos paraeparar، cada um inserindo linhas quando required ao usuário، e não queria nenhuma pergunta sobre quantidade de linhas، os euários não leem perguntas. .
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

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