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

ابراهيم الحداد

الخبراء
  • Posts

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

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

  • Days Won

    4

ابراهيم الحداد last won the day on يوليو 14 2020

ابراهيم الحداد had the most liked content!

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

880 Excellent

عن العضو ابراهيم الحداد

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

  • Gender (Ar)
    ذكر
  • Job Title
    teacher
  • البلد
    Aswan
  • الإهتمامات
    Excel

اخر الزوار

4,909 زياره للملف الشخصي
  1. السلام عليكم ورحمة الله استخدم هذه المعادلة =IF(LEFT($G2;2)="10";"ذكر";IF(LEFT($G2;2)="11";"أنثى";"رقم غير صحيح"))
  2. السلام عليكم ورحمة الله الاخ ABOU ELSAAD يمكنك استخدام الكود التالى Sub AbsCount() Dim ws As Worksheet, LR As Long Dim x As Long Dim a As Integer, b As Integer, d As Integer Dim C As Range, Abst As String Const Com = "," Set ws = Sheets("SS") x = 3 LR = ws.Range("AG" & Rows.Count).End(xlUp).Row Do While x <= LR For Each C In ws.Range("A" & x & ":AE" & x) If C.Value > 0 Then a = WorksheetFunction.Min(ws.Range("A" & x & ":AE" & x)) b = WorksheetFunction.Max(ws.Range("A" & x & ":AE" & x)) ab = b - a + 1 d = WorksheetFunction.Count(ws.Range("A" & x & ":AE" & x)) If ab = d And d > 1 Then Abst = " يوم " & " (" & a & " - " & b & ")" ws.Range("AL" & x) = Abst Else Abst = C.Value & Com & Abst ws.Range("AL" & x) = Left(Abst, Len(Abst) - 1) End If End If Next C Abst = "" x = x + 1 Loop End Sub
  3. السلام عليكم ورحمة الله استخدم الكود التالى Sub AbsCount() Dim ws As Worksheet, LR As Long Dim x As Long, y As Integer Dim C As Range, Abst As String Const Com = "," Set ws = Sheets("SS") x = 3 LR = ws.Range("AG" & Rows.Count).End(xlUp).Row Do While x <= LR For Each C In ws.Range("A" & x & ":AE" & x) If C.Value > 0 Then Abst = Abst & C.Value & Com ws.Range("AL" & x) = StrReverse(Left(Abst, Len(Abst) - 1)) End If Next C Abst = "" x = x + 1 Loop End Sub
  4. السلام عليكم ورحمة الله اكتب هذه المعادلة فى الخلية "C6" =IFERROR(INDEX(msheet!$D$5:$E$82;SMALL(IF(msheet!$D$5:$D$82=$E$3;ROW(msheet!$D$5:$D$82));ROW(A1))-4;2);"") ثم اصغط "CTRL+SHIFT+ENTER" ثم اسحب نزولا حتى الخلية "C35" ثم اكتب المعادلة التالية فى الخلية "E6" =IFERROR(INDEX(msheet!$D$5:$E$82;SMALL(IF(msheet!$D$5:$D$82=$E$3;ROW(msheet!$D$5:$D$82));ROW(A31))-4;2);"") و كر ر ما سبق
  5. السلام عليكم ورحمة الله اليك الملف ابتدائي2020.xlsm
  6. السلام عليكم ورحمة الله تم تعديل الكود Sub ALIDROOS_JC_T() Application.ScreenUpdating = False Dim sh As Worksheet, ws As Worksheet Set ws = Sheets("معلومات") On Error GoTo 0 For Each sh In ThisWorkbook.Worksheets For r = 2 To 102 If ws.Cells(r, 7).Value <> Empty Then If ws.Cells(r, 7).Value = sh.Name Then ws.Range(ws.Cells(r, 1), ws.Cells(r, 12)).Copy QQ = sh.Cells(1000, 1).End(xlUp).Row + 1 sh.Range("A" & QQ).PasteSpecial xlPasteValues End If End If Next Next MsgBox "تم الترحيل بنجاح" Application.CutCopyMode = False Application.ScreenUpdating = True End Sub
  7. السلام عليكم ورحمة الله استخدم هذا الكود Sub Work_Day() Dim ws As Worksheet, Sh As Worksheet Dim C As Range, LR As Long, i As Long Dim x As Integer, Dy As String Dim WF As Object Set ws = Sheets("ورقة2") Set Sh = Sheets("ورقة1") Set WF = WorksheetFunction LR = ws.Range("A" & Rows.Count).End(3).Row i = 2 Do While i <= LR For Each C In Sh.Range("A2:A" & ws.Range("A" & Rows.Count).End(3).Row) If ws.Cells(i, 1) = C.Value Then Dy = C.Offset(0, 1) x = WF.Match(Dy, ws.Range("B1:G1"), 0) ws.Cells(i, 1).Offset(0, x) = Dy End If Next i = i + 1 Loop End Sub
  8. السلام عليكم ورحمة الله ضع هذه المعادلة فى الخلية "B" ثم اضغط Ctrl+Shift+Enter ثم اسحب عرضا وطولا =IFERROR(INDEX(ورقة1!$B$4:$E$8;SMALL(IF(ورقة1!$E$4:$E$8>0;ROW(ورقة1!$E$4:$E$8));ROW(A1))-3;COLUMN()-1);"")
  9. السلام عليكم ورحمة الله استخدم الكود التالى الرقم السرى 123 يمكنك تغييره كما شئت Sub Delpics() Dim ws As Worksheet, Pic As Object Dim InBox As String InBox = InputBox(" يرجى ادخال كلمة السر", "ازالة الصور ") For Each ws In Worksheets For Each Pic In ws.Pictures If InBox = "123" Then Pic.Delete Else MsgBox "ارجو وضع الرقم السرى الصحيح ...حاول مرة ثانية" Exit Sub End If Next Next End Sub
  10. السلام عليكم ورحمة الله استخدم هذا الكود Sub Delpics() Dim ws As Worksheet, Pic As Object For Each ws In Worksheets For Each Pic In ws.Pictures Pic.Delete Next Next End Sub
  11. السلام عليكم ورحمة الله استخدم هذا الكود Sub addpics() Dim ws As Worksheet For Each ws In Worksheets ws.Pictures.Insert ("D:\عنوان.jpg") Next End Sub
  12. السلام عليكم ورحمة الله غير العبارة Dim ahmed As Range الى Dim ahmed As long و سيعمل معك الكود
  13. السلام عليكم ورحمة الله ضع هذه المعادلة فى الخلية "B5" =IFERROR(INDEX('قائمة الموفين'!$B$5:$L$15;SMALL(IF('قائمة الموفين'!$M$5:$M$15=$H$2;ROW('قائمة الموفين'!$M$5:$M$15));ROW(A1))-4;COLUMN(A1));"") و اضغط Ctrl+Shift+Enter ثم اسحب طولا و عرضا ثم ضع المعادلة التالية فى الخلية "A5" ثم اسحب نزولا =IF(B5="";"";SUBTOTAL(3;$B$5:B5)) قوائم العمال1.xlsx
×
×
  • اضف...

Important Information