/ / متوسط ​​المتداول في Excel VBA

متوسط ​​المتداول في Excel VBA

أدناه سننظر في برنامج في Excel VBA هذا يخلق المتداول متوسط ​​الجدول. ضع زر أمر في ورقة العمل الخاصة بك وقم بإضافة السطر التعليمة البرمجية التالية:

Range("B3").Value = WorksheetFunction.RandBetween(0, 100)

يقوم سطر الرمز هذا بإدخال رقم عشوائي بين 0و 100 في الخلية B3. نحن نريد Excel VBA لأخذ قيمة الأسهم الجديدة ووضعها في الموضع الأول من جدول متوسط ​​المتداول. يجب أن تتحرك جميع القيم الأخرى لأسفل مكان واحد ويجب حذف القيمة الأخيرة.

المتداول متوسط ​​الجدول في Excel VBA

المتداول متوسط ​​الجدول في Excel VBA

قم بإنشاء حدث تغيير ورقة عمل. سيتم تنفيذ الأكواد المضافة إلى حدث تغيير ورقة العمل بواسطة Excel VBA عندما تقوم بتغيير خلية في ورقة عمل.

1. افتح محرر Visual Basic.

2. انقر نقرًا مزدوجًا فوق Sheet1 (Sheet1) في Project Explorer.

3. اختر ورقة عمل من القائمة المنسدلة اليسرى. اختر Change من القائمة المنسدلة اليمنى.

ورقة العمل تغيير الحدث في Excel VBA

أضف الأسطر رمز التالية إلى الأحداث تغيير ورقة عمل:

4. قم بتعريف متغير يسمى newvalue من النوع Integer ونطاقين (firstfourvalues ​​و lastfourvalues).

Dim newvalue As Integer, firstfourvalues As Range, lastfourvalues As Range

5. يستمع "حدث تغيير ورقة العمل" إلى كافة التغييرات على الورقة 1. لا نريد سوى Excel VBA القيام بشيء ما إذا تغير شيء ما في الخلية B3. لتحقيق هذا ، أضف السطر التالي من التعليمات البرمجية:

If Target.Address = "$B$3" Then

6. نحن تهيئة NEWVALUE مع قيمة الخلية B3، firstfourvalues ​​مع مجموعة ( "D3: D6") وlastfourvalues ​​مع مجموعة ( "D4: D7").

newvalue = Range("B3").Value
Set firstfourvalues = Range("D3:D6")
Set lastfourvalues = Range("D4:D7")

7. الآن تأتي خدعة بسيطة. نريد تحديث جدول متوسط ​​المتداول. يمكنك تحقيق ذلك عن طريق استبدال القيم الأربع الأخيرة بالقيم الأربع الأولى للجدول ووضع قيمة الأسهم الجديدة في الموضع الأول.

lastfourvalues.Value = firstfourvalues.Value
Range("D3").Value = newvalue

8. لا تنسى إغلاق البيان إذا كان.

End if

9. وأخيرًا ، أدخل الصيغة = AVERAGE (D3: D7) في الخلية D8.

10. اختبار البرنامج من خلال النقر على زر الأمر.

اقرأ أيضًا: