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

عبدالله المجرب

أوفيسنا
  • Posts

    5,409
  • تاريخ الانضمام

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

  • Days Won

    47

كل منشورات العضو عبدالله المجرب

  1. تم دمج المشاركتين نرجو من الاخ السائل عدم فتح موضوعين لنفس الطلب وشكراً
  2. بالاضافة الى ما تفضل به الاخ سعيد نرجو وضع البيانات التي ستعرض عند التغيير
  3. ان شاء الله اذا لم يتم اجابته من قبل احد الاخوة سأضع الكود في الغد ==== اخي ابو الحسن شكراً لك
  4. عدد التفاحات 7 === نفرض ان التفاح يساوي س اذا بيعطي للحارس الاول 1/2 س + 1/2 == والحارس الثاني 1/2(1/2س +1/2) وتساوي 1/4 س + 1/4 والحارس الثالث 1/2(1/4 س + 1/4) وتساوي 1/8 س + 1/8 بتجميع الكل يصبح لدينا المعادلة التالية (بعد توحيد المقامات طبعاً) 7/8 س + 7/8 = س بنقل 7/8 س الى الطرف الاخر 7/8 = س - 7/8 س وبتوحيد مقامات السينات 7/8 =8/8 س - 7/8 س ويساوي 7/8 = 1/8 س بالضرب في 8 اذن س تساوي 7
  5. وان كانت تريد التسلسل المكتوب مسبقاً فسيكون الكود كالتالي Sub Abu_ahmed() Range("A2:B10000").ClearContents For i = 2 To Sheets.Count For j = 2 To Sheets(i).Range("A" & Rows.Count).End(xlUp).Row Cells(Range("B" & Rows.Count).End(xlUp).Row + 1, 2).Value = Sheets(i).Cells(j, 1).Value Cells(Range("B" & Rows.Count).End(xlUp).Row, 1).Value = Sheets(i).Cells(j, 2).Value Next Next End Sub
  6. اخي الرقم هو رقم تسلسلي يمكنك عمله يدوي او بامكانك ان تضع دالة تسلسل تلقائي
  7. السلام عليكم الاخ الاكبر حياخذ 9 والثاني 6 والثالث 2 === طريقة الحل يضاف جمل الى ال17 الموجودة سيصبح لدينا 18 جمل لو اخذ الاكبر نصفها وهو ما يعني 9 والثاني ثلثها وهو 6 والثالث ياخذ تسعها وهو 2 بالجمع يصبح ما تم تقاسمه 17 جمل ان شاء الله الحل صح
  8. جرب المرفق بعد التعديل Sub Abu_ahmed() Range("B2:B10000").ClearContents For i = 2 To Sheets.Count For j = 2 To Sheets(i).Range("A" & Rows.Count).End(xlUp).Row Cells(Range("B" & Rows.Count).End(xlUp).Row + 1, 2).Value = Sheets(i).Cells(j, 1).Value Next Next End Sub 1 (1).rar
  9. الملف الكتابة فيه معكوسة نرجو اعادة ارفاق ملف صحيح == وكيف تريد جمعهم (ما المطلوب بالضبط)
  10. حسب طلب بعض الاخوة الاعضاء لشرح طريقة منع التكرار للمدخلات والتنبية في حال التكرار ارفق لكم هذا الشرح وان شاء الله ينول رضاكم واي استفسار انا في الخدمة حسب المعرفة والله الموفق
  11. بارك الله فيك استاذ عماد على هذا المعادلة الجميلة بالفعل استاذ محمد فاتتني فكرة التجميع == موضوع حلو لتنشيط الذاكرة والاستاذ عماد باين عليه فطحل رياضيات (معادلات بالذات ) ما شاء الله عليه نتمنى ان تضاف مسائل اخرى
  12. اخي الفاضل مجدي تم عرض مرجعين للتصويت عليهم وتم اختيار مرجع للدورة هو اللي احنا ماشيين عليه ولكن ادارة المنتدى ارتاءت بعدم وضع روابط لكتب منسوخة فتم ازالة الرابط يمكنك ان تستمر معنا وتتابع الدروس والله الموفق
  13. الاخ الفاضل مجدي للاسف الشديد الاستاذ ياسر خليل صار له وقت طويل منقطع ونسأل الله ان يعيده الى احضان اوفيسنا باقرب وقت ابواحمد
  14. اخي احمد انا جربته على 2007 وشغال مثل ما انت شفت ولا اعلم شو السبب اللي يخليه ما يشتغل عندك
  15. النشرة الدورية العدد الحادي عشر رابط العدد من هنا * سيتم توزيع الوصلة بالبريدعلى جميع الاعضاء من قبل الاستاذ محمد طاهر. *ستصدر النشرة دوريا بصورة نصف شهرية بإذن الله تعالى وسيكون هناك أعداد خاصة لبعض أعمال رواد منتدى أوفيسنا. مرفق الملف فى صيغة Pdf news 11.pdf
  16. السلام عليكم ذكرتني برقعة الشطرنج وحبات الارز (بكل مربع في القطعة حبة ارز ثم مضاعفته) == الحل 5368709.12 جنيه اما طريقة الحل فقد كتبت رقم 1 في الخانة B1 ثم وضعت هذه المعادلة =B1*2 في الخلية B2 وسحبت الى الاسفل الى الخلية B30 ثم قسمت الناتج على 100 ان شاء الله اجابتي صحيحة
  17. اخي انس جرب المرفق للعلم هناك دالة معرفة (اي يجب ان يكون مستوى أمان الماكرو منخفض) anas anas.rar
  18. اخي الفاضل استبدل الكود السابق بهذا Private Sub CommandButton1_Click() Range("g2").Value = TextBox1.Value Range("i2").Value = Application.WorksheetFunction.Text(TextBox2.Value, "dd/mm/yyyy") Range("l2").Value = Application.WorksheetFunction.Text(TextBox3.Value, "dd/mm/yyyy") UserForm1.Hide End Sub والله الموفق
  19. السلام عليكم قمت بالتجريب في الملف ووصلت للاتي == جدول واحد ستقوم باختيار عدد التلاميذ وتحدد الصف من القائمة المنسدلة ثم تضغط الزر للامانة تم إقتباس بعض اسطر كود الاخ ابونصار بتصرف كل الشكر له على نشاطه الملحوظ حسب العدد.rar
  20. الاستاذ الفاضل محمد صالح عرض جميل وشامل سلمت الانامل التي كتبته بارك الله فيك ==== الاخ الفاضل عبد القادر هذا يرجع الى الاخ الفاضل معتصم ومدى جاهزيته لعرض ما لديه لشرح الدرس الثالث وافضل ان يبقى لمدة يومين لياخذ حقه من الاستفسارات ان وجدت
  21. لارفاق ملف تابع هذا الرابط http://www.officena.net/ib/index.php?showtopic=31250
×
×
  • اضف...

Important Information