فبا: كيفية الحصول على قيمة خلية من ورقة أخرى

يمكنك استخدام الطرق التالية في VBA للحصول على قيمة الخلية في ورقة أخرى:

الطريقة الأولى: الحصول على قيمة الخلية من ورقة أخرى

 Sub GetCellAnotherSheet()
ActiveCell.Value = Worksheets(" Sheet2 ").Range(" A2 ") 
End Sub

سيحصل هذا الماكرو المحدد على القيمة من الخلية A2 في الورقة2 ويعيدها إلى الخلية النشطة حاليًا.

الطريقة الثانية: الحصول على نتيجة عملية قيم الخلية من ورقة أخرى

يمكنك أيضًا إجراء عملية على خلايا في ورقة أخرى وإرجاع نتيجة العملية في الخلية النشطة حاليًا.

على سبيل المثال، يمكنك استخدام بناء الجملة التالي لإضافة القيم في النطاق B2:B10 في الورقة2 وإرجاع المجموع في الخلية النشطة حاليًا:

 Sub GetCellAnotherSheet()
ActiveCell.Value = WorksheetFunction.Sum(Worksheets(" Sheet2 ").Range(" B2:B10 "))
End Sub

توضح الأمثلة التالية كيفية استخدام كل طريقة عمليًا.

مثال 1: الحصول على قيمة خلية من ورقة أخرى

لنفترض أن لدينا الورقة التالية التي تسمى Sheet2 والتي تحتوي على معلومات حول العديد من لاعبي كرة السلة:

افترض أن الخلية A2 في الورقة1 محددة حاليًا كخلية نشطة.

يمكننا إنشاء الماكرو التالي للحصول على القيمة في الخلية A2 من الورقة2 وإعادتها إلى الخلية النشطة حاليًا:

 Sub GetCellAnotherSheet()
ActiveCell.Value = Worksheets(" Sheet2 ").Range(" A2 ") 
End Sub

عندما نقوم بتشغيل هذا الماكرو، يمكننا أن نرى أن قيمة الخلية A2 من الورقة1 تم تعيينها الآن على “Mavs”، والتي تطابق قيمة الخلية A2 من الورقة2 :

مثال 2: الحصول على نتيجة عملية قيم الخلية من ورقة أخرى

لنفترض مرة أخرى أن لدينا الورقة التالية التي تسمى Sheet2 والتي تحتوي على معلومات حول العديد من لاعبي كرة السلة:

يمكننا استخدام الماكرو التالي لجمع القيم في العمود النقطي للورقة2 وإرجاع النتيجة إلى الخلية النشطة حاليًا، والتي تصادف أنها الخلية A2 للورقة1 :

 Sub GetCellAnotherSheet()
ActiveCell.Value = WorksheetFunction.Sum(Worksheets(" Sheet2 ").Range(" A2 "))
End Sub

عندما نقوم بتشغيل هذا الماكرو، يمكننا أن نرى أن مجموع القيم في النطاق A2:A10 من الورقة2 معروض الآن في الخلية A2 من الورقة1 :

مصادر إضافية

تشرح البرامج التعليمية التالية كيفية تنفيذ المهام الشائعة الأخرى في VBA:

فبا: كيفية تعيين قيمة خلية في ورقة أخرى
فبا: كيفية تحديد نطاق في خلية نشطة
VBA: كيفية حذف الصفوف بناءً على قيمة الخلية