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

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

أوفيسنا
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    5412

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

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

  • Days Won

    47

 نوع المحتوي 

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

  1. عبدالله المجرب
    السلام عليكم جرب المرفق سيتم جمع القيم ووضع ناتجها في اخر صف بعد الضغط على الزر ======== كنت قد كتبت الكود ولاحظت مشاركة الاخ ابو نصار لذا اضيفه من باب التعددية Abu_Ahmed_Sum.rar
  2. عبدالله المجرب
    اخي الفاضل سك بابك ان شاء الله سأحاول ولكني الان منشغل ببعض ملفات العمل الطارئة فاعذرني
  3. عبدالله المجرب
    اخي ابو الحسن الملف ليس ملف اكسل
  4. عبدالله المجرب
    السلام عليكم هذا حل باستخدام الاكواد الكود به لمسات للاستاذ خبور حفظه الله Abu_Ahmed_Max_Value.rar
  5. عبدالله المجرب
    وهذا ما لدي ويندوز 7 التمت 32 والنتيجة رائعة
  6. عبدالله المجرب
    الاخوة الكرام ابو ابراهيم ابو نصار ابو الحسن اخجلتموني بطيب كلماتكم اشكركم جزيل الشكر
  7. عبدالله المجرب
    جرب هذه الدالة المعرفة Function Mins(rng1, rng2) As String Mins = (rng2 - rng1) + 1 End Function ستضعها في محرر الاكواد ثم تستخدمها كدالة عادية (اسمها Mins)
  8. عبدالله المجرب
    السلام عليكم جرب هذه =COUNTIF(A1:A24;"<>5") حيث A1:A24 هو المدى والرقم هو 5
  9. عبدالله المجرب
    الاستاذ الفاضل ابو نصار عمل جميل جداً ومحترف
  10. عبدالله المجرب
    السلام عليكم بعد الشكر للاماسة الاستاذ محمد صالح ===== هذا حل لما تطلبه قدمه أمبراطور معادلات الصفيف الاستاذ يحيى حسين في موقعه واضعه هنا للفائدة ضع هذه المعادلة في الخلية AG7 ولا تنسى انها معادلة صفيف (Ctrl + Shift +Enter) =INDEX($B$5:$W$5;LARGE(IF(FREQUENCY(IF($B7:$AE7="x";MATCH($B$5:$AE$5;$B$5:$AE$5;0));TRANSPOSE(COLUMN($B7:$AE7)-COLUMN($B7)+1));TRANSPOSE(COLUMN($B7:$AE7)-COLUMN($B7)+1));COLUMNS($B$13:B13))) وهذه المعادلة ستضعها في الخلية AH7 =SUMPRODUCT(--($B7:$AE7="x");--($B$5:$AE$5=$AG7))
  11. عبدالله المجرب
    المطلوب غير مفهوم واين حل السيد محمد طاهر!!!!!
  12. عبدالله المجرب
    كيف نعرف أرقام الألوان فيها وجزاكم الله خير جميعاً اخي الشهابي الارقام تبداء من 0 الى 56 وليس 65 حسب علمي ولتحصل عليها استعمل هذا الكود Sub ColrIndx() For i = 0 To 56 Cells(i + 1, 1).Interior.ColorIndex = i Cells(i + 1, 1).Offset(0, 1) = i Next End Sub
  13. عبدالله المجرب
    السلام عليكم الاخ الفاضل شوتري بوعلام المحترم نفس ملاحظة اخي ابو نصار وازيد عليه عند الذهاب الى دليل الاستخدام يظهر نفس الخطاء السابق ويلون بالاصفر هذا الخط ActiveSheet.Shapes.Range(Array("TextBox 2")).Select كما ان زر العودة الى الصفحة الرئيسية داخل الى جهة اليسار (وشريط التمرير الجانبي غير مفعل) وعلى العموم جهد يستحق الاشادة
  14. عبدالله المجرب
    الاخ الفاضل جلال محمد بارك الله فيك ونفع بعلمك سلمت يمينك ابواحمد
  15. عبدالله المجرب
    السلام عليكم اخي الفاضل تابع هذا الرابط ففيه ان شاء الله ما تطلب http://www.officena.net/ib/index.php?showtopic=39210
  16. عبدالله المجرب
    اخي الشهابي انا جربت الكود بتاعك بعد التعديلات ولكن رقم اللون غير مطابق فاستعملت هذا الكود لمعرفة رقم رون الخلية وكان -4142 Sub aa() Cells(1, 1).Value = Cells(i, j).Interior.ColorIndex End Sub حيث قمت بتفعيل الكود بزر F8 وحصلت على الرقم السابق ========== الاستاذ الفاضل ابو نصار ما استطيع قوله هو استاذ ونرجو منك التكرم بشرح هذه الجزئية يا باشا .Interior.Color = RGB(255, 255, 0)
  17. عبدالله المجرب
    السلام عليكم اخي الشهابي حل موفق ولو ان الجواب على السوال الثالث احتاج الى تدخل جراحي لكي يعمل ولكن محاولة ممتازة جداً جداً وبداية موفقة والكود بعد التعديل في اكسل 2007 Sub abinshehab() Sheets("ورقة2").Cells.ClearContents For j = 1 To 4 For i = 2 To 20 If Sheets("ورقة1").Cells(i, j).Interior.ColorIndex = -4142 Then Sheets("ورقة2").Cells(i, j).Value = Sheets("ورقة1").Cells(i, j).Value End If Next i Next j End Sub
  18. عبدالله المجرب
    السلام عليكم اخي طاهر هل وضعت رقم القرص الصلب بدل هذه العبارة If [E5] <> "ضع هنا رقم القرص الصلب" Then
  19. عبدالله المجرب
    اخي الفاضل اول خطوة هي تخفيض أمان الماكرو ثانياً شاهد الصورة ثم بالضغط على اسم الصورة يظهر لك مربع وسائط الدالة
  20. عبدالله المجرب
    السلام عليكم ولكي تبسط الموضوع على الاستاذ ابو نصار ارفق ملف يبين ما تريد ابو احمد
  21. عبدالله المجرب
    السلام عليكم ما دام الحسامي تدخل فلا نقاش في الاجابة سلمت يمينك استاذ عماد على هذه الدرر
  22. عبدالله المجرب
    السلام عليكم تفضل المرفق استمارة 12د.rar
  23. عبدالله المجرب
    بارك الله فيكم اخواني واسال الله ان يعافيكم في ابدانكم وينعم عليكم بالصحة والعافية وطول العمر والبركة في الرزق الحمدلله الذي مَن علي بالصحة والعافية =========== تم اغلاق الموضوع
  24. عبدالله المجرب
    السلام عليكم اخي ابو عبدالله اليس 270 / 60 هي التي تساوي 4.5 (اربع ساعات ونصف)
  25. عبدالله المجرب
    بارك الله فيك والحمدلله انك وصلت الى مبتغاك
×
×
  • اضف...

Important Information

  I accept