طلب مساعدة لمشروع تسجيل السوق من مباشر برو بواسطة فجول بيسك في Xl

الاخوة الافاضل خبراء الفيجول بيسك..

هدف المشروع والمشكلة..

قد لايكون لكم اهتمام في عالم السوق.. ولكن مايهم هو تحديد الشكلة لاجل ايجاد الحل...المشكلة ان مباشر برو يعرض كثير من البيانات (مثل تدفق السيولة وكمية البيع وووو) .. ولكن يتم فقط حفض قيمة السهم الحالية- اقل سعر - اكبر سعر - حجم التداول. ولو تاملت قاعدة بيانات مباشر برو فانك لن تجد باقي الاعمدة مثل تدفق السيولة والكميات والمال المنسحب.. الخ

كما ان برنامجي ميتاستوك وامي بروكر لا يتعامل مع غير هذة القيم.. ومن خلال هذة القيم يمكن بناء معادلة ((((حسااااااااااااااابية)))) لتدفق المال ولا نعلم حقيقة دقة هذة المعادلة مع حقيقة التدفق في مباشر.. اذا نحتاج سحب خانة تدفق المال الفعلية مثلا من مباشر لمقارنتها مع القيمة الحسابية , الاكيد اننا نحتاج رسم اي خانة ارغب فيها .. اذا المقصود هو سحب البيانات وتسجيلها اولا باول لمحاولة الدراسة والتحليل.

هنا اتي مشروعي الصغير..

سوف اقوم بربط اكسس بمباشر ( وهذا لامشكلة فية)

ولكن بعد الربط ماذا سوف يكون لدي؟؟؟. سوف يكون لدي خانات مرجعية من مباشر برو.. تتغير باستمرار مع حركة السوق..

دعونا نركز على سهم السعودي الفرنسي كمثال, فبعض البيانات سوف يتم ربطها ولكن ماذا استفيد من الربط عندما يتحرك السوق وتتغير القيم دون تسجيلها..

لن استطيع ان رسم حركة السهم بدون ان يتم تسجيل البيانات.. لذلك.. قمت بالتركيز اولا على كتابة كود يقوم بتسجيل القيم..

بناء المشروع..

قمت بانشاء قالب مبسط افتراضي حيث سوف يتم ربط البيانات,, وعمل دالة تقوم بنسخ بيانات السعودي الفرنسي الافتراضية كاملة بمجرد تغيير قيمة الخانة البرتقالية.. وهذا كل مانريد..

طريقة العمل: قم بتغيير القيم في الخانات الصفراء وفي كل مرة تقوم بتغيير القيمة في الخانة O13 (البرتقالية) فسوف يتم نسخ جميع السطر الي ورقة السعودي الفرنسي.. فبمجرد تغيير الخانة O13 فانة سوف يتم نسخ السطر كاملا. لان الخانة البرتقالية هي الاساس. وهذا المطلوب..

الي هذة النقطة 100%.. وضننت انني نجحت في مشروعي..

المشكلة:

انة بمجرد ربط الخانات الصفراء والبرتقالية بمباشر برو تفشل عملية تسجيل البيانات.. نعم اشاهد القيم تتحرك في هذة الخانات الملونة ولكن لا يتم نسخ البيانات؟؟!!!!!!

يفرض ان هذة الخانات تاخذ قيمها من مكان اخر( من مباشربرو).. وهنا هي المشكلة.

فقمت بتجربة اخري.. كتبت في الخانة O13 كما يلي : "=O17" بحيث تاخذ الخانة البرتقالية قيمتها بشكل مرجعي من خانة اخري..

ثم قمت بادخال ارقام في الخانة O17 وقمت بتغيير اكثر من مرة.. ولكن(((( الدالة ))))لم تعمل؟؟؟ ولم يتم نسخ اي شي؟؟؟

الكود المستخدم:

اقتباس

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("O13")) Is Nothing Then Exit Sub

Application.ScreenUpdating = False

Application.EnableEvents = False

Dim lngLastRow As Long

lngLastRow = Worksheets("Saudi Fransi").Range("C" & Rows.Count).End(xlUp).Row

Range("B13:O13").Copy Worksheets("Saudi Fransi").Range("C" & lngLastRow + 1)

Application.EnableEvents = True

Application.ScreenUpdating = True

End Sub

كيف يمكن ان احل هذة المشكلة؟؟؟؟؟؟ اين الخطاء

هذة نسخة من الملف:

http://rapidshare.com/files/299774774/Alghamdi.xls.html