شايب الديمن

أبو أسامة والآخرين السؤال هو لدي خلية متغيرة لحظيا (( مرتبطة ببرنامج مباشر برو للأسهم السعودية)) لنفترض أنها الخلية A1 وأريد إيجاد أكبر قيمة يصل إليها في تلك الخلية ويحتفظ به فمثلا وصلت الخلية A1 إلى 1000 فتكون الأكبر قيمة 1000 ثم بعد ذلك تتغير لتصبح 2000 فتكون أكبر قيمة 2000 وهكذا أعلم أن الجميع فيهم الخير ولكن لمداعبة نفسي لرفع الموضوع بشكل مستمر بانتظار القلوب الرحيمة

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

:Rules: :Rules:

أخوي شايب الديمن شرفت المنتدى بتواجدك معنا وبالنسبة لمشكلتك سأقول بالتعديل وسأعاود رفع الملف وآسف على التأخير في الرد (( أحلام اليقظة ))

UP

20 مشاهدة ولا أحد رد

يا اخوان متأكد أن هناك تعديل بسيط جدا لكني لم أعرف أين هل من توجيه

قرأت الكثير من المواضيع وقمت بعمليات بحث قي المنتدى واستفدت منها كثيرا لأعرف صياغة الماكرو وكنت أرغب في ربط الإكسيل مع برنامج مباشر برو للأسهم وتتعير به القيم لحظيا فأردت أخذ أكبر وأصغر قيمة لخلايا معينة وفي وقت محدد وقمت بكتابة الكود التالي في الماكرو ولكن لم تنجح العكلية أظنه يحتاج لتعديل أرجو المساعدة مشكورين الكود في الماكرو والملف كامل في المرفقات Sub Max() Sheetالسيولة.[D2:D116].Value = Application.WorksheetFunction.Max("C2:C116") Sheetالسيولة.[i2:I12].Value = Application.WorksheetFunction.Max("H2:H12") End Sub Sub Min() Sheetالسيولة.[E2:E116].Value = Application.WorksheetFunction.Min("C2:C116") Sheetالسيولة.[J2:J12].Value = Application.WorksheetFunction.Min("H2:H12") End Sub Sub RunCopy() 'Run at 11:00am Application.OnTime TimeValue("11:30:00"), "Copy" Application.OnTime TimeValue("12:00:00"), "Copy" Application.OnTime TimeValue("12:30:00"), "Copy" Application.OnTime TimeValue("13:00:00"), "Copy" Application.OnTime TimeValue("13:30:00"), "Copy" Application.OnTime TimeValue("14:00:00"), "Copy" Application.OnTime TimeValue("14:30:00"), "Copy" Application.OnTime TimeValue("15:00:00"), "Copy" Application.OnTime TimeValue("15:30:00"), "Copy" End Sub Sub Copy() Sheets("السيولة").Select Range("C2:C116").Select Selection.Copy End Sub Sub RunPaste() 'Run at 11:00am Application.OnTime TimeValue("11:30:01"), "paste1" Application.OnTime TimeValue("12:00:01"), "paste2" Application.OnTime TimeValue("12:30:01"), "paste3" Application.OnTime TimeValue("13:00:01"), "paste4" Application.OnTime TimeValue("13:30:01"), "paste5" Application.OnTime TimeValue("14:00:01"), "paste6" Application.OnTime TimeValue("14:30:01"), "paste7" Application.OnTime TimeValue("15:00:01"), "paste8" Application.OnTime TimeValue("15:30:01"), "paste9" End Sub Sub paste1() Sheets("متابع_السيولة").Select Range("C2:C116").Select Selection.paste1 End Sub Sub paste2() Sheets("متابع_السيولة").Select Range("D2:D116").Select Selection.paste2 End Sub Sub paste3() Sheets("متابع_السيولة").Select Range("E2:E116").Select Selection.paste3 End Sub Sub paste4() Sheets("متابع_السيولة").Select Range("[F2:F116").Select Selection.paste4 End Sub Sub paste5() Sheets("متابع_السيولة").Select Range("G2:G116").Select Selection.paste5 End Sub Sub paste6() Sheets("متابع_السيولة").Select Range("H2:H116").Select Selection.paste6 End Sub Sub paste7() Sheets("متابع_السيولة").Select Range("I2:I116").Select Selection.paste7 End Sub Sub paste8() Sheets("متابع_السيولة").Select Range("J2:J116").Select Selection.paste8 End Sub Sub paste9() Sheets("متابع_السيولة").Select Range("K2:K116").Select Selection.paste9 End Sub _______________________________.rar