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

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

قام بنشر

السلام عليكم

أريد أن أقوم بعمل تايمر بحيث أنه كل 5 دقائق

تظهر فى خلية معينة ولتكن (A2)يظهر فيها التوقيت الحالى

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

قام بنشر

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

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

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

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

وبعدها ترجع سيرتها الأولى أى يتم عمل (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