كيفية الملء التلقائي للصيغة عند إدراج صفوف في إكسيل؟
عند إدراج صفوف فارغة بين صفوف البيانات الموجودة ، لن يتم نسخ الصيغة ولصقها في الصف الجديد ، يجب عليك سحبها أو تعبئتها يدويًا. لكن ، في بعض الأحيان ، قد ترغب في ملء الصيغة عند إدراج صفوف فارغة بين نطاق البيانات تلقائيًا كما هو موضح في لقطة الشاشة التالية ، هذه المقالة ، سأتحدث عن بعض الحيل السريعة لحل هذه المهمة.
صيغة التعبئة التلقائية عند إدراج صفوف فارغة مع إنشاء جدول
صيغة التعبئة التلقائية عند إدراج صفوف فارغة برمز VBA
صيغة التعبئة التلقائية عند إدراج صفوف فارغة مع إنشاء جدول
في Excel ، يمكن أن يساعدك تنسيق الجدول في ملء الصيغة أعلاه في الصفوف الفارغة الجديدة المدرجة تلقائيًا ، يرجى القيام بما يلي:
1. حدد نطاق البيانات الذي تريده لتعبئة الصيغة تلقائيًا ، ثم انقر فوق إدراج > طاولة، انظر لقطة الشاشة:
2. في اصنع جدول الحوار ، تحقق من الجدول يحتوي على رؤوس إذا كانت هناك رؤوس في بياناتك ، فراجع لقطة الشاشة:
3. ثم اضغط OK زر ، وتم إنشاء الجدول ، والآن ، عند إدراج صف فارغ ، سيتم إدراج الصيغة أعلاه في الصف الجديد تلقائيًا ، انظر الصورة:
صيغة التعبئة التلقائية عند إدراج صفوف فارغة برمز VBA
إذا كنت لا ترغب في تغيير البيانات إلى جدول ، فيمكن أن يساعدك رمز VBA أدناه أيضًا في تحقيق هذه المشكلة.
1. حدد علامة تبويب ورقة العمل التي تحتوي على الصيغ التي تريد تعبئتها تلقائيًا ، وانقر بزر الماوس الأيمن للاختيار عرض الرمز من قائمة السياق للذهاب إلى ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، ثم انسخ الكود التالي والصقه في الوحدة النمطية:
كود فبا: صيغة التعبئة التلقائية عند إدراج صفوف فارغة
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. ثم احفظ وأغلق هذا الرمز ، ارجع إلى ورقة العمل ، الآن ، عند النقر المزدوج فوق خلية بين البيانات ، سيتم إدراج صف جديد أسفل الخلية النشطة ويتم تعبئة الصيغة تلقائيًا أيضًا.
العرض التوضيحي: صيغة الملء التلقائي عند إدراج صفوف فارغة
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!