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

سليم حاصبيا

أوفيسنا
  • Content count

    4,847
  • تاريخ الانضمام

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

  • Days Won

    70

سليم حاصبيا last won the day on April 16

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

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

3,065 Excellent

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

  • الرتبه
    فريق الموقع
  • تاريخ الميلاد 08 مار, 1985

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    استاذ ثانوي
  • بلد الإقامة
    beiruth
  • الإهتمامات
    eXCEL

اخر الزوار

5,007 زياره للملف الشخصي
  1. يمكن استعمال هذه المعادلة (ضعها اينما تريد ليس من الضروري الخلية A1) اسحب على الصفوف ثم نزولاً(قدر ما تريد) =ROWS($A$1:A1)*COLUMNS($A$1:A1) للمزيد هذا الملف MULT_TABLE.xlsx
  2. سليم حاصبيا

    مساعدة على البحث لعدة قيم

    جرب هذا الملف في مجال اليحث يجب كتابة (3 أخرف على الاقل) و الضغط على انتر activité _salim.xls
  3. سليم حاصبيا

    اقل تاريخ في صفيف

    يمكن استعمال هذه المعادلة (بدون عامودمساعد) لاظهار اصغر تاريخ =MIN(IF($C2=$B$8:$B$100,$C$8:$C$100)) هذه لاظهار اكبر تاريخ =MAX(IF($C2=$B$8:$B$100,$C$8:$C$100)) المعادلات (Ctrl+Shift+Enter) و ليس (Enter) وحدها ليس شرط ان تكون التواريخ مرتبة تصاعدياً او تنازلياً
  4. سليم حاصبيا

    حذف صفوف فارغة

    اضغط على الزر RUN في الصفحة SALIM من هذا الملف SALIM_ROWS.xls
  5. المعادلة هي معادلة صفيف (Array formula) كي تعمل يجب بعد كتابتها الضغظ على (Ctrl+Shift+enter) و ليس Enter وحدها
  6. سليم حاصبيا

    حذف صفوف فارغة

    جرب هذا الماكرو (دون حلقات تكرارية) من سطر واحد Option Explicit Sub del_rows() Range("Q5:Q" & Range("Q5").CurrentRegion.Rows.Count + 6) _ .SpecialCells(4).EntireRow.Delete End Sub
  7. جرب هذا الكود Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False Dim x% If (Target.Column >= 3 Or Target.Column <= 6) _ And Target.Count = 1 Then If IsEmpty(Cells(Target.Row, 1)) Or IsEmpty(Cells(Target.Row, 2)) Then x = Application.CountA(Range(Cells(Target.Row, 3), Cells(Target.Row, 6))) If x = 4 Then Cells(Target.Row, 1) = Date + Time Cells(Target.Row, 2) = Application.UserName End If End If End If Application.EnableEvents = True End Sub
  8. سليم حاصبيا

    كود لحذف بيانات الصف الحالى دون المعادلات

    هذا الكود Sub remove_const() With Selection If .Count > 1 Then Exit Sub .Offset(, 1 - .Column) _ .Resize(, .CurrentRegion.Columns.Count). _ SpecialCells(2, 23).ClearContents End With End Sub
  9. سليم حاصبيا

    ترقيم تلقائي بشروط

    جرب هذا الملف Crazy_date.xlsx
  10. سليم حاصبيا

    خطا #N/A

    VLOOKUP تعمل من اليسار الى اليمين استعمل هذه المعادلة =INDEX($A$2:$A$37,MATCH(G23,$B$2:$B$37,0))
  11. ارفع نموذج للعمل عليه
  12. جرب هذا الشيء الاستاذ salim.xlsx
  13. سليم حاصبيا

    لائحة يالاسماء حسب الديون

    تفضل الملف يواسطة الاكواد (صفحة Salim) الكود Option Explicit Sub sum_by_Max() Dim My_Sh As Worksheet: Set My_Sh = Sheets("salim") Dim i%, m%: m = 1 Dim x# If ActiveSheet.Name <> My_Sh.Name Then Exit Sub Dim Arr1(), Arr2() Dim LastRow%: LastRow = My_Sh.Range("a1").CurrentRegion.Rows.Count Range("d2").Resize(LastRow, 2).ClearContents Range("g2").ClearContents For i = 2 To LastRow If Application.CountIf(Range("a" & 2, "a" & i), Range("a" & i)) = 1 Then ReDim Preserve Arr1(1 To m): Arr1(m) = Range("a" & i) m = m + 1 End If Next m = 1 For i = LBound(Arr1) To UBound(Arr1) x = Application.SumIf(Range("a2:a" & LastRow), Arr1(i), Range("b2:b" & LastRow)) ReDim Preserve Arr2(1 To m): Arr2(m) = x m = m + 1 Next With Range("d2") .Resize(UBound(Arr1)) = _ Application.Transpose(Arr1) .Offset(, 1).Resize(UBound(Arr2)) = _ Application.Transpose(Arr2) End With Range("d1:e" & UBound(Arr2) + 1).Sort _ key1:=Range("e2"), order1:=2, Header:=xlYes Range("g2") = UBound(Arr1) Erase Arr1: Erase Arr2 End Sub الملف مرفق(صفحة Salim) Salim.xlsm
  14. سليم حاصبيا

    لائحة يالاسماء حسب الديون

    تم اعادة التحميل Salim.xlsx
×