اذهب الي المحتوي
أوفيسنا

وائل احمد المصري

الخبراء
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    358

  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    4

 نوع المحتوي 

كل منشورات العضو وائل احمد المصري

  1. وائل احمد المصري
    1-ادرج مديول في مشروعك 2-انسخ الكود التالي بداخل المديول Sub Auto_Open() checkme End Sub Sub checkme() Dim end_dateDate As Date end_dateDate = DateSerial(2015, 6, 10) If Now() >= end_dateDate Then MsgBox ("هذة النسخة انتهت فترتها التجريبية " & CStr(end_dateDate) & ".") ThisWorkbook.Close savechanges:=False End If End Sub عدل التاريخ في الكود المنسوخ من 2015, 6, 10 الى التاريخ اللذي تريدة احمي مشروعك بكلمة مرور للكود مرفق ملفين تطبيق trial version.rar
  2. وائل احمد المصري
    بارك الله فيكم وفي هذا المنتدى اللذي كثيرا" ما نهلت من كنوزة واستفدت من نشاط اعضائة وفقنا الله واياكم على نفع امتنا طبتم وطاب مروركم
  3. وائل احمد المصري
    تقبل الله منا ومنكم صالح الاعمال اسعدني مروركم
  4. وائل احمد المصري
    اول مشاركة لية ارجو ان تكون مفيدة ملف بفورم يعرض اسماء الله الحسنى بالصورة والشرح مع شاشة اافتتاحية لمدة زمنية الشيتات محمية بالرقم 123 الكود غير محمي اي استفسار مرحب بها الرابط http://www.mediafire.com/download/c2ypmw5hrw8ru7f/Names.rar Names.rar
  5. وائل احمد المصري
    اخي الكريم السلام عليكم ورحمة الله وبركاتة من نص الرسالة المرفقة يتضح ان اعدادت الحقل مقصورة على استقبال 11 رقم فقط لذا يمكنك من العودة لاعدادات الحقل وزيادتها كما تريد سواء كانت في فورم او في الجدول نفسة تحياتي
  6. وائل احمد المصري
    اخي بارك الله فيك اما عن سؤالك فاتبع الاتي: 1- تحديد منطفة العمل 2- كليك يمين 3- Format Cell 4- Protection 5- رفع العلامة من مربع Locked * ومن شريط الادوات نختار 7-Tools 8-Protection 9-protect sheet 10-اختار ماشئت من صلاحيات مع وضع password للحماية تقبل تحياتي
  7. وائل احمد المصري
    بارك الله فيك اخي بالنسبة للدالة استخدم دالة =DATEDIF(D3,E3,"d")
  8. وائل احمد المصري
    اخي السلام عليكم تفضل الجزء الاول من طلبك لعلة يلبي حاجتك ضعة في زر تشغيل وتوكل على الله Selection.Borders(xlDiagonalDown).LineStyle = xlNone Selection.Borders(xlDiagonalUp).LineStyle = xlNone With Selection.Borders(xlEdgeLeft) .LineStyle = xlContinuous .Weight = xlMedium .ColorIndex = 3 End With With Selection.Borders(xlEdgeTop) .LineStyle = xlContinuous .Weight = xlMedium .ColorIndex = 3 End With With Selection.Borders(xlEdgeBottom) .LineStyle = xlContinuous .Weight = xlMedium .ColorIndex = 3 End With With Selection.Borders(xlEdgeRight) .LineStyle = xlContinuous .Weight = xlMedium .ColorIndex = 3 End With
  9. وائل احمد المصري
    اخي الحبيب سيد ارجو التماس العذر على تاخيري في الرد عليك نظرا للانشغال ببعض امور العمل برجاء مراجعة المرفق عسى ان يكون ملبيا لطلبك وبارك الله فيك على دعواتك نسال الله ان يقبلها منك ويصيبك مثلهاواكثر اخوك ABC نهاية الخدمة 2new.rar
  10. وائل احمد المصري
    بارك الله فيك هشام اخي تمام التمام
  11. وائل احمد المصري
    الله ينور ياهشام ومعلش كل مهندسين التكييف فعلا .... يلا نقول اية بقى
  12. وائل احمد المصري
    اخي تامر بوركت وجزيت خيرا على كلماتك دمت في حفظ خير من يؤتمن اخوك ABC
  13. وائل احمد المصري
    اخي بارك الله فيك انظر طلبك الأول في المرفق وتابعني ان وجد خطاء اما مطلبك الثاني فاستمحيك عذرا غدا ان شاء الله او بعد غد ان اطال الله العمر ووفقني البيه لك دمت بود في حفظ الله اخوك ABC نهاية الخدمة new.rar
  14. وائل احمد المصري
    اخوي هشام وتامر بارك الله فيكما وتقبل منا جميعا مودتي وتقديري
  15. وائل احمد المصري
    يا اخي الكريم سلام الله عليك ورحمتة وبركاتة الملف لا توجد به مشكلة غير انك قد تكون تستخدم copy & paste من الخلية السابقة وخلال ذلك وقبل التعديل تفقد الخلية مرحلة الادخال انسخ كودك وبينما المؤشر لازال بداخل الخلية ضف ماتريد شرط ان يختلف المدخل ولو بحرف دمت بود
  16. وائل احمد المصري
    جميل اخي هشام كود بسيط في محتواة منجز في فعلة بارك الله فيك وزادك علما بما ينفعك وينفع المسلمين اجمعين لمرضاة الله دمت بود اخوك ABC
  17. وائل احمد المصري
    السلام عليكم اخي ورحمة الله وبركاتة انظر المرفق وايضا ها هو الكود بعد التعديل Function generatehtml(rw As Integer) Dim fs As Object Dim A As Object Dim FileName As String FileName = ThisWorkbook.Path & "\test.html" Set fs = CreateObject("Scripting.FileSystemObject") Set A = fs.CreateTextFile(FileName, True) A.WriteLine ("<head><meta http-equiv='Content-Type' content='text/html; charset=windows-1256' /></head><div dir='rtl' align='right' style='font-size:25px'>سعادة الاستاذ : <font style='color:red'>" & Range("h" & rw & "").Value & "</font><br/>الموضوع : " & Range("i" & rw & "").Value & "</font><br />نفيد سعادتكم علما بأن :<br />المعاملة رقم : " & Range("a" & rw & "").Value & " والمؤرخة بتاريخ : " & Format(Range("b" & rw & "").Value, "yyyy/mm/dd dddd") & " متأخرة وتستوجب الرد<br />هذا للعلم واتخاذ اللازم<br />ملاحظة مهمة :<br /><font style='color:blue'>للاستفسار *****.</font></div>") A.Close End Function كود ارسال ملاحظات بواسطة التنبية بملف html.rar
  18. وائل احمد المصري
    اخي الحبيب تامر المعادلات في الملف موجودة في validation منdata دة بالنسبة للرسالة وبالنسبة للون من conditional formatting ارفقت لك شرح لطريقة اخوتي ابو عبدالله واخي هشام بارك الله فيهما بالفيديو شاهد الملف انشاء الله تجد ضالتك تكرار.rar
  19. وائل احمد المصري
    جميل اخي هشام لكني حين وضعت الحدث في زر تشغيل كان لهدف ترك الامر للمستخدم لتشغيلة ام لا لكن عملك باذن الله جميل تقبل تحياتي
  20. وائل احمد المصري
    السلام عليكم =========== حتى تنتهى من المرفق الخاص بك ولو انى ان شاء الله متأكد ان الصيغة هنا سوف لا تتأثر بالمعادلات على التنسيق بفضل من الله انظر المرفق سوف يتلون الصف كاملا كما تريد فى انتظار ردك السلام عليكم ورحمة الله وبركاتة جميل عملك اخي هشام اود ان اطلعك على مرفقي وهو لا يختلف كثيرا عن مرفقك غير انني استخدمت الكود في تلبية المطلب مع عدم حصر التحقق من الصحة على مدى ثابت بل جعلتة يتغير بناء على رقم المسلسل في العمود A وبكل زيادة فية سيضع التحقق من الصحة اطلع علية واخبرني مارائيك دمت بود اخوك ABC Book1000.rar
  21. وائل احمد المصري
    الجزء الثاني مع ملف العملاء 2.part02.rar مبيعات العملاء.rar
  22. وائل احمد المصري
    اخي وحبيبي انور السلام عليكم ورحمة الله وبركاتة ارفقت لك ملف فيديومقسم على جزئين يشرح ماقام به الاخ الفاضل بن علية بارك الله فية على ملفك حتى تستطيع ان تستوعب الفكرة راجيا من الله ان اكون قد وفقت في ذلك تقبل مروري وتحياتي اخي الكريم 2.part01.rar
  23. وائل احمد المصري
    اخي الفاضل السلام عليكم ورحمت الله وبركاتة كما قال اخي هشام ارفق ملف به المدخلات الخاصة بك حتى يتسني لمن يستطيع مساعدتك تقبل مروري وتحياتي
  24. وائل احمد المصري
    اخي سيد السلام عليكم ورحمة الله بركاتة اشكرك على كلماتك اخي واثابك عليها واعاننا جميعا على مرضاتة اما بخصوص الامثلةالتطبيقية اخي سيدفانصحك بالرجع لاقسام المنتدى وستجد مايسرك سواء في ابواب الاسئلة والاجوبة او الابواب الثابتة كالرابط التالي http://www.officena.net/ib/index.php?showforum=51 كما قمت برفع مجموعة ملفات لك علها تفيدك وهي من منتدى اجنبي متخصص لكن لي ملحوظة لك ان اهم شيء في بناء ملفاتك هي ان تسال نفسك ماذا اريد من هذا الملف سواء في القريب او على المستوى البعيد ؟ من سيستفيد غيري من هذا العمل؟ هل سيكون ملفي من المرونة بحيث يستطيع مستخدمة ان يقوم بما يريد منة . التنسيق واختيار الالوان الهادئة وليست المبهرجة . السهولة في فهم دورة عمل الملف من مدخلات ومخرجات. لذا اخي ستجد ان دور الكود اشبة بالالية الحركة اما الشكل فيخص مرحلة التصميم ارجو ان اكون وفقت في ايصال الفكرة لك. تقبل اخي تحياتي اخوك ABC (4).rar
  25. وائل احمد المصري
    أخي سيداطلع على المرفق بأذن الله ستجد طلبك ابلغني بالنتيجة ان كنت قد وفقت في تلبيتة اخوك ABC نهاية الخدمة.rar
×
×
  • اضف...

Important Information

  I accept