استفسار بخصوص max & min & timer في الماكرو

[شايب الديمن]

قرأت الكثير من المواضيع وقمت بعمليات بحث قي المنتدى واستفدت منها كثيرا لأعرف صياغة الماكرو

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

الكود في الماكرو والملف كامل في المرفقات

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

تم تعديل مارس 13, 2008 بواسطه شايب الديمن

[شايب الديمن]

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

هل من توجيه

[شايب الديمن]

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

[شايب الديمن]

UP

[شايب الديمن]

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

(( أحلام اليقظة ))

[شايب الديمن]

:Rules: :Rules:

[شايب الديمن]

راح نبسط عليكم شوي

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

لا أعتقد

الجواب صح!!

[ابو اسامة العينبوسي]

السلام عليكم

الم يخطر ببالك ان سؤالك غير واضح مثلا ؟

اخ انت هنا بين اخوه يحبون المساعده بما يفهمون ثم ما يستطيعون

تم تعديل مارس 22, 2008 بواسطه ابو اسامة العينبوسي

[شايب الديمن]

أبو أسامة والآخرين السؤال هو

لدي خلية متغيرة لحظيا (( مرتبطة ببرنامج مباشر برو للأسهم السعودية)) لنفترض أنها الخلية A1

وأريد إيجاد أكبر قيمة يصل إليها في تلك الخلية ويحتفظ به فمثلا وصلت الخلية A1 إلى 1000 فتكون الأكبر قيمة 1000 ثم بعد ذلك تتغير لتصبح 2000 فتكون أكبر قيمة 2000 وهكذا

أعلم أن الجميع فيهم الخير ولكن لمداعبة نفسي لرفع الموضوع بشكل مستمر بانتظار القلوب الرحيمة