كود يتم تفعيله كل 5 دقائق

[خالدو]

السلام عليكم ورحمة الله وبركاته

هل من الممكن أضافة كود لملف أكسيل يعمل تحديث للروابط كل 5 دقائق علماً أن الملف مفتوح باستمرار على مدار اليوم

بمعنى بدون اغلاق الملف وإعادة فتحه يتم تحديث الخلايا ذات الارتباط .

وبناءاً عليه هناك كود آخر شرطي يقوم بعمليات حسابية بنءاً على القيم بعد التحديث.

وجزاكم الله خيراً

[طارق محمود]

السلام عليكم

الكود التالي في حدث فتح الملف

يتكرر كل دقيقة

يمكنك تغيير التعبير

+ 1 / 60 / 24

في كلا من السطر الثاني والخامس إلي

+ 5 / 60 / 24

Private Sub Workbook_Open()

x = Time + 1 / 60 / 24

For i = 1 To 1000

	Application.OnTime TimeValue(x), "Khaled01"

	x = x + 1 / 60 / 24

Next i

End Sub

حيث أن كود Khaled01 يلون مربع باللون الأحمر هذا هو كود Khaled01

Sub Khaled01()

'

Range("J3:O3,O4:O12,J4:J12,K12:O12").Interior.Color = 255

End Sub

جرب المرفق

ثم امسح اللون الأحمر وانتظر دقيقة وهكذا

Do_It_@5min.rar

تم تعديل فبراير 13, 2011 بواسطه TareQ M

[خالدو]

جزاك الله خيراً أخي طارق ..... هذا هو الشيء المتوقع دائماً منك كخبير محترف ومن منتدانا الغالي منتدى العباقرة.

الكود فعلاً راااااااائع جداً.

أسأل الله أن يجعل ذلك في ميزان حسناتكم.