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

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

أوفيسنا
  • Posts

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

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

  • Days Won

    47

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

  1. اخي احمد زمان بارك الله فيك ولا حرمنا الله هذه الجهود المميزة اخي ابو يوسف هل يوجد لديك رابط البرنامج الذي اشرت اليه
  2. اخي ابو تميم شكراً للتشجيع العفو منك اخي tofimoon4 فهذا واجبي حسب الاستطاعة
  3. السلام عليكم طلباتك تحتاج الكثير من الوقت للتجربة والتعديل فامهلني وان تكفل احد الاخوة بالمساعدة كان بها او ساحاول قدر المستطاع المساعدة وحسب مقدرتي ووقتي
  4. تفضل المرفق تم عمل الطلبين تامينا ت2012 (1).rar
  5. ما شاء الله تبارك الله زادك الله من علمه ونفع بك ابو احمد
  6. السلام عليكم == نرجو في المستقبل وضع بيان للمطلوب في الطلب == تفضل المرفق Book1 (2).rar
  7. تفضل Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, [D7:D1000,F7:F1000]) Is Nothing Then Cells(Target.Row, 8).FormulaR1C1 = "=IF(RC[-2]="""","""",VLOOKUP(RC[-2],prices,2,0))" Cells(Target.Row, 9).FormulaR1C1 = "=IF(RC[-3]="""","""",RC[-2]*RC[-1])" Cells(Target.Row, 10).FormulaR1C1 = "=IF(COUNTIF(RC[-7]:R5C[-7],RC[-7])=1,SUMIF(C[-7],RC[-7],C[-1]),"""")" Cells(Target.Row, 11).FormulaR1C1 = "=IF(RC[-5]="""","""",VLOOKUP(RC[-5],prices,3,0))" Cells(Target.Row, 12).FormulaR1C1 = "=IF(RC[-6]="""","""",RC[-5]*(RC[-4]-RC[-1]))" For i = 8 To 12 Cells(Target.Row, i).Value = Cells(Target.Row, i) Next End If End Sub
  8. اولاً اهلاً بك بيننا ثانياً نرجو الالتزام بقواعد المشاركة === ضع هذه المعادلة في الخلية i3 ثم اسحب للاسفل =IF(C3<50;C$1;"")&" " &IF(D3<50;D$1;"")&" "&IF(E3<50;E$1;"")&" "&IF(F3<50;F$1;"")&" "&IF(G3<50;G$1;"")&" "&IF(H3<50;H$1;"")
  9. اخي الفاضل بعد فك الضغط عن الملف اضغط شفت وابقى ضاغط عليه وافتح الملف وسيتم فتح الملف بحيث تستطيع التعديل عليه
  10. نرجو وضع وصف للطلب بدل الاجبار على التحميل لمعرفة الموضوع ======= ما رايك بجدول مساعد لنقل القيم المفروزة اليه ليتم حسابها
  11. مبروك اخي محمد ترقية مستحقة وكل الشكر للاستاذ ابو ادم ورفيق دربه ابا خليل ولادارة الموقع
  12. السلام عليكم راجع الشروح هنا الدروس الاولى http://www.officena.net/ib/index.php?showtopic=39323
  13. اولاً : نرجو في المستقبل وضع وصف للطلب ===== اليك هذا الرابط
  14. عمل رائع جداً خربشات خبورية تعليمية سلمت يمينك ابا علي
  15. السلام عليكم هذا الملف الرائع يجب ان يبقى في المقدمة ====== جزاك الله خيراً استاذ عبدالله
×
×
  • اضف...

Important Information