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

ياسر خليل أبو البراء

المشرفين السابقين
  • Posts

    13,165
  • تاريخ الانضمام

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

  • Days Won

    412

كل منشورات العضو ياسر خليل أبو البراء

  1. بارك الله فيك أخي الغالي أبا الحسن والحسين وهذا ملف من موضوع آخر مع ملفك (اتنين × واحد) لإثراء الموضوع ليس أكثر ولا أقل .. مع الشهادة بأن ملفك هو الأفضل Gregorian Hijri Dates UserForm.rar
  2. وعليكم السلام أخي الكريم محمد جزيت خيرا على دعائك الطيب
  3. أخي الفاضل جرب المرفق التالي Gregorian Hijri Dates UserForm.rar
  4. أخي الفاضل يرجى رفع الملف على المنتدى .بلاش الروابط الخارجية
  5. ملف الانشطار 10 / 10 ..بس ملف التجميع بيجمع البيانات بشكل غير اللي كان عليه في البداية ..عايزين كل حاجة ترجع لطبيعتها !!
  6. الأخ الحبيب مختار بارك الله فيك وجزاك الله خير الجزاء في الدنيا والآخرة .. بصراحة هو دا الشغل اللي على كبير يا كبير .. خلي بالك احتمال يجيلك خبر قريب انضمامك للهيئة الدولية للطاقة النووية .. بس متنسناش ساعتها بدعوتين (دعوة بظهر الغيب ودعوة لحضور تكريمك هناك) تقبل تحياتي
  7. أخي الحبيب إبراهيم أبو ليلة .. هل ما زالت المشكلة قائمة بعد كل هذه الحلول ؟؟ .. هل عدد مرات التكرار ثابت ( 4 مرات ) كما بالنتائج المرفقة !!!
  8. إنت شغالين الله ينور من غيري .. طيب اتفضلوا الناسف الجديد .. حدد مسار المجلد وبس .. وكل اللي جوا المجلد من ملفات ومجلدات فرعية سيتم نسفها على الفور (الدمار الشامل !!!!!!!!! بجد) Delete Whole Folder.rar
  9. اتجاهنا لازم يكون نحو أسلحة الدمار الشامل وبعدين محدش هياخد خبر من الصعيد إلا إذا فيه حد فتن علينا .. تقبل تحياتي أخي وحبيبي مختار (لازم أسايسك عشان متفتنش عليا)
  10. بارك الله فيك أخي ياسر الشيخ .. نشاط ملحوظ ..يبدو أن الياسريين سوف يحتلون المنتدى قريبا .. احذروا من الحركة الياسرية المرتقبة ، فهي تهدد كيان المنتدى تقبل تحياتي
  11. الأخ الفاضل طارق الحمد لله أن تم المطلوب على خير إنت رجل قديم وفاهم ..يرجى تحديد المشاركة رقم 2 طالما أنها شافيه كافية ..تحديدها كأفضل إجابة .. تقبل تحياتي
  12. مشكور أخي الحبيب على هذا الدعاء الطيب المبارك بارك الله فيك .. يرجى تحديد مشاركتك رقم3 كأفضل إجابة
  13. تنبيه للأخ سامي يرجى عدم تكرار المشاركة بدون داعي في كل الموضوعات .. لابد أن تكون المشاركة هادفة قدر الإمكان .. تقبل تحياتي
  14. الاخ الكريم علي مرحبا بك في المنتدى بدون أن أقوم بتحميل المرفقات ...يرجى الإشارة إلى مرفق واحد ..وتوضيح المطلوب ها هنا ... تقبل تحياتي
  15. راجع المشاركة رقم 10 إنت مصمم تطلب مساعدة من غير ما حد يفهم ايه المطلوب
  16. السلام عليكم ورحمة الله وبركاته إخواني الكرام .. بعد أن نال الملف القاتل إعجاب الكثيرين على هذا الرابط الملف القاتل (ملف يحوي كود لحذف أي ملف تحدده) ، فقد قررت أن تمتد سلسلة القتل (ليكون القتل بشكل جماعي) .. القاتل أصبح سفاح ..!! الملف المرفق ، تقوم بتحديد اسم المجلد داخل الكود ، ويكون المجلد في نفس مسار المصنف ، وبالطبع يمكن تحديد أي مجلد في أي مسار بشرط كتابة اسم المسار الصحيح ، حتى يصل السفاح للمجلد ، ويقوم بعملية الاغتيال الجماعية .. أي حذف كل الملفات الموجودة داخل المجلد ..بصرف النظر عن امتدادات الملف .. أكيد فيه ناس دلوقتي بتقول عليا إني بميل للعنف .. !! ربنا يكفينا شر القتلة والسفاحين تقبلوا تحيات أخوكم أبو البراء Delete All Files In A Folder.rar
  17. جرب هذا الكود لحذف جميع الامتدادات txt في نفس مسار المصنف Public Sub KillProperly(Killfile As String) If Len(Dir$(Killfile)) > 0 Then Kill Killfile End If End Sub Sub KillSpecificFile() 'اكتب اسم الملف المراد حذفه بالامتداد KillProperly (ThisWorkbook.Path & "/*.txt") End Sub
  18. ضع علامة ' قبل اسم الفصل عن طريق تحويل الكتابة للغة الإنجليزية ثم اضغط حرف الطاء
  19. تفضل أخي الفاضل Tarhil Bill Data V2.rar
  20. مش فاهم طلبك ..هل هو مشكلة بالكود .. ولا عايز تمسح البيانات من غير ما تمسح المعادلات .. بالنسبة للخطأ في الكود فألأخ الحبيب حسام شرح نقاط أعتقد أنه قد وضع يده على المشكلة من خلال تلك النقاط ..!! هل راجعت المشاركة رقم 2 ويا ريت ميبقاش التوضيح عايم من غير مرفقات ولا أكواد ولا أي حاجة حد يقدر يساعدك بيها تقبل تحياتي
  21. CTRL + SHIFT + ENETR كليك داخل المعادلة ثم اضغط على الثلاثة مفاتيح معاً
  22. أخي الفاضل طارق جرب الكود التالي Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Cells.CountLarge > 1 Then Exit Sub If Target.Row > 6 Then If Target.Column = 2 Then If Target.Offset(, -1).Value <> CDate(Date) Then Target.Offset(, -1).Select ElseIf Target.Column = 3 Then If Target.Offset(, -2).Value <> CDate(Date) Then Target.Offset(, -2).Select ElseIf Target.Column = 4 Then If Target.Offset(, -3).Value <> CDate(Date) Then Target.Offset(, -3).Select End If End If End Sub Allow Editing Based On Today's Date.rar
  23. أخي الفاضل .. هل العمل سيكون على الملف المرفق في المشاركة رقم 1 ؟؟ ما هي النطاقات المراد مسح البيانات منها ...يرجى تحديد النطاقات
  24. لا يوجد مشكلة بالملف أخي عمار أنا جربت وغيرت اللون وكتبت وحفظت وقفلت الملف وفتحته ومفيش أي تغيير لأي لون تاني يبدو أن المشكلة بالأوفيس لديك ..أو بنسخة الويندوز
×
×
  • اضف...

Important Information