سنتعرف في هذا الدرس على كيفية تبديل قيمة خليتين في لغة VBA , سنفترض أننا سنقوم بتبديل قيمة الخلية A1 وقيمة الخلية B1 عن طريق الضغط على زر أمر .
اذهب إلى التبويب Developer ثم اضغط على Insert ثم في المجموعة ActiveX Controls اضغط على رمز Command Button
ارسم زر الأمر في المكان الذي تريده .
لتغيير النص المكتوب على زر الأمر اضغط بزر الماوس الأيمن على زر الأمر واختر Properties من القائمة المختصرة .
ستظهر نافذة الخصائص , امسح النص Command Button 1 من أمام الخاصية Caption واكتب النص الذي تريده .
اضغط ضغطا مزدوجا على زر الأمر لفتح كود الحدث Click الخاص بزر الأمر ثم قم بكتابة الكود التالي :
Dim temp As Double
temp = Range("A1").Value
Range("A1").Value = Range("B1").Value
Range("B1").Value = temp
في هذا الكود قمنا بعمل التالي :
- عرفنا متغير اسمه temp من النوع Double
- قمنا بإسناد المتغير temp قيمة الخلية A1
- قمنا بإسناد الخلية A1 قيمة الخلية B1
- قمنا بإسناد الخلية B1 قيمة المتغير temp
اذهب إلى التبويب Developer ثم قم بعدم تفعيل الاختيار Design Mode للخروج من وضع التصميم إلى وضع التنفيذ .
اضغط على زر الأمر سيتم تبديل قيمة الخلية A1 والخلية B1