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

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

اقرأ أكثر... تحميل مجاني ... شراء...

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

تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!

اقرأ أكثر... تحميل مجاني ... شراء...

التعليقات (22)

لا يوجد تقييم. كن أول من يقيم!

ليديا

منذ حوالي 5 سنوات

#19766

تم تصغير هذا التعليق بواسطة المشرف على الموقع

هل يمكن لأي شخص أن ينصحني كيف يمكنني تعديل هذا لإضافة الصف الجديد تلقائيًا إلى أسفل جدول Excel؟

رد

رافيف ليديا

منذ حوالي 5 سنوات

#19767

تم تصغير هذا التعليق بواسطة المشرف على الموقع

هل وجدت الجواب؟

رد

كيم

منذ حوالي 5 سنوات

#20541

تم تصغير هذا التعليق بواسطة المشرف على الموقع

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

رد

كريستال كيم

منذ حوالي 5 سنوات

#20542

تم تصغير هذا التعليق بواسطة المشرف على الموقع

العزيز كيم،

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

مع أطيب التحيات ، كريستال

رد

بلغ

روبرت كريستال

منذ حوالي 4 سنوات

#20543

تم تصغير هذا التعليق بواسطة المشرف على الموقع

يمكن أن توفر لنا مثالا؟ لا تتبع ما تقوله هنا. شكرًا

رد

كريستال روبرت

منذ حوالي 4 سنوات

#20544

تم تصغير هذا التعليق بواسطة المشرف على الموقع

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

رد

بلغ

ميشيل إس

منذ حوالي 4 سنوات

#24705

تم تصغير هذا التعليق بواسطة المشرف على الموقع

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

رد

بلغ

كريستال ميشيل إس

منذ حوالي 4 سنوات

#24706

تم تصغير هذا التعليق بواسطة المشرف على الموقع

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

رد

بلغ

سيمون

منذ حوالي 4 سنوات

#26845

تم تصغير هذا التعليق بواسطة المشرف على الموقع

هل هناك طريقة لإضافة زر "إدراج صف" وجعل الصفوف الجديدة تحتفظ بالخلايا مدمجة / منسقة كما هي في باقي الجدول؟

رد

كريستال سيمون

منذ حوالي 3 سنوات

#26846

تم تصغير هذا التعليق بواسطة المشرف على الموقع

مرحبا سايمون ،
آسف يمكن أن تساعد في حل هذه المشكلة حتى الآن. شكرا على تعليقك.

رد

بلغ

تارل

منذ حوالي 3 سنوات

#29287

تم تصغير هذا التعليق بواسطة المشرف على الموقع

هل هناك طريقة لجعل الصف الجديد يحتفظ بتنسيق الصف أدناه بدلاً من الصف أعلاه؟

رد

كريستال تارل

منذ حوالي 3 سنوات

#29288

تم تصغير هذا التعليق بواسطة المشرف على الموقع

مرحبا تارل ،
آسف يمكن أن تساعد في حل هذه المشكلة حتى الآن. شكرا على تعليقك.

رد

بلغ

منذ حوالي 3 سنوات

#29345

تم تصغير هذا التعليق بواسطة المشرف على الموقع

نعم ، لقد لعبت مع النص وعمل معي. ما عليك سوى إضافة رقم الصف الذي تريده (اخترت الصف 6) ، لكنني سأصاب بالصدمة إذا سمح بنشره.

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

رد

عارف

منذ حوالي 3 سنوات

#31372

تم تصغير هذا التعليق بواسطة المشرف على الموقع

يمكن إدراج صف ورقة متعددة في وقت واحد انقر فوق هذا.

رد

كريستال عارف

منذ حوالي 3 سنوات

#31373

تم تصغير هذا التعليق بواسطة المشرف على الموقع

مرحبا،
يمكن أن يساعدك الكود أدناه في حل المشكلة. يرجى المحاولة.

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

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

رد

بلغ

غونزالو تيكسيرا

منذ حوالي 3 سنوات

#31937

تم تصغير هذا التعليق بواسطة المشرف على الموقع

هل من الممكن إنشاء ورقة مختلفة؟ أنا حقا أحتاج ذلك

رد

بلغ

كاماو كيونجا

منذ حوالي 2 سنوات

#33734

تم تصغير هذا التعليق بواسطة المشرف على الموقع

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

رد

ماه

منذ حوالي 7 أشهر

#38693

تم تصغير هذا التعليق بواسطة المشرف على الموقع

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)

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

رد

بلغ

كريستال ماه

منذ حوالي 7 أشهر

#38787

تم تصغير هذا التعليق بواسطة المشرف على الموقع

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

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

رد

بلغ

ديوجين فاريلا

منذ حوالي 5 أشهر

#39588

تم تصغير هذا التعليق بواسطة المشرف على الموقع

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؟

رد

ديوجين فاريلا

منذ حوالي 5 أشهر

#39589

تم تصغير هذا التعليق بواسطة المشرف على الموقع

... 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á ...

رد

ديوجين فاريلا

منذ حوالي 5 أشهر

#39638

تم تصغير هذا التعليق بواسطة المشرف على الموقع

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 الشخصيات

أنا أوافق على أحكام وشروط