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

السلام عليكم ____.rar

السلام عليكم اخوانى الاحبه ارجو ان تكون الاسئلة اكثر دقة مثلا كلمة عامه جدا لو حددت الخيه كذا و كذا مع مرفق يكون الامر اسهل

السلام عليكم ارسل مثال و حدد الخلايا

السلام عليكم mtrheel2.rar

السلام عليكم تم حل المسالتين لكن كيف تريد ان يبدا تنفيذ الكود متى ؟ Failers2.rar

السلام عليكم طرحنا الموضوع سابقا و لم نجد حلا كاملا

السلام عليكم color2.rar

السلام عليكم Failers.rar

السلام عليكم هذه القائمه مرتبطه بقائمه ال History في المتصفح لديك احذفها من الاكسبلورر لديك تنحذف من الهيبر لينك

السلام عليكم color.rar

السلام عليكم ما شاء الله ممتاز ممكن سؤال اخى في الكود ادناه ComboBox1.AddItem myList & ActiveWorkbook.Sheets(i).Name ما فائده myList &

السلام عليكم هى تعمل مع اكثر من 10 و اليك الدليل .مشفوعا بملف *عدد الطلاب لا حصر له sucsses5.rar

السلام عليكم شكرا للتنويه اخى هشام كان يجب تعديل الرقم 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

السلام عليكم محاوله للفهم sucsses3.rar

السلام عليكم اذا كان هدفك عدم ظهور الازار في الطباع ممكن تعديل ذلك من خصائص الزر(وقد عدلتها) _______.rar

السلام عليكم هل هذا يفي بالغرض sucsses2.rar

السلام عليكم ارفق ملف به مرادك سؤالك مبهم

السلام عليكم half_color.rar

السلام عليكم جميل فعلاً

السلام عليكم هنا اخى الكريم لب الحل و الباقى بسيط ان كان المطلوب اكمل باذن الله يتم و ضع كل 10 طلاب في شيت (بغض النظر ناجح او راسب للتجريب فقط ) انا اسير الوقت لذلك حلولى مجزوءه sucsses.rar

السلام عليكم Book2.rar

السلام عليكم excel 11 = 2003 excel 12 =2007

السلام عليكم اليك مثال * مجرب يفترض ان القرص الصلب D او غيره كما تحب و هو منقول للامانه test.rar

السلام عليكم http://www.officena.net/ib/index.php?showtopic=21575

السلام عليكم اخى احمد هناك ايضا عده طرق منها : Application.CommandBars("Edit").Controls("Find").Execute Application.Dialogs(xlDialogFormulaFind).Show Application.CommandBars.FindControl(ID:=1849).Execute