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

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

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

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

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

  • Days Won

    412

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

  1. الاخ الحبيب الجموعي جزيت خيرا على التفصيل للكود ولكن ليس هذا ما قصدته أنا قصدت أني لم ألمس الكود في اليوزرفورم أي أنه ليس له تأثير باليوزرفورم .......!! تقبل تحياتي
  2. أخي سليم ملفك ليس له علاقة بالموضوع ..!!!!!!!! تقبل تحياتي وتقديري
  3. أخي الفاضل محمد القمجي مشكور على مرورك العطر الأخ الحبيب سليم بارك الله فيك وزادك علما وعملا هو دا الشغل .. أرمي ملف ترمي لي ملف علطول .. أحب اللعبة الحلوة خد وهات تقبل تقديري واحترامي
  4. بسم الله ما شاء الله أخي في الله محمد شرح رائع .. هذا ما أسميه السهل الممتنع بارك الله فيك وجعل أعمالك في ميزان حسناتك يوم القيامة
  5. ادخل على خيارات الإكسيل ومن التبويب popular بص على نوع الخط Use this Font ..؟؟ تأكد من الإعدادات الإقليمية في لوحة التحكم Control Panel أن تكون اللغة العربية مفعلة؟
  6. السلام عليكم إخواني الأحباب أقدم لكم ملف خفيف ظريف هل جلست يوما أمام الكمبيوتر وبعدين سرح بك الوقت وحبيت تعرف إنت قاعد من الساعة كام ؟؟ يمكن تكون حاجة مش بتحصل كتير بس ممكن تحصل إليكم الملف المرفق ! Windows Last Login Time.rar
  7. ما هو نوع الخط الافتراضي لديك؟
  8. أخي الحبيب .. في المرة الأولى كنت زي الفل لما كتبت شكل النتائج اللي انت عايزها ورغم إن الطلب صعب الحمد لله ربنا وفقني وقدرت أخلصه بالنسبة للطلب الثاني دمج ملف المقبوضات ؟؟ إزاي عايز تدمجه الأفضل حدد شكل النتائج كما ترغب وإن شاء الله ربنا ييسر الحال وأقدر أكمل مشوار ملفك الطويل
  9. الأخ الفاضل أمير الروح مرحبا بك في بيتك مرحبا بك في منتدانا الحبيب بالنسبة لطلبك الأول الموضوع بسيط كما تفضل الأخ ناصر أما بالنسبة لطلبك الثاني فهو غير مفهوم بالمرة .. حدد طلبك بشكل أكثر وضوحا .. حدد الخلايا التي تريد العمل عليها .. كن واضحا وضوح الشمس TestThis.rar
  10. ربنا يكرمك يا باشمهندس .. جزيت خيرا على تشجيعك لي و ما أقدمه لا يساوي شيئا مقابل ما يقدمه العمالقة ! أنا مجرد قطرة في محيط هذا المنتدى تقبل تحياتي وتقديري
  11. أخي الحبيب عادل بعد إذن الأخوة الأفاضل .. أنا لست بمحترف ولكن جرب هذا الملف ... Transfer Several Tables Into One Table.rar
  12. كيف تقوم بعملية الاستيراد؟ إذا كنت تقصد النسخ فقم بلصق كـ Text ...
  13. الأخ الحبيب ولد جدة بقالي يومين في الملف بتاعك لما عيني طلعت بصراحة إليك المطلوب إن شاء الله يعجبك بس متنساش تدعي لي .. انت عارف لو نسيت مش هساعدك تاني .. هتقولي طيب وهتعرف منين إني دعيت لك هقولك العصفورة هتقولي الملف الأساسي.rar
  14. أخي الفاضل أطلب منك تغيير اسمك إذا لم يكن بإمكانك فاطلب من أحد المشرفين . !!!
  15. أخي ناصر سبق وأن أخبرتك أن الحماية في الإكسيل قد تكون منعدمة بالنسبة لباسورد VBA يمكن بكل سهولة التغلب عليه
  16. الأخ الحبيب أسامة بداية شرفت منتدانا .. ونورت ثانيا يرجى دائما عند طلب شيء ما الابتعاد عن العناوين الغامضة التي لا تدل على مضمون الموضوع (يرجى من المشرفين تغيير العنوان) ثالثا حاول دائما أن توضح طلبك بالكلام وبالملف المرفق .. رابعا وأخيرا تفضل جرب الملف التالي : أنا قمت بتغيير أسماء المصنفات بالإنجليزية لسهولة التعامل مع الكود ، يمكنك تغيير أسماء المصنفات والتغيير في الكود بما يلزم لتحقق طلبك ملحوظة في ورقة عمل لم يكن الصف الذي به كلمة NET DUE موجود فأضفته لاعتماد الكود على هذا النص في استخراج المطلوب أتركك مع الملف : بقالي 3 ساعات شغال عليه !!!!!!!! Customers.rar
  17. أستاذي الحبيب أبو أدهم والله إنه لشرف لي أن تضع موضوع لي ضمن قائمة لست أهلا أن يوضع لي موضوع بينهم بارك الله فيك .. وجزيت خيرا
  18. مشكور على مرورك العطر أستاذي الفاضل جلال مرورك بالموضوع شرف لي.. تقبل تحياتي
  19. بسم الله ما شاء الله بارك الله فيك أخي الحبيب وزادك علما يا أخ محمد أنا استفدت كثيرا خصوصا أنني لا أجيد التعامل مع اليوزرفورم .. بصراحة بدأت أحب التعامل معاها بسبب ملفك الجميل .. الرائع فيه جزئية عايز أسألك عليها ايه الجزء دا في الكود: Private Sub ToggleButton2_Click() If Me.ToggleButton2.Value = True Then Frame1.Visible = False Frame2.Visible = True End If End Sub
  20. بارك الله فيك يا بن عليه حاجي . أيها المعلم القدير تقبل تحياتي وتقديري
  21. الأخ الحبيب حسام اسمح لي بإضافة بسيطة على الكود الخاص بك Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("C8:C9")) Is Nothing Then If [C3] = 1 And Not IsEmpty(Target) Then MsgBox "لا يمكن ادخال كميات أسفلتيه فى الحفرية الترابية": Target.ClearContents End If If Not Intersect(Target, Range("E7:E8")) Is Nothing Then If [C3] = 1 And Not IsEmpty(Target) Then MsgBox "لا يمكن ادخال كميات أسفلتيه فى الحفرية الترابية": Target.ClearContents End If End Sub حتى يتم مسح محتويات الخلية بعد إظهار الرسالة
  22. جزيت خيرا أخي الريفي على هذه الإضافة الجميلة ولكن النسخة تجريبية .. ومن يرغب في النسخة الكاملة يستأذن المشرفين ، ويدعي لي دعوة تسر قلبي أقوم أبعتهاله على الخاص أو العام لو سمح المشرفون بذلك
  23. أنا مجربه وشغال كويس ..لازم عشان الملف يفتح يكون السيريال مطابق لسيريال الهارد ديسك بس طبعا لو حد ألغى إعدادت الماكرو المرتفعة الملف هيفتح عادي عشان كدا بقولك مفيش فايدة
  24. أخي الحبيب ناصر تفضل المرفقات يوجد ملف نصي به كود قم بوضعه في حدث فتح المصنف بس الأول شوف السيريال الخاص بالهارد ديسك الخاص بك وضعه في الكود ليعمل الملف .. وشوف الملف دا هيتشغل على جهاز تاني ولا لا HD Serial Number.rar
  25. تسلم الأيادي يا ابن مصر يا كبير
×
×
  • اضف...

Important Information