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

ABOU ELSAAD

عضو جديد 01
  • Posts

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

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

السمعه بالموقع

10 Good

عن العضو ABOU ELSAAD

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    مدرس

اخر الزوار

بلوك اخر الزوار معطل ولن يظهر للاعضاء

  1. استاذ ابراهيم الحداد سلام الله عليك ورحمته وبركاته تعجز الكلمات عن التعبير عن مدى امتناني وشكري لحضرتك فجزاك الله خير الجزاء في الدنيا والاخرة واسف على تعب حضرتك معي
  2. استاذ محمد بعد اذن حضرتك لي طلب اخر هل من الممكن الاختصار بحيث اذا كانت ايام الغياب متتالية مثل غياب يوم ( 1و2و3و4و5و6) ان تختصر الى غياب يوم (1-6)
  3. الاستاذ محمد صالح سبحان الله وكانك تقرا ما بخاطري عندما قمت بتجربة كود الاستاذ ابراهيم جزاه الله خيرا حدث ما قلته بالضبط فظهرت الارقام معكوسة فقمت بحذف StrReverse حتى تظهر الارقام بصورتها الصحيحة فاذا بحضرتك تفيض علي من كرمك بحل رائع فجزاك الله خير الجزاء وزادك من فضله
  4. جزاك الله خير الجزاء استاذ ايراهيم وجعله في ميزان حسناتك
  5. الاخوة الكرام السلام عليكم ورحمة الله وبركاته المطلوب المساعدة في كود يقوم بترحيل ايام الغياب من الكشف الى العمود AL بحيث تظهر بهذا الشكل في العمودAL بحيث يتم اختيار الخلية التي بها الايام فقط ويترك الخلايا الفارغة وجزاكم الله خيرا ترحيل.xlsx
  6. جزاك الله خير الجزاء استاذي الفاضل محمد الكود شغال تمام لكنه لا يحذف الملف فلو ممكن اطلب من حضرتك ان تجعله في ملف كمثال حتى اجربه عندي وان كان وقت حضرتك لا يسمح فجزاك الله خيرا على المجهود الطيب
  7. نعم استاذي الفاضل الكود ممتاز ويعمل بكفاءة ممتازة لكن عند تحويله ملف تنفيذي exe لا يحذف الملف التنفيذي exe فان كان بالامكان تعديل الكود بحيث يمكن حذف الملف التنفيذي exe فبها ونعمت وان لم يكن فعلى الاقل تعديل الكود ليمسح محنويات الملف التنفيذي ولك جزيل الشكر
  8. جزاك الله خيرا استاذ محمد بالنسبة لمضاد الفيروسات فهو يتعامل مع ملف تحويل الاكسل على انه فيروس ( علما باني قمت بتحميله من موضوع تحويل الاكسل الى ملف تنفيذي بالمنتدى وبالنسبة للكود Option Explicit Private Const MSG_TITLE As String = "Deleting Current Workbook ..." Private Const MSG_TEXT As String = _ "You are about to permanently delete the current workbook located in :" Sub Kill_Myself() Dim lUserDecision As Long Dim sMsg As String On Error Resume Next sMsg = "Attention !" & vbNewLine & vbNewLine sMsg = sMsg & MSG_TEXT & vbNewLine sMsg = sMsg & "'" & ThisWorkbook.FullName & "'" & vbNewLine sMsg = sMsg & "from Disk!!" & vbNewLine & vbNewLine sMsg = sMsg & "Go ahead ?" & vbNewLine & vbNewLine Beep lUserDecision = _ MsgBox(sMsg, vbExclamation + vbYesNo, MSG_TITLE) With ThisWorkbook If lUserDecision = vbYes Then .Saved = True .ChangeFileAccess xlReadOnly Kill .FullName .Close False End If End With End Sub وهو في موضوع
  9. الاخوة الكرام السلام عليكم ورحمة الله وبركاته قمت بتجربة حذف الشيت بعد تاريخ معين باستخدام الاكواد الرائعة من هذا المنتدى الرائع ووجدتها تعمل على اتم وجه ولكن عند تحويل الملف الى ملف exe الكود لا يعمل فهل من الممكن التعديل على الكود بحيث يعمل على هذا الامتداد ولكم جزيل الشكر SuicidalWorkbook.rar
  10. جزاك الله خير الجزاء استاذنا الفاضل أ / محمد صالح هذا هو المطلوب تماما
  11. الاخوة الكرام ... السلام عليكم ورحمة الله وبركاته ارجو من حضراتكم المساعدة في الكود التالي حيث انه يعرض جميع اسماء الشيتات في الكمبوبوكس وما اريده ان يستثني اسماء شيتات محددة فلا يقوم بعرضها Private Sub UserForm_Activate() Dim WS As Worksheet For Each WS In Worksheets ComboBox20.AddItem (WS.Name) Next WS End Sub اÙ_Ù_صÙ_Ù_231.xlsm
  12. جزاكم الله خير الجزاء استاذي الفاضل محي الدين ابو البشر وبارك الله لك في علمك
  13. الاخوة الكرام السلام عليكم ورحمة الله وبركاته جزاكم الله خيرا على المجهود الطيب المطلوب ترحيل أيام الاجازات الاعتيادي والعارضة من ورقة1 الى ورقة2 للجميع دفعة واحدة كل واحد الى الخانة الخاصه به وذلك عند الضغط على زر الترحيل ولكم جزيل الشكر ...انتبه من فضلك تم تعديل رفع الملف بإمتداد XLSM , طالما انك تريد الإجابة بالأكواد المصنف1.xlsm
  14. الاخوة الكرام السلام عيكم ورحمة الله وبركاته جزاكم الله خيرا على مجهودكم الرائع ولي طلب بسيط كما هو موضح بالصورة .اريد المساعدة في اظهار الارقام في الفورم بالارقام العربية بدلا من ظهورها بالانجليزية ولكم جزيل الشكر
  15. الاخوة الكرام السلام عليكم ورحمة الله وبركاته ارجو من حضراتكم المساعدة في هذا الموضوع حيث اني بحثت كثيرا ولم اجد ما يفيدني في ذلك باختصار ما اريده هو انني اذا كتبت اي قيمة في اي خلية في عمود معين يتم احضارها الى خلية في جدول اخر بالترتيب بحيث ينقل القيمة في خلية ثم ينقل القيمة التي بعدها في العمود الى الخلية التي بعدها في الجدول دون ترك مسافات بين الخلايا في الجدول وجزاكم الله خيرا
×
×
  • اضف...

Important Information