اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

أبو حنــــين

الخبراء
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    2845

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

  • Days Won

    9

كل منشورات العضو أبو حنــــين

  1. أبو حنــــين
    السلام عليكم أخي الحبيب : عبد الله عمل متقن جزاكم الله خيرا على ما تقدمونه
  2. أبو حنــــين
    حسب فهمي للسؤال الطلب الاول =IF(B5="";"";SUM(FJ5:FQ5)/7) و الطلب الثاني =IF(FS5="";"";IF(FS5<=5;5;IF(FS5>5;FS5+1))) ثم اسحب للاسفل
  3. أبو حنــــين
    اخي سليم قم باضافة موديل و انسخ الكود بداخله ثم اربط الزر بالكود
  4. أبو حنــــين
    السلام عليكم اضفت زر و هو يعمل بطريقة عادية مـرآة.rar
  5. أبو حنــــين
    جزاكم الله خيرا يمكن اختصار الكود كالتالي Sub reverse() ActiveCell = StrReverse(ActiveCell) End Sub
  6. أبو حنــــين
    السلام عليكم جرب هذا التعديل 111.rar
  7. أبو حنــــين
    أخي حمادة جزاكم الله خيرا
  8. أبو حنــــين
    يمكن عمل ذلك بدون اي كود لكن في مربع نص و ليس مربع تسمية ظهور قيمة خلية 1في فورم.rar
  9. أبو حنــــين
    السلام عليكم في هذه الحالة اجمع فقط النطاقات المعنية و استثني الخلايا الغير معنية بالجمع مثال =SUM(D4:D7;D9:D15;D17:D22)
  10. أبو حنــــين
    اخي احمد الحاوي جزاكم الله خيرا
  11. أبو حنــــين
    أخي الحبيب سعيد بيرم سعدت بمروركم ( جنب حارتنا ) جزاكم الله خيرا
  12. أبو حنــــين
    السلام عليكم يمكن الاضافة و حفظ التعديل لكن في حالة النقص غير ممكن على الاقل لحد الآن **************** اخي kby جزاكم الله خيرا على المرور سيارات 4.rar
  13. أبو حنــــين
    السلام عليكم مر عليا هذا الموضوع ولم اتذكر الرابط و لم اتذكر هل رفعت الملف او لا على كل حل سأرفعه مرة أخرى و هو بالتنسيق الذي حملته في المرة الاولى حوافظ مصرفية.rar
  14. أبو حنــــين
    السلام عليكم اخي زمزم سأسلم نفسي طواعية و أمري لله تقبل تحياتي
  15. أبو حنــــين
    السلام عليكم بالفعل اخي زمزم تصميم ممتاز للملف جزاكم الله خيرا
  16. أبو حنــــين
    اخي اسلام استعمل هذا الكود Sub iPrint() With ActiveSheet .PageSetup.PrintArea = "D1:A4" .PrintPreview If MsgBox("هل تريد طباعة البيانات التي قمت بمعاينتها قبل قليل ", vbInformation + vbMsgBoxRight + vbYesNo, "طباعة") = vbNo Then Exit Sub .PrintOut End With End Sub
  17. أبو حنــــين
    اخي محمود و انت اروع لانك لم تيأس و قررت الوصول ويبدو و الله اعلم انك قد وصلت
  18. أبو حنــــين
    السلام عليكم اخي محمد الشابوري حسب ما تقدمتم به في المشاركة 2 فالبرنامج سيكون ذو اهمية قصوى لانه حسب علمي ان طرق الحماية في الاكسل محدودة و غير مستعصية على ذوي الخبرة اعانك الله على اتمامه و جزاكم الله خيرا
  19. أبو حنــــين
    العفو اخي حسام
  20. أبو حنــــين
    السلام عليكم يبدو انني لم انتبه للموضوع الا الآن مبادرة رائعة من اخوة اروع جزاهم الله خيرا و لكن لديا سؤال هو هي مجلة الكترونية او ورقية ؟ و السلام عليكم
  21. أبو حنــــين
    السلام عليكم جرب هذا التعديل سعد عابد 6.rar
  22. أبو حنــــين
    و هذا كود مختصر Sub sColor() c = 2: r = 2 For i = 1 To 56 With Cells(r, c) .Interior.ColorIndex = i: .Borders.Value = 1: .Value = i c = c + 1 If c > 9 Then c = 2 r = r + 2 End If Next End Sub
  23. أبو حنــــين
    اخي عبد الله جزاكم الله خيرا
  24. أبو حنــــين
    السلام عليكم جرب اخي المرفق New Microsoft Excel Worksheet.rar
  25. أبو حنــــين
    اخي ابراهيم جزاكم الله خيرا ************************* اخي بن عليه اعتقد ان السائل طلب الترقيم عند الكتابة في احد العمودين هذا حسب فهمي و الله اعلم و السلام عليكم
×
×
  • اضف...

Important Information

  I accept