الرئيسية | مايكروسوفت اوفيس | مايكروسوفت اكسل | تحديد أخر صف / عمود في جدول البيانات بإستخدام Excel VBA

تحديد أخر صف / عمود في جدول البيانات بإستخدام Excel VBA


بعد أن إنتهينا من الجزء الخاص بأساسيات إستخدام اليوزرفورمUserform في مايكروسوفت إكسل؛ وصلتنا العديد من الإستفسارات عن كيفية ترحيل البيانات الى الصف التالي لأخر صف في جدول البيانات؟

تحديد أخر صف / عمود في جدول البيانات 01

دعونا نفكر معاً ما هي الخطوات التي يجب ان نؤديها في سبيل إتمام هذه المهمة -الترحيل الى الصف التالي لأخر صف- بدون الأكواد.

  1. معرفة أين يوجد جدول البيانات (ورقة العمل -الشيت- / مرجع الخلية)؟
    بإستخدام الماوس نحدد الشيت ثم نحدد اي خلية في جدول البيانات
  2. الوصول الى أخر صف ثم معرفة رقم هذا الصف
    من خلال استخدام الإختصار Ctrl + Down من لوحة المفاتيح
  3. الضغط على Enter للإنتقال الى الصف التالي

تحديد أخر صف / عمود في جدول البيانات 02

الأن دعونا نتعرف على كيفية القيام بالخطوات السابقة بإستخدام Excel VBA

  1. يعتمد الكود المستخدم على إستخدام الخاصية End Property والتي تعمل على الإنتقال من خلية محددة الى أخر خلية في جدول البيانات وفقاً لإتجاه محدد (أعلى / أسفل / يمين / يسار)
  2. بعد أن إنتقلنا الى اخر خلية وفقاً للإتجاه الذي نريده نستخدم الخاصية Row والتي تحدد لنا رقم الصف الذي إنتقلنا إليه (نفس وظيفة الدالة Row) -يمكننا إستخدام الخاصية Column في حالة التعامل مع الأعمدة-

لاحظ أن الخاصية End تستخدم أحد أربعة قيم وهم

تحديد أخر صف / عمود في جدول البيانات 03

  1. xlDown : للإنتقال بشكل رأسي إلى أسفل -أخر خلية في جدول البيانات إنطلاقاً من خلية محددة-
  2. xlUp : للإنتقال بشكل رأسي إلى أعلى
  3. xltoRight : للإنتقال بشكل أفقي إلى جهة اليمين – في حالة أن إتجاه ورقة العمل من اليسار الى اليمين – والإنتقال الى جهة اليسار في حالة أن إتجاه ورقة العمل من اليمين الى اليسار
  4. xltoLeft : : للإنتقال بشكل أفقي إلى جهة اليسار

الكود المُستخدم لتحديد رقم أخر صف في جدول البيانات؛ تم إستخدام القيمة xlDown

1
2
3
4
5
Sub FindLastRow()
 
LR = Range("e10").End(xlDown).RowMsgBox LR
End Sub

الكود المُستخدم لتحديد رقم أخر عمود في جدول البيانات تم إستخدام القيمة xlToRight

1
2
3
4
5
Sub FindLastColumn()
 
LC = Range("e10").End(xlToRight).ColumnMsgBox LC
End Sub

فيديو : تحديد أخر صف / عمود في جدول البيانات بإستخدام VBA

في هذا الفيديو نشرح كيفية إستخدام الخاصية End للإنتقال الى اخر صف، ثم تطبيق على يوزرفورم مبسط لترحيل بيانات المبيعات اليومية الى جدول البيانات الخاص بالمبيعات

تحديد أخر صف / عمود في جدول البيانات 04

تحميل ملف العمل

شاهد أيضاً

الدالة SUMIFS

حساب المجموع وفقاً لأكثر من شرط | الدالة SUMIFS مايكروسوفت اكسل

الدالة SUMIFS هي إحدى الدوال التي تم إضافتها في نسخة الأوفيس 2007، وجاءت لتكون الإمتداد ...