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

ابو اسامة العينبوسي

المشرفين السابقين
  • Posts

    2,336
  • تاريخ الانضمام

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

  • Days Won

    1

كل منشورات العضو ابو اسامة العينبوسي

  1. السلام عليكم الكود و الملف Sub dell0() Dim cell As Range Cells(1, 1).Select For Each cell In ActiveSheet.UsedRange If cell.Value = 0 Then cell.EntireRow.Delete (xlUp) Next End Sub dellzeeroz.rar
  2. السلام عليكم omarhajy@hotmail omarhaji_2000@yahoo
  3. السلام عليكم اذا طبقت الداله على ملفك تحتاج الى نسخ(الموديول) الكود الموجود بملف الاخ aah_aah2008 الى الملف خاصتك
  4. السلام عليكم الشق الاول مشكله خاصة الشق الثانى هو ( 255 ) ورقة
  5. السلام عليكم ان كان الهدف توزيع فئات دفعه نقديه الاحتمالات كثيره و متنوعه الالف قد تكون ورقه 1000 او رقتين 500 ؟ ال 500 ممكن تكون ورقه او 5 اوراق من فئه 100 ؟ و كذلك الحال مع العشرات ؟ وفي هذه الحال لن يجدى هذا الحل Book14.rar
  6. السلام عليكم اخى خبور في حال تم الحذف او الزياده في الاوراق هنا فكره اتمنى ان تنال اعجابك و هي اضافه لا اكثر على عملك المتميز ________________________________.rar
  7. السلام عليكم استخدم الداله round(a1,0)
  8. السلام عليكم استاذنا عمر متوعك صحيا ادعوا له بالشفاء بظاهر الغيب
  9. السلام عليكم على اعتبار ان الرقم في A1 =IF(A1>=0.5,ROUNDUP(A1,0),ROUNDDOWN(A1,0))
  10. السلام عليكم ملف جميل مشكور
  11. السلام عليكم وصلت الرساله و شكرا على التعديل
  12. السلام عليكم ما هو معيار التقسيم ؟ او كيف تحصل على هذه النتائج ؟
  13. السلام عليكم شكرا و بورك فيك و الى الامام
  14. اخى خبور بين ردك و ردي 1 دقيقه (لم ارى مشاركتك) سامحنى
  15. السلام عليكم ممكن ايضا عن طريق التنسيق الشرطى لكن لا يقرب الرقم لاسفل او لاعلى ( حسب معرفتى) لكنه ممكن ان يقيد الادخال بين رقمين تحددهما انت هنا بالكود ممكن الامرين التقييد و التقريب Book1.rar
  16. السلام عليكم استخدم الكود التالى Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Column = 2 And ActiveCell.Offset(0, -1).Value = "" Then Exit Sub Cells(Target.Row, 3).Value = Cells(Target.Row, 1).Value * Cells(Target.Row, 2).Value Application.EnableEvents = True End Sub
  17. السلام عليكم اشمل و اجمل في الدعاء لكل المسلمين و ليس لم يرد فقط (و رحمتى وسعت كل شئ)
  18. السلام عليكم انا استخدم EXCEL 2007 (في البيت) الطريقه سهله كبسه باليمين على المتسلسله و ستجد الكثيير من الخيارات للتحكم بكل ما يظهر في المخطط من تسمية البيانات تعدل ما تشاء ايضا هناك حل للسائل عن التبديل بين المحورين السينى و الصادى SBIS_vs_Sales_hadi.rar
  19. اعمل مثال مصغر (بعدد صفوف اقل)لكن بنفس تفاصيل ما لديك و حدد اعمده التى تريد بها المجاميع
  20. السلام عليكم لكن لم اميز ما هى الخانات المرحله عدلها كما تشاء 2all______________version_1_.rar
  21. السلام عليكم لكن عدد الصفوف المسموح به (excel 2003) اقل من ذلك 65536
  22. هذا و ليس الذى ارسلته لك على المسنجر Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row < 5 Or Target.Row > 65 And Target.Column <> 3 Then Exit Sub Call odelete End Sub
×
×
  • اضف...

Important Information