كيفية ملء الصيغة تلقائيًا عند إدراج صفوف في Excel؟

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

ملء الصيغة تلقائيًا عند إدراج صفوف فارغة بإنشاء جدول المرجع

ملء الصيغة تلقائيًا عند إدراج صفوف فارغة باستخدام كود VBA

ملء الصيغة تلقائيًا عند إدراج صفوف فارغة بإنشاء جدول المرجع

في Excel، يمكن أن يساعدك تنسيق الجدول في ملء الصيغة أعلاه في الصفوف الفارغة المدرجة حديثًا تلقائيًا، يرجى القيام بما يلي:

1. حدد نطاق البيانات الذي تريد ملء الصيغة فيه تلقائيًا، ثم انقر فوق إدراج > جدول المرجع، انظر لقطة الشاشة:

2. في مربع الحوار إنشاء جدول، قم بتحديد خيار جدول المرجع الخاص بي يحتوي على رؤوس إذا كانت هناك رؤوس في بياناتك، انظر لقطة الشاشة:

3. ثم انقر فوق زر موافق، وسيتم إنشاء الجدول، والآن عندما تقوم بإدراج صف فارغ، سيتم إدخال الصيغة أعلاه في الصف الجديد تلقائيًا، انظر لقطة الشاشة:

ملء الصيغة تلقائيًا عند إدراج صفوف فارغة باستخدام كود VBA

إذا كنت لا تحب تحويل البيانات إلى جدول، فإن الكود التالي من VBA أيضًا يمكن أن يساعدك في حل هذه المشكلة.

1. حدد علامة ورقة العمل التي تحتوي على الصيغ التي تريد ملئها تلقائيًا، وانقر بزر الماوس الأيمن واختر عرض الكود من قائمة السياق للانتقال إلى نافذة Microsoft Visual Basic for Applications، ثم انسخ والصق الكود التالي في الوحدة:

كود VBA: ملء الصيغة تلقائيًا عند إدراج صفوف فارغة

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updateby Extendoffice 20160725
    Cancel = True
    Target.Offset(1).EntireRow.Insert
    Target.EntireRow.Copy Target.Offset(1).EntireRow
    On Error Resume Next
    Target.Offset(1).EntireRow.SpecialCells(xlConstants).ClearContents
End Sub

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

عرض: ملء الصيغة تلقائيًا عند إدراج صفوف فارغة