فبا: كيفية قراءة قيمة الخلية في متغير

يمكنك استخدام بناء الجملة التالي في VBA لقراءة قيمة خلية في متغير:

 Sub ReadCellValueIntoVar()

Dim CellVal As String
CellVal = Range(" A1 ")

MsgBox CellVal

End Sub

يقوم هذا الماكرو المحدد بإنشاء متغير سلسلة يسمى CellVal ثم يقرأ قيمة الخلية A1 للورقة النشطة حاليًا في المتغير.

وأخيرا، نستخدم MsgBox لعرض قيمة هذا المتغير في مربع الرسالة.

يوضح المثال التالي كيفية استخدام بناء الجملة هذا عمليًا.

مثال: كيفية قراءة قيمة خلية في متغير في VBA

لنفترض أن لدينا ورقة Excel بقيمة 500 في الخلية A1 :

يمكننا إنشاء الماكرو التالي لقراءة قيمة الخلية هذه في متغير ثم عرض القيمة في مربع رسالة:

 Sub ReadCellValueIntoVar()

Dim CellVal As String
CellVal = Range(" A1 ")

MsgBox CellVal

End Sub

عندما نقوم بتشغيل هذا الماكرو، نحصل على الإخراج التالي:

يعرض الماكرو قيمة المتغير الذي يحتوي على القيمة 500 من الخلية A1 .

لاحظ أنه يمكننا أيضًا إجراء حسابات أكثر تعقيدًا باستخدام المتغير إذا أردنا ذلك.

على سبيل المثال، يمكننا إنشاء الماكرو التالي لقراءة قيمة الخلية A1 في متغير، ثم إنشاء مربع رسالة يعرض تلك القيمة مضروبة في 5:

 Sub ReadCellValueIntoVar()

Dim CellVal As String
CellVal = Range(" A1 ")

MsgBox CellVal * 5

End Sub

عندما نقوم بتشغيل هذا الماكرو، نحصل على الإخراج التالي:

يعرض الماكرو قيمة المتغير مضروبة في 5، والتي تصبح 500 * 5 = 2500 .

مصادر إضافية

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

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