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

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

1

قم بتشغيل Excel وافتح جدول بيانات يحتوي على أعمدة متعددة.

2

اضغط على "Alt-F11" لفتح محرر "Visual Basic" وانقر على "إدراج | وحدة." يضيف VBA وحدة نمطية جديدة إلى نافذة المشروع.

3

الصق الكود التالي في نافذة التحرير التي تظهر على يمين نافذة المشروع:

Sub SelectLastRow () Dim finalRow كـ عدد صحيح

finalRow = ActiveSheet.UsedRange.Rows.Count

إذا كان finalRow = 0 ثم finalRow = 1 End If

Rows (finalRow). حدد End Sub

يحدد هذا Sub الصف الأخير في جدول البيانات عن طريق فحص خاصية Count لمجموعة الصفوف. يقوم العنصر الفرعي بعد ذلك بتخزين هذه القيمة في متغير الصف النهائي. تمرر العبارة النهائية لـ Sub قيمة finalRow إلى طريقة VBA Select.

4

اضغط على "F5" لتشغيل Sub. تبحث طريقة التحديد عن الصف الأخير في جدول البيانات ، وتنتقل إلى هذا الصف وتميزه.