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

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

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

  • Posts

    5,409

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

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

  • Days Won

    47

 نوع المحتوي 

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

  1. عبدالله المجرب
    السلام عليكم هذا حل باستخدام الاكواد الكود به لمسات للاستاذ خبور حفظه الله Abu_Ahmed_Max_Value.rar
  2. عبدالله المجرب
    وهذا ما لدي ويندوز 7 التمت 32 والنتيجة رائعة
  3. عبدالله المجرب
    الاخوة الكرام ابو ابراهيم ابو نصار ابو الحسن اخجلتموني بطيب كلماتكم اشكركم جزيل الشكر
  4. عبدالله المجرب
    جرب هذه الدالة المعرفة Function Mins(rng1, rng2) As String Mins = (rng2 - rng1) + 1 End Function ستضعها في محرر الاكواد ثم تستخدمها كدالة عادية (اسمها Mins)
  5. عبدالله المجرب
    السلام عليكم جرب هذه =COUNTIF(A1:A24;"<>5") حيث A1:A24 هو المدى والرقم هو 5
  6. عبدالله المجرب
    الاستاذ الفاضل ابو نصار عمل جميل جداً ومحترف
  7. عبدالله المجرب
    السلام عليكم بعد الشكر للاماسة الاستاذ محمد صالح ===== هذا حل لما تطلبه قدمه أمبراطور معادلات الصفيف الاستاذ يحيى حسين في موقعه واضعه هنا للفائدة ضع هذه المعادلة في الخلية 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))
  8. عبدالله المجرب
    المطلوب غير مفهوم واين حل السيد محمد طاهر!!!!!
  9. عبدالله المجرب
    كيف نعرف أرقام الألوان فيها وجزاكم الله خير جميعاً اخي الشهابي الارقام تبداء من 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
  10. عبدالله المجرب
    السلام عليكم الاخ الفاضل شوتري بوعلام المحترم نفس ملاحظة اخي ابو نصار وازيد عليه عند الذهاب الى دليل الاستخدام يظهر نفس الخطاء السابق ويلون بالاصفر هذا الخط ActiveSheet.Shapes.Range(Array("TextBox 2")).Select كما ان زر العودة الى الصفحة الرئيسية داخل الى جهة اليسار (وشريط التمرير الجانبي غير مفعل) وعلى العموم جهد يستحق الاشادة
  11. عبدالله المجرب
    الاخ الفاضل جلال محمد بارك الله فيك ونفع بعلمك سلمت يمينك ابواحمد
  12. عبدالله المجرب
    السلام عليكم اخي الفاضل تابع هذا الرابط ففيه ان شاء الله ما تطلب http://www.officena.net/ib/index.php?showtopic=39210
  13. عبدالله المجرب
    اخي الشهابي انا جربت الكود بتاعك بعد التعديلات ولكن رقم اللون غير مطابق فاستعملت هذا الكود لمعرفة رقم رون الخلية وكان -4142 Sub aa() Cells(1, 1).Value = Cells(i, j).Interior.ColorIndex End Sub حيث قمت بتفعيل الكود بزر F8 وحصلت على الرقم السابق ========== الاستاذ الفاضل ابو نصار ما استطيع قوله هو استاذ ونرجو منك التكرم بشرح هذه الجزئية يا باشا .Interior.Color = RGB(255, 255, 0)
  14. عبدالله المجرب
    السلام عليكم اخي الشهابي حل موفق ولو ان الجواب على السوال الثالث احتاج الى تدخل جراحي لكي يعمل ولكن محاولة ممتازة جداً جداً وبداية موفقة والكود بعد التعديل في اكسل 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
  15. عبدالله المجرب
    السلام عليكم اخي طاهر هل وضعت رقم القرص الصلب بدل هذه العبارة If [E5] <> "ضع هنا رقم القرص الصلب" Then
  16. عبدالله المجرب
    اخي الفاضل اول خطوة هي تخفيض أمان الماكرو ثانياً شاهد الصورة ثم بالضغط على اسم الصورة يظهر لك مربع وسائط الدالة
  17. عبدالله المجرب
    السلام عليكم ولكي تبسط الموضوع على الاستاذ ابو نصار ارفق ملف يبين ما تريد ابو احمد
  18. عبدالله المجرب
    السلام عليكم ما دام الحسامي تدخل فلا نقاش في الاجابة سلمت يمينك استاذ عماد على هذه الدرر
  19. عبدالله المجرب
    السلام عليكم تفضل المرفق استمارة 12د.rar
  20. عبدالله المجرب
    بارك الله فيكم اخواني واسال الله ان يعافيكم في ابدانكم وينعم عليكم بالصحة والعافية وطول العمر والبركة في الرزق الحمدلله الذي مَن علي بالصحة والعافية =========== تم اغلاق الموضوع
  21. عبدالله المجرب
    السلام عليكم اخي ابو عبدالله اليس 270 / 60 هي التي تساوي 4.5 (اربع ساعات ونصف)
  22. عبدالله المجرب
    بارك الله فيك والحمدلله انك وصلت الى مبتغاك
  23. عبدالله المجرب
    واقول لمن يقول ان السوال من خارج الدورة لو تلاحظون بانه لا يكاد يمر يوم الا ويرد الاخوة على اسئلة ترحيل وهي من اكثر ما تم مناقشته وبعدة اشكال كما اني شرحت كيفية معرفة الخلايا حسب الصف والعمود والباقي هو الشرط وحلقة التكرار === بالنسبة للاجابات لديك خطائين السوال الثالث والرابع بالنسبة للثالث المطلوب ترحيل والرابع المطلوب ان تقوم بعمل دالة وليس ميكرو (راجع اجابات الاخوة الاخرين بخصوص هذا السوال) == اخواني عندما نضع سؤال مثل السوال الثالث فالمطلوب منكم ان تبحثوا وخصوصاً بان موضوع الترحيل تم مناقشته بعدة اشكال ولا يكاد يمر يوم الا وطرح سؤال عنه ================== على العموم اذا اردتم حذف هذا السؤال وتاجيل طرحه حتى يتم المرور على حلقات التكرار فالامر لكم واشكركم جزيل الشكر على التفاعل والمحاولات
  24. عبدالله المجرب
    السلام عليكم إقول لك كما قلت لمن سبقك اجابات موفقة ما عدا السوال الثالث (المطلوب ترحيل)
  25. عبدالله المجرب
    السلام عليكم اجابات موفقة ما عدا السوال الثالث (المطلوب ترحيل) وليس نسخ مدى بكامله واقول لمن يقول ان السوال من خارج الدورة لو تلاحظون بانه لا يكاد يمر يوم الا ويرد الاخوة على اسئلة ترحيل وهي من اكثر ما تم مناقشته وبعدة اشكال كما اني شرحت كيفية معرفة الخلايا حسب الصف والعمود والباقي هو الشرط وحلقة التكرار
×
×
  • اضف...

Important Information

  I accept