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

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

تنزيل المصنف التدريبي

الملء التلقائي للصيغة إلى الصف الأخير. xlsm

ما هو الملء التلقائي في اكسل؟

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

ألق نظرة على لقطة الشاشة التالية:

هنا ، يمكنك رؤية رقمين. سنملأ باقي الصفوف باستخدام الملء التلقائي في Excel.

أولاً ، حدد نطاق الخلايا B5: B6. بعد ذلك ، سترى مقبض الملء التلقائي في الزاوية اليمنى السفلية.

الآن ، اسحب مقبض الملء التلقائي لأسفل.

كما ترى ، قام Excel تلقائيًا بملء ملفباقي الخلايا. هذا هو الاستخدام الأساسي للملء التلقائي في Excel.

كيفية استخدام الملء التلقائي مع Excel VBA

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

البنية العامة:

النطاق .AutoFill Destination ، اكتب

هنا ،

النطاق ("B5"): الخلية التي تحتوي على النمط الرئيسي لملء بقية السلسلة.

الوجهة: نطاق الخلايا الذي تريد تعبئته بسلسلة الأنماط.

اكتب xlAutoFillType: نوع تعبئة السلسلة. هناك العديد من أنواع الملء التلقائي التي يمكنك اختيارها.

اقرأ المزيد: كيفية استخدام الملء التلقائي لـ VBA في Excel

4 أنواع الملء التلقائي في Excel VBA

في هذا القسم ، سأناقش بعض أنواع الملء التلقائي. لقد رأينا بالفعل أنه يمكننا اختيار أي نوع من أنواع الملء التلقائي باستخدام xlAutoFillType. هنا ، أعرض عليك بعض الأمثلة على ذلك

1. xlFillDefault

لقد رأينا بالفعل هذا النوع من الملء التلقائي في المثال السابق.

ألق نظرة على لقطة الشاشة:

اكتب رمز VBA التالي لملء بقية الخلايا تلقائيًا:

7410

الآن ، قم بتشغيل ماكرو VBA وبعد ذلك ، سترىالتالي:

يقوم تلقائيًا بتعبئة بقية الخلايا باستخدام ماكرو VBA.

2. xlFillCopy

لنسخ نفس القيم يمكنك استخدام النوع xlFillCopy في نوع الملء التلقائي.

ألق نظرة على لقطة الشاشة:

اكتب رمز VBA التالي لملء بقية الخلايا تلقائيًا:

3771

الآن ، قم بتشغيل ماكرو VBA وبعد ذلك ، سترى ما يلي:

يملأ Excel باقي الخلايا بنفس نمط القيم.

3. xlFillMonths

يمكنك أيضًا ملء الأشهر باستخدام xlFillMonths نوع الملء التلقائي.

ألق نظرة على لقطة الشاشة:

هنا ، أدخلنا شهرين يناير وفبراير.

اكتب رمز VBA التالي لملء بقية الخلايا تلقائيًا:

8609

الآن ، قم بتشغيل ماكرو VBA وبعده هذا ، سترى ما يلي:

يفهم Excel تلقائيًا الأنماط ويملأها بها.

4. xlFillFormats

يمكنك أيضًا نسخ التنسيقات إلى خلايا أخرى باستخدام الملء التلقائي لـ VBA. لذلك ، يجب عليك استخدام xlFillFormats نوع الملء التلقائي.

ألق نظرة على لقطة الشاشة:

هنا ، لدينا ملأ الخليتين ببعض الألوان.

الآن ، اكتب رمز VBA التالي لملء بقية الخلايا تلقائيًا:

4216

الآن ، قم بتشغيل ماكرو VBA وبعد ذلك ، سترى التالي:

كما ترى ، يستخدم ماكرو VBA الخاص بنا الملء التلقائي لـاملأ صفوف العمود B بفاعلية.

اقرأ المزيد: كيفية الملء التلقائي للأشهر في Excel

5 أمثلة باستخدام صيغة الملء التلقائي حتى الصف الأخير في Excel VBA

1. VBA للملء التلقائي لصيغة حتى آخر صف مستخدم

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

ألق نظرة على مجموعة البيانات التالية:

هنا ، لدينا مجموعة بيانات مبيعات لبعض مندوبي المبيعات . هدفنا هو إضافة مبيعات يناير وفبراير إلى عمود "الإجمالي". بعد ذلك ، سنستخدم طريقة الملء التلقائي باستخدام VBA إلى آخر صف مستخدم في Excel.

لتنفيذ ذلك ، اكتب الكود التالي:

5697

last_row = Cells (Rows.Count، 2) .End (xlUp) .Row: يقوم بإرجاع آخر صف مستخدم من العمود B. يمكنك اختيار أي عمود من مجموعة البيانات.

النطاق ("E5"). الصيغة = "= SUM (C5: D5)": نضيف مبيعات الخلية C5 و D5.

نطاق ("E5") وجهة الملء التلقائي: = النطاق ("E5: E" & amp؛ last_row): بعد الحصول على النتيجة ، نستخدم الملء التلقائي. يبدأ الملء التلقائي من الخلية E5 إلى آخر صف مستخدم حصلنا عليه سابقًا.

الآن ، قم بتشغيل ماكرو VBA. بعد ذلك ، سترى الإخراج التالي:

Asيمكنك أن ترى أن كود VBA الخاص بنا يضيف النتيجة الأولى ويملأ الصيغة تلقائيًا إلى الصف الأخير في Excel.

اقرأ المزيد: كيفية ملء الصف الأخير بالبيانات في Excel

2. الملء التلقائي لـ VBA من ActiveCell إلى الصف الأخير

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

إنها مشابهة للمثال السابق. نحن نستخدم مجموعة البيانات السابقة:

الآن ، سنضيف مبيعات يناير وفبراير ونملأ الصيغة تلقائيًا إلى الصف الأخير باستخدام Excel VBA.

الآن ، اكتب الكود التالي:

3421

last_row = Cells (Rows.Count، 2) .End (xlUp) .Row: يقوم بإرجاع آخر مستخدم صف من العمود B. يمكنك اختيار أي عمود من مجموعة البيانات.

ActiveCell.Formula = "= SUM (C5: D5)": نضيف مبيعات الخلية C5 و D5 في الخلية المحددة.

وجهة ActiveCell.AutoFill: = النطاق (ActiveCell.Address & amp؛ ": E" & amp؛ last_row): بعد الحصول على النتيجة ، نستخدم الملء التلقائي. يبدأ الملء التلقائي من الخلية النشطة إلى آخر صف مستخدم حصلنا عليه سابقًا.

الآن ، حدد الخلية E5 .

بعد ذلك ، قم بتشغيل ماكرو VBA لإضافة الصيغة والتعبئة التلقائية إلى الصف الأخير.

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

قراءات مماثلة

• كيفية تكرار الصفوف في عدد محدد من المرات في Excel (4 طرق)
• عدد الصفوف تلقائيًا في Excel (8 طرق)
• كيفية ملء العمود في Excel بنفس القيمة (9 حيل )
• تطبيق اختصار الملء التلقائي في Excel (7 طرق)

3. الملء التلقائي للصف الأخير باستخدام النطاق الديناميكي مع Excel VBA

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

لفهم النطاقات الثابتة ، ألق نظرة على الكود التالي:

7564

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

لحل هذه المشكلة ، توصلت إلى حل يمكن أن يأخذ نطاقًا ديناميكيًا:

3779

كما ترى ، نجد أولاً الصف الأخير من خلال سطر الكود هذا:

6498

بعد ذلك ، نقوم بالتعبئة التلقائية للصف الأخير باستخدام النطاق الديناميكي:

3293

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

النطاق الديناميكي يعني بشكل أساسي أنك لست مضطرًا لإدخال النطاقيدويا. سيقوم Excel بتحديثه من وقت لآخر.

اقرأ المزيد: Excel VBA: فشل أسلوب الملء التلقائي لفئة النطاق

4. الملء التلقائي حتى الأخير العمود في Excel باستخدام VBA

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

ألق نظرة على مجموعة البيانات التالية:

هنا ، لدينا مجموعة البيانات التي تمثل ميزانية الشخص لمدة 3 أشهر. الآن ، سنضيف مصاريف جميع الأشهر ونملأ الصيغة تلقائيًا إلى العمود الأخير باستخدام Excel VBA.

الآن ، اكتب الكود التالي:

9171

last_column = الخلايا (6، Columns.Count). End (xlToLeft) .Column: يقوم بإرجاع آخر عمود تم استخدامه من الصف 6. يمكنك اختيار أي صف لتبدأ من مجموعة البيانات الخاصة بك.

النطاق ("D9"). الصيغة = "= SUM (D6: D8)": نضيف نفقات ثلاثة أشهر (يناير ، فبراير ، مارس).

النطاق ("D9") وجهة الملء التلقائي: = النطاق ("D9" ، الخلايا (9 ، العمود_الأخير)): بعد الحصول على النتيجة ، نستخدم الملء التلقائي. هنا ، صفنا الرئيسي هو رقم الصف 9. ستكون جميع بياناتنا في هذا الصف. يبدأ الملء التلقائي من العمود D إلى آخر عمود مستخدم حصلنا عليه سابقًا بواسطة last_column .

بعد تشغيل الماكرو ، سترى الإخراج التالي :

كما ترى ، استخدمنا بنجاح VBA للملء التلقائي لـصيغة العمود الأخير في Excel.

اقرأ المزيد: كيفية الملء التلقائي لعمود في Excel

5. الملء التلقائي للأرقام التسلسلية حتى الصف الأخير في Excel باستخدام VBA

يمكنك أيضًا الملء التلقائي للأرقام المتسلسلة باستخدام الملء التلقائي في VBA. هنا ، يجب عليك استخدام xlFillSeries في نوع الملء التلقائي. سيفهم Excel النمط ويملأه به.

ألق نظرة على لقطة الشاشة التالية:

هنا ، لدينا بعض الأسماء. ونريد منحهم معرفًا بطريقة متسلسلة. للقيام بذلك ، سنستخدم الملء التلقائي لـ VBA.

الملء التلقائي للأرقام التسلسلية بنطاق ثابت:

2980

بعد تشغيل الكود ، سترى الإخراج:

إذا كنت تريد استخدام النطاق الديناميكي ، فاستخدم الكود التالي:

9081

last_row = Cells (Rows. Count، 2) .End (xlUp) .Row: يقوم بإرجاع آخر صف مستخدم من العمود B.

النطاق (“C5”) وجهة الملء التلقائي: = النطاق (“C5 : C ”& amp؛ last_row) ، النوع: = xlFillSeries: سيستغرق معرف الخلية C5 والتعبئة التلقائية إلى آخر صف مستخدم في العمود C باستخدام xlFillSeries ،

في كلتا الحالتين ، ستحصل على نفس الإخراج:

كما ترى ، استخدمنا رمز VBA بنجاح ملء تلقائي للأرقام المتسلسلة في Excel.

اقرأ المزيد: صيغ Excel لملء أرقام التسلسل ، تخطي الصفوف المخفية

💬 أشياء يجب تذكرها

✎ يمكنك إيقاف الملء التلقائي فيطرق مختلفة إذا كنت لا تريد ذلك .

✎ لا يمكنك الملء التلقائي لصفوف وأعمدة متعددة في وقت واحد. افعل ذلك واحدًا تلو الآخر.

الاستنتاج

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

لا تنس التحقق من موقعنا على الويب Exceldemy.com للتعرف على المشكلات والحلول المختلفة المتعلقة ببرنامج Excel.

استمر في تعلم طرق جديدة واستمر في النمو!