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

أبو حنــــين

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

  • Posts

    2845

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

  • Days Won

    9

 نوع المحتوي 

كل منشورات العضو أبو حنــــين

  1. أبو حنــــين
    جزاك الله خيرا اخي حمادة عمر على المرور و الكلمات الطيبة
  2. أبو حنــــين
    السلام عليكم غيرت الملف و اضفت واجهة للاضافة و التعديل استدعاء و تعديل.rar
  3. أبو حنــــين
    آسف اخي عمرو رحيل لم ارى ردك
  4. أبو حنــــين
    السلام عليكم حضور وانصراف.rar
  5. أبو حنــــين
    السلام عليكم Book1.rar
  6. أبو حنــــين
    السلام عليكم اخي زوهير بالنسبة للطلب الاول يكون كالتالي Private Sub ListBox1_Click() For e = 0 To ListBox1.ColumnCount - 1 Me.Controls("TextBox" & e + 1) = ListBox1.Column(e) Next End Sub بالنسبة للطلب الثاني لم افهم القصد هل التعديل في ورقة العمل او في القائمة
  7. أبو حنــــين
    تفضل اخي ابراهيم و لا تنسانا من دعائكم في ظهر غيب داتا فاليديجن.rar
  8. أبو حنــــين
    المرفق كما طلبت لكن لو تذكر لي ما التنسيق الذي تريده لاجعل الملف اسرع في التنفيذ ابوحنين 1.rar
  9. أبو حنــــين
    جرب المرفق اخي ابراهيم داتا فاليديجن.rar
  10. أبو حنــــين
    أخي الفاضل : الأستاذ حلمي ( helmy nawar ) جزاك الله خيرا على مروركم و دعائكم الطيب و جعل ذلك في ميزان حسناتكم حفظك الله انت و الاهل و حفظ الصبية التي بين يديك
  11. أبو حنــــين
    اخي هذا هو الملف كما طلبت لكن التنسيق الشرطي الموجود في الملف جعله بطئ ابوحنين.rar
  12. أبو حنــــين
    اعتقد ان الدالة ستكون بهذه الكيفية =IF(OR(P11<15;P11="غ");"عربى";IF(OR(R11<20;R11="غ");"عربى";""))
  13. أبو حنــــين
    أخي الحبيب :/ goodlife جزاك الله خيرا و سلمت من كل مكروه ان شاء الله
  14. أبو حنــــين
    كود في منتهى الجمال و الروعة اخي ابو نصار كما انه بالغ الاهمية وحتما سيستفاد منه كثيرا جزاك الله خيرا و جعله في ميزان حسناتك
  15. أبو حنــــين
    أخي : / يوسف جزاك الله خيرا و حفظك من كل مكروه ان شاء الله
  16. أبو حنــــين
    عمل ممتاز اخي محمود بارك الله فيكم و جزاكم الله خيرا و جعله في ميزان حسنالتكم
  17. أبو حنــــين
    جراك الله خير الجزاء اخي محمد و ابعد عنك كل مكروه ان شاء الله
  18. أبو حنــــين
    تفضل اخي جرب النرفق New project 22.rar
  19. أبو حنــــين
    ضع الكود بهذه الطريقة Private Sub Workbook_Open() On Error Resume Next Dim xl As Workbook Set xl = Workbooks("فتح.xls") With xl Application.DisplayAlerts = False .Close .Save End With End Sub
  20. أبو حنــــين
    ضع هذا السطر بعد with xl Application.DisplayAlerts = False
  21. أبو حنــــين
    اعمال رائعة و هدايا قيمة اخي الحبيب :/ رجب جزاك الله خيرا و جعله في ميزان حسناتك
  22. أبو حنــــين
    تقبل الله منك الدعاء اخي الحبيب : / عباس السماوي و حفظك الله و حفظ اهلك حميعا انه على ذلك لقدير جزاك الله خيرا
  23. أبو حنــــين
    جزاك الله خيرا و عافاك من كل مكروه اخي : / الحامد الشاكر
  24. أبو حنــــين
    لكنني سبقتك . . . بثواني قليلة رغم انني اكتب بيد واحدة فما بالك لو كنت بكلتا اليدين ههههههههههههه تقبل تحياتي الاخوية جدا جدا جدا
  25. أبو حنــــين
    السلام عليكم اخي جرب هذا الكود و اكتبه في حدث Workbook_Open في جميع الملفات ماعدى الملف الرئيسي قم بعملية نسخ لصق للكود Private Sub Workbook_Open() On Error Resume Next Dim xl As Workbook Set xl = Workbooks("فتح.xls") With xl .Close End With End Sub
×
×
  • اضف...

Important Information

  I accept