تتحرك متوسط إكسيل رمز فبا

المتوسط ​​المتحرك يعلمك هذا المثال كيفية حساب المتوسط ​​المتحرك لسلسلة زمنية في إكسيل. يتم استخدام أفيارج تتحرك لتسهيل المخالفات (قمم والوديان) بسهولة التعرف على الاتجاهات. 1. أولا، دعونا نلقي نظرة على السلاسل الزمنية لدينا. 2. من علامة التبويب بيانات، انقر فوق تحليل البيانات. ملاحظة: لا يمكن العثور على زر تحليل البيانات انقر هنا لتحميل الوظيفة الإضافية تولباس تولباك. .3 حدد متوسط ​​النقل وانقر فوق موافق. .4 انقر في مربع نطاق الإدخال وحدد النطاق B2: M2. 5. انقر في المربع الفاصل الزمني واكتب 6. 6. انقر في المربع نطاق الإخراج وحدد الخلية B3. 8. رسم رسم بياني لهذه القيم. إكسلاناتيون: لأننا نقوم بضبط الفاصل الزمني الى 6، المتوسط ​​المتحرك هو متوسط ​​نقاط البيانات الخمس السابقة ونقطة البيانات الحالية. ونتيجة لذلك، يتم تمهيد قمم والوديان بها. يظهر الرسم البياني اتجاها متزايدا. لا يستطيع إكسيل حساب المتوسط ​​المتحرك لنقاط البيانات الخمس الأولى لأنه لا توجد نقاط بيانات سابقة كافية. 9. كرر الخطوات من 2 إلى 8 للفاصل الزمني 2 والفاصل الزمني 4. الخاتمة: كلما زاد الفاصل الزمني، كلما تم تمهيد القمم والوديان. أصغر الفاصل الزمني، كلما كانت المتوسطات المتحركة أقرب إلى نقاط البيانات الفعلية. جدول متوسط ​​الجدول أدناه سوف ننظر إلى برنامج في إكسيل فبا أن يخلق الجدول المتوسط ​​المتداول. وضع زر أمر في ورقة العمل وإضافة سطر التعليمات البرمجية التالي: رانج (كوت. كوت 3).Value وركشيت فونكتيون. راندبيتوين (0، 100) يدخل سطر التعليمات البرمجية هذا رقم عشوائي بين 0 و 100 في الخلية B3. نريد إكسيل فبا لاتخاذ قيمة الأسهم الجديدة ووضعه في المركز الأول من الجدول المتوسط ​​المتداول. يجب أن تتحرك جميع القيم الأخرى لأسفل مكان واحد ويجب حذف القيمة الأخيرة. إنشاء حدث تغيير ورقة العمل. سيتم تنفيذ التعليمات البرمجية المضافة إلى حدث تغيير ورقة العمل بواسطة إكسيل فبا عند تغيير خلية على ورقة عمل. انقر نقرا مزدوجا فوق الورقة 1 (الورقة 1) في مستكشف المشروع. 3. اختر ورقة عمل من القائمة المنسدلة لليسار. اختر تغيير من القائمة المنسدلة المناسبة. إضافة خطوط التعليمات البرمجية التالية إلى حدث تغيير ورقة العمل: 4. أعلن متغير يسمى نيوفالو من نوع عدد صحيح ونطاقين (فيرستفورفالويس و لاستفورفالويس). خافت نوفالو كما صحيح. فيرستفورفالويس كمجال، لاستفورفالويس كمجال 5. حدث تغيير ورقة العمل يستمع إلى كافة التغييرات على الورقة 1. نريد فقط إكسيل فبا أن تفعل شيئا إذا تغير شيء في الخلية B3. ولتحقيق ذلك، قم بإضافة سطر التعليمات البرمجية التالي: إذا كان الهدف. إذا كنت تريد أن تقوم بتهيئة القيمة الجديدة مع قيمة الخلية B3، فيرستفورفالويس مع المدى (كوتد: D6quot) و لاستفورفالويس مع المدى (كوتد 4: D7quot). نيوفالو رانج (كوتاد 3quot).Value تعيين فيرستفورفالويس المدى (كوتد 3: D6quot) تعيين لاستفورفالويس المدى (كوتد 4: D7quot) 7. الآن يأتي خدعة بسيطة. نريد تحديث جدول المتوسط ​​المتداول. يمكنك تحقيق ذلك عن طريق استبدال القيم الأربع الأخيرة مع القيم الأربع الأولى للجدول ووضع قيمة الأسهم الجديدة في الموضع الأول. lastfourvalues. Value firstfourvalues. Value رانج (cutD3quot).Value نوفالو 8. لا تنسى إغلاق بيان إف. 9. أخيرا، أدخل الصيغة أفيراج (D3: D7) في الخلية D8. 10. اختبار البرنامج عن طريق النقر على زر الأوامر. محرك المتوسط ​​في فبا المتوسط ​​المتحرك في فبا مرحبا. إيف كانت تبحث في جميع أنحاء مركسيل وبقية شبكة الإنترنت، ولكن كل وظيفة حول فبا رمز للمتوسطات المتحركة ليس بالضبط الحل لما أريد القيام به. إم العمل مع كميات كبيرة جدا من البيانات. حوالي 10 عاما من عوائد الأسهم اليومية، والقيام 10 أسهم في وقت واحد (وهذا هو حوالي 20K نقطة البيانات)، وأنا بحاجة لحساب 10، 50، أو 100 يوم المتوسط ​​المتحرك لكل سهم في كل يوم. أنا أعرف كيفية القيام بذلك في صيغة منتظمة، ولكن هذا كان بطيئا، وأيضا عرضة لخطأ المستخدم منذ 1 غاب السكتة الدماغية يمكن التخلص من سنوات من المتوسطات المتحركة. بعد حوالي 3 أيام من العمل، وجدت الحل الذي يعمل، ولكن هو الطريق أبطأ من ذي قبل هنا هو رمز أن إم تعمل مع الآن. ديمو i كما طويلة ديم لاسترو كما طويل المدى لاسترو (B أمب صفوف.).End (زلوب).Row l سيلس (1، W).Value إذا ل 0 ثم مسغبوكس أدخل النطاق في C1 غوتو لاستلين إلس ل إيل تو لاسترو - 2 المدى (N أمب i 2).FormulaR1C1 أفيراج (أرسي-12: R - أمبير ل - 1 أمبير C-12) التالي i رانج (N2: N5000).حدد Selection. Copy Selection. Paste لصق خاص: زلباستيفالويس Selection. NumberFormat. 00 Application. CutCopyMode نهاية خاطئة إذا كان العمود الثاني المدى (o3: o5000).Clear ل إيل إلى لاسترو - 2 المدى (o أمب i 2).FormulaR1C1 أفيراج (أرسي-12: R - أمبير ل - 1 أمبير C-12) التالي i رانج (o2: o5000).Select Selection. Copy Selection. Paste لصق خاص: زلباستيفالويس Selection. NumberFormat .00 Application. CutCopyMode فالس. العمود الثاني يكرر 8 مرات أكثر الذهاب إلى العمود W خط النهاية: إند سوب هذا يعمل بشكل جيد جدا، من كل سطر بدءا من القول 10 نقاط البيانات في (لمدة 10 يوم المتوسط ​​المتحرك) يملأ في رمز يعود عشرة أيام في وقت واحد . ثم عندما يصل إلى نهاية فإنه نسخ ولصق قيم العمود بحيث الصيغة لا تحتاج إلى إعادة حساب بنشاط من ثم على. المشكلة التي وجدت أن الذهاب إلى أسفل القائمة لمدة 2000 يوما هو لا يطاق. كنت أحاول تجريب application. WorksheetFunction. Average، ولكن لم أستطع الحصول على مجموعة لا يمكن تعريفها بأنها الأعمدة X عدد الأيام فوق كل سطر. يمكن للشخص مساعدة