سليم حاصبيا

أوفيسنا
  • Content count

    3,587
  • تاريخ الانضمام

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

  • Days Won

    52

سليم حاصبيا last won the day on February 21

سليم حاصبيا had the most liked content!

السمعه بالموقع

2,306 Excellent

عن العضو سليم حاصبيا

  • الرتبه
    مشرف
  • تاريخ الميلاد 08 مار, 1985

Profile Information

  • Job Title
    استاذ ثانوي

اخر الزوار

2,610 زياره للملف الشخصي
  1. ربما كان الاصدار عندك قديم تم تعديل الملف حتى يعمل مع الاكسل 97 2003 ديسمبر 2016 سليم 2003.rar
  2. جرب هذا الملف على اعتبار ان يوم الراحة هو الاحد ان استعمال الخلايا المدمجة يعيق العمل (لكن وجد الحل) taim sheet salim.rar
  3. بعد اذن الاخ ابو البراء انسخ هذا الكود الى موديل جديد Function Color_Num(rg As Range, source_rg As Range) my_color = source_rg.Interior.ColorIndex For i = 1 To rg.Count If rg.Cells(i).Interior.ColorIndex = my_color Then s = s + 1 Next Color_Num = s End Function ثم في الخلية CS8 اكتب هذه المعادلة و اسحب يساراً (و نزولاً اذا كنت تريد العمل على اكثر من صف) =IF($B8="","",Color_Num($D8:$CR8,CS$5)) اليك الملف مع المعادلة ديسمبر 2016 سليم.rar
  4. جرب ها الملف يمكنك زيادة الاصناف مع اسعارها في الجدول (العامودين R & Q) سلع تموين salim.rar
  5. جرب هذا الملف (المعادلات مع Ctrl+Shift+Enter) CODE sALIM.rar
  6. بعد اذن الاخ الحبيب ابو البراء و الاخ الصديق بن علية هذه المعادلة في الخلية j2 و تسحب نزولاً (استناداً الى ملف الاخ بن علية) =SUMPRODUCT(SUMIFS($L$3:$L$22,$K$3:$K$22,$B2:$F2))
  7. بدل الى هذا الكود Sub hide_some_columns() With Sheets("sheet1") .Columns.Hidden = True .Range("a1,b1,c1,g1").EntireColumn.Hidden = False Application.Goto Reference:=.Range("b1") End With Sheets("sheet2").Activate End Sub
  8. جرب هذا الملف لاحظت ان عدد الاعمدة 25 وليس 30 لذلك عملت المعادلة على هذا الاساس يمكنك التغيير اذا كان هذا المطلوب شرط زيادة عدد الاعمدة و تعديل المعادلات بوضع رقم 30 بدل 25 distrubution salim.rar
  9. جرب ها الملف جلب الاسماء بدرجاتهم salim.rar
  10. اضف الى الكود هذا السطر ليصبح هكذا
  11. ما هو الفرق بين التاريخين يوم واحد ماذا تريد بالضيط ربما تحتاج للاستفادة من هذا الملف datedif.rar
  12. ضع تنسيق الخلية بهذا الشكل "General"
  13. جرب هذا الكود يمكنك تحديد الاعمدة من خلاله Sub hide_some_columns() Sheets("sheet1").Columns.Hidden = True Range("b1,c1,d1,r1").EntireColumn.Hidden = False End Sub
  14. تم التعديل على الملف حتى 2000 صف مع بعض الاكواد لسرعة العمل market Salim advanced3.rar
  15. دوبل كليك على الزر "استدعاء اكبر رقم" Private Sub CommandButton1_Click() Me.TextBox1.Value = Application.Max(Sheets("add").Range("c:c")) End Sub انسخ هذا الكود