اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

كيفية عمل تايمر


الردود الموصى بها

اخي قم بفتح الملف المرفق و انتظر

ارجو ان يكون هذا ما تطلبه

طبعا قد تم عمل المدة الزمنية صغيرة لملاحظة التغيرات و يمكنك تعديلها الي ما تريد

تحياتي

time.rar

رابط هذا التعليق
شارك

شكرا لك أستاذ عادل

هل يمكن عمل تايمر ولكن يتم تنفيذ حدثين مختلفين

أى مثلا بعد مده زمنية

تصبح قيمة الخلية مثلا سبحان الله وبعد نفس المدة الزمنيةتصبح الحمد لله

وبعدها ترجع سيرتها الأولى أى يتم عمل (Infinite Loop)

كل عام وأنتم بخير

رابط هذا التعليق
شارك

اخي بالفعل جعلتني اجتهد من اجل هذا الشهر الكريم

و هي فكره بالفعل حلوه

الملف يعرض اسماء الله الحسني ثم يكررها بعد الانهاء من اخر اسم

انظر المرفق و اعطيني رايك

و كل عام و انت بخير

اسماء الله الحسني.rar

رابط هذا التعليق
شارك

الله عليك يا أ.عادل

حاجة روعة فعلا

هل يمكن أن توضح لى

ما يشير إليه السطرين التاليين داخل الكود

GoTo 0

0:

اّسف لإزعاجك

كل عام وأنت بخير

تم تعديل بواسطه Mohammed Farid
رابط هذا التعليق
شارك

اخي yahiaoui

مشكور علي مرورك كلماتك

و ثنائك علي الملف بارك الله فيك

اخي محمود فريد

سلمت اخي

و علي فكره جاءتني فكرة اخري للملف ان استطعت تنفيذها سيتم رفعها

خالص تحياتي

رابط هذا التعليق
شارك

اخي يحياوي

كود جميل و يمكن استخدامه في مثل هذه الامور

بارك الله فيك

اخي محمود فريد

فكرة الكود

عند فتح الملف يتم وضع زيرو او صفر في الخلية k5 و مسح محتويات الخلية j5 التي هناك كود في حدث التغيير لها يتم عمل الكود

الذي يبحث في العمود الثاني عن اول قيمة اكبر من الخلية k5 و عند وجودها و هنا دور goto 0 فبها يتم الخروج من حلقة تكرار البحث

لكتابة قيمة ماوجده في العمود الثاني في الخلية k5 و القيمة القابله له في العمود الاول في الخلية j5

ارجو ان تكون الامور واضحة الا ارجو الاستفسار مرة اخري

رابط هذا التعليق
شارك

أخى الأستاذ عادل الكود فعلا جميل

لكن هناك مشكلة أنه عند فتح شيت أخرى ثم الرجوع لهذه الشيت مرة أخرى لن يتم تنفيذ الكود الذى يتم تفعيلة عند فتح الملف الخاص بالخلية (K5,J5)

أعتقد أنه من الأفضل أن يتم وضع هذا الكود عند تفعيل الصفحة

Private Sub Worksheet_Activate()

Range("k5") = 0

Range("j5") = ""

End Sub

بدلا من

Private Sub Workbook_Open()

Range("k5") = 0

Range("j5") = ""

End Sub

ولى سؤال من فضلك

هل يمكن إستخدام مثل هذا الكود فى تلوين الخلايا

أى بدلا من كتابة أسماء الله الحسنى فى الخلية يتم تلوين الخلية بلون معين ويتغير هذا اللون بإستمرار

اّخر شىء إسمى محمد فريد وليس محمود فريد

لكم جزيل الشكر

رابط هذا التعليق
شارك

اخي محمد

عذرا علي الخطأ في الاسم

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

My link

جربه و اخبرني النتيجة

اخي يمكن كل شيئ و لكن حدد ما تريده و يفيدك كذلك مكان وضع الكود ضعه في المكان الذي يخدم ما تقوم علي عمله

و لكن لن يعمل الكود الا بالانتقال الي شيت اخر ثم الي الرجوع لهذا الشيت

تحياتي

رابط هذا التعليق
شارك

والله اخي عادل انك فنان وكلمة مبدع قليلة عليك

عمل اكثر من رائع وتشكر عليه

ولو سمحت لي بالمشاركة بملف لتلوين الخلية

----------------------------------------

استخدم الكود المسمى "test"

Sub test()

If Sheet1.Range("a1") > 55 Then Sheet1.Range("a1") = 0

Sheet1.Range("d5").Interior.ColorIndex = Sheet1.Range("a1").Value

Sheet1.Range("a1").Value = Sheet1.Range("a1").Value + 1

Application.OnTime Now + TimeValue("00:00:02"), "test"

End Sub
ثم في حدث ال Workbook_Open استخدم الكود
Private Sub Workbook_Open()

Sheet1.Range("a1").Value = 0

test

End Sub

timeeeeeee.rar

رابط هذا التعليق
شارك

الاستاذ عــــــادل

لا يسعني القول بعدكل ذلك سوى ... عمل محترفين

وفقك الله

الاستاذ الحسامي :

مشاركتك ( بتلوين الخلية ) زادت الموضوع نورا

وفقك الله

ياسر الحافظ " ابو الحارث "

رابط هذا التعليق
شارك

اخي الحبيب سعد عابد

اعتذر لك لاني لم اري مشاركتك الا الان

لك كل الشكر علي كلماتك الطيبة و كل عام و انت بكل خير

اخي الحبيب و اللي منورني دائما الحسامي

بارك الله فيك و اضافتك فعلا جميله سلمت يداك

اخي الحبيب يوسف عطا

اشكرك علي مرورك و كلماتك

اخي الحبيب ابو الحارث

كل الشكر علي كلماتك الطيبة

و علي فكره كود اخي يحياوي جميل و يمكن استخدامه لعمل اشياء هامه و هذا للملاحظة

خالص تحياتي و تقديري

رابط هذا التعليق
شارك

شكرا لكم إخوانى الكرام على إبداعكم

رائع الملف يا أ.عادل

بالنسبة للأخ الحسامى

كيف يمكن تطبيق هذا الكود الخاص بالتلوين على array بها قيم عشوائية وليست منتظمة

أى عمل Loop على محتويات ال array

السلام عليكم

رابط هذا التعليق
شارك

السلام عليكم

اخي محمد مرفق ملف يحتوي ما طلبت بحيث :

يتم اعتماد الالوان الموجودة في المدى [a3:a57]

واذا اردت اضافة اي لون تريده فقط قم بتلوين

الخلية اللاحقة لاخر خلية يوجد فيها لون ويجب

ان تكون الالوان متسلسلة اي بدون وجود خلايا بيضاء

بينها حيث لا يقوم باعتماد اللون الابيض نهائيا

رابط هذا التعليق
شارك

  • 2 years later...

السلام عليكم...انا حديث في استخدام الاكسل

وارجو ان يتسع صدركم لسؤالي

 

انا اريد الحصول علي تايمر تنازلي او تصاعدي..في شيت للاكسل

ولكنني لا استطيع ان افهم اي يمكن ان افتح هذا الملف او اين اضعه..

ارجو الافاده...وهل هذا الملف سوف يساعدني بانشاء تايمر ؟؟

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information