اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

ابو اسامة العينبوسي

المشرفين السابقين
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    2336

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

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

  • Days Won

    1

 نوع المحتوي 

كل منشورات العضو ابو اسامة العينبوسي

  1. ابو اسامة العينبوسي
    السلام عليكم ____.rar
  2. ابو اسامة العينبوسي
    السلام عليكم اخوانى الاحبه ارجو ان تكون الاسئلة اكثر دقة مثلا كلمة عامه جدا لو حددت الخيه كذا و كذا مع مرفق يكون الامر اسهل
  3. ابو اسامة العينبوسي
    السلام عليكم ارسل مثال و حدد الخلايا
  4. ابو اسامة العينبوسي
    السلام عليكم mtrheel2.rar
  5. ابو اسامة العينبوسي
    السلام عليكم تم حل المسالتين لكن كيف تريد ان يبدا تنفيذ الكود متى ؟ Failers2.rar
  6. ابو اسامة العينبوسي
    السلام عليكم طرحنا الموضوع سابقا و لم نجد حلا كاملا
  7. ابو اسامة العينبوسي
    السلام عليكم color2.rar
  8. ابو اسامة العينبوسي
    السلام عليكم Failers.rar
  9. ابو اسامة العينبوسي
    السلام عليكم هذه القائمه مرتبطه بقائمه ال History في المتصفح لديك احذفها من الاكسبلورر لديك تنحذف من الهيبر لينك
  10. ابو اسامة العينبوسي
    السلام عليكم color.rar
  11. ابو اسامة العينبوسي
    السلام عليكم ما شاء الله ممتاز ممكن سؤال اخى في الكود ادناه ComboBox1.AddItem myList & ActiveWorkbook.Sheets(i).Name ما فائده myList &
  12. ابو اسامة العينبوسي
    السلام عليكم هى تعمل مع اكثر من 10 و اليك الدليل .مشفوعا بملف *عدد الطلاب لا حصر له sucsses5.rar
  13. ابو اسامة العينبوسي
    السلام عليكم شكرا للتنويه اخى هشام كان يجب تعديل الرقم 100 الى رقم اعلى 1000 فما فوق مثلا ليصبح الكود كالاتى Sub divide() r = Sheets("ss").Cells(1000, 1).End(xlUp).Row + 1 For i = 1 To 200 If i Mod StusentsNum = 0 Then r = Sheets("ss").Cells(1000, 1).End(xlUp).Row + (rowsnum + 1) End If For x = 1 To ClmNum Sheets("ss").Cells(r, x).Value = Sheets("main").Cells(i, x).Value Next x r = r + 1 Next i End Sub sucsses4.rar
  14. ابو اسامة العينبوسي
    السلام عليكم محاوله للفهم sucsses3.rar
  15. ابو اسامة العينبوسي
    السلام عليكم اذا كان هدفك عدم ظهور الازار في الطباع ممكن تعديل ذلك من خصائص الزر(وقد عدلتها) _______.rar
  16. ابو اسامة العينبوسي
    السلام عليكم هل هذا يفي بالغرض sucsses2.rar
  17. ابو اسامة العينبوسي
    السلام عليكم ارفق ملف به مرادك سؤالك مبهم
  18. ابو اسامة العينبوسي
    السلام عليكم half_color.rar
  19. ابو اسامة العينبوسي
    السلام عليكم جميل فعلاً
  20. ابو اسامة العينبوسي
    السلام عليكم هنا اخى الكريم لب الحل و الباقى بسيط ان كان المطلوب اكمل باذن الله يتم و ضع كل 10 طلاب في شيت (بغض النظر ناجح او راسب للتجريب فقط ) انا اسير الوقت لذلك حلولى مجزوءه sucsses.rar
  21. ابو اسامة العينبوسي
    السلام عليكم Book2.rar
  22. ابو اسامة العينبوسي
    السلام عليكم excel 11 = 2003 excel 12 =2007
  23. ابو اسامة العينبوسي
    السلام عليكم اليك مثال * مجرب يفترض ان القرص الصلب D او غيره كما تحب و هو منقول للامانه test.rar
  24. ابو اسامة العينبوسي
    السلام عليكم http://www.officena.net/ib/index.php?showtopic=21575
  25. ابو اسامة العينبوسي
    السلام عليكم اخى احمد هناك ايضا عده طرق منها : Application.CommandBars("Edit").Controls("Find").Execute Application.Dialogs(xlDialogFormulaFind).Show Application.CommandBars.FindControl(ID:=1849).Execute
×
×
  • اضف...

Important Information

  I accept