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

سليم حاصبيا

أوفيسنا
  • Posts

    8,723
  • تاريخ الانضمام

  • Days Won

    262

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

  1. اكتب هذه المعادلة في M5 واسحب نزولاً =IF(COUNTIF($B$5:B5,B5)>1,"",SUMIFS($L$5:$L$13,$B$5:$B$13,B5)/COUNTIF($B$5:$B$13,B5))
  2. جرب هذا الكود ليعمل الكود بشكل جيد يجب ازالة الخلايا المدمجة من صفحة البيانات في الصف الاول Sub Translate_Data() Dim rg_to_copy As Range Dim lr As Integer Dim m As Integer m = 0 Application.ScreenUpdating = False On Error Resume Next Sheets("النتائج").Cells.ClearContents lr = Application.Max(Sheets("البيانات").Range("A:A")) For I = 1 To lr If Sheets("البيانات").Cells(I + 7, "O") = "اوفسينا" Then With Sheets("البيانات") .Select Set rg_to_copy = Union(.Range(Cells(I + 7, 1), Cells(I + 7, 4)), .Range(Cells(I + 7, 15), Cells(I + 7, 17)), _ .Range(Cells(I + 7, 26), Cells(I + 7, 28))) End With rg_to_copy.Copy Sheets("النتائج").Cells(m + 1, 1).PasteSpecial m = m + 1 End If Next Sheets("النتائج").Range("b:b").SortSpecial Application.ScreenUpdating = True Application.CutCopyMode = False End Sub
  3. "?*" تعني تحتوي بالحد الادنى على حرف واحد "??*"تعني تحتوي بالحد الادنى على حرفين ... و هكذا
  4. السلام عليكم ورحمة الله المعادلة كما نلاحظ تحتوي على شرط يتعلق بالخلية B2 1- اذا كانت فارغة الجواب :عدد العناصر غير الفارغة في النطاق D4:D110 2-اذا لم تكن فارغة الجواب :عدد العناصر التي تحتوي على B2 في النطاق E4:E110
  5. جرب هذا الملف والكود مرفق Sub Trhil_Salim() Application.ScreenUpdating = False For i = 2 To Sheets.Count Sheets(i).Range("a5:ap200").ClearContents Sheets("الملف الاساسي").Range("A5:AP200").AdvancedFilter Action:=xlFilterCopy _ , CriteriaRange:=Sheets(i).Range("k1:m2"), CopyToRange:=Sheets(i).Range("A5"), _ Unique:=False Next Application.ScreenUpdating = True End Sub بيانات الموظفين نو SAlim.rar
  6. يجب تنفيذ المعادلة باستعمال Ctrl+Shift + Enter و ليس Enter وحدها (لأن المعادلة هي معادلة صفيف Array_Formula)
  7. جرب هذه المعادلة من دون IF =IF(A1="","",VLOOKUP(A1,{0,"ضعيف";35,"جيد";65,"جيد جداً";102,"ممتاز"},2))
  8. تمت الاجابة عن هذا السؤال على العنوان التالي https://www.officena.net/ib/topic/73768-الى-اهل-الخبرة-الرجاء-الدخول/
  9. ما هي البيانات التي لا يجب تكرارها هل مثلاً ممنوع تكرار اسم البنك او رقم الشيك او ماذا؟
  10. بعد اذن اخي ابو عبد النور هذا الملف ريما يكون المطلوب Aziz salim.rar
  11. اكتب هذه المعادلة في الخلية A3 واسحب حتى A18 نزولاً و يساراً حتى B18 =IF(COUNTIF(الزبائن!$C$2:$C$20,$C3)=0,"",INDEX(الزبائن!A$2:A$20,MATCH($C3,الزبائن!$C$2:$C$20,0)))
  12. هذا الامر يتعلق بالذاكرة الموجودة في الجهاز الذي تستخدمه فبعض الاجهزة تستوعب حتى 30.000 ورقة( Memory = 4 terra) وبعض الاجهزة القديمة (اقل من 250 ورقة)
  13. اذهب الى هذا العنوان حيث المعلومات مفصلة عن كل شيء https://support.office.com/en-us/article/Excel-specifications-and-limits-1672b34d-7043-467e-8e27-269d656771c3
  14. المعادلة تعمل بكفاءة لا اعلم ما المشكلة عندك انظر الى المرفق(ربما تكون الارقام ليست في العامودين F & D من الورقة اعتمادية 3) نقل اسم salim.rar
  15. حاول استبدال الفاصلة ","بفاصلة منقوطة ";" في كل المعادلة لتصبح هكذا =IFERROR(INDEX(اعتمادية3!$G$2:$G$10;MATCH('تسهيل مهمة'!A2;اعتمادية3!$F$2:$F$10;0));INDEX(اعتمادية3!$G$2:$G$10;MATCH('تسهيل مهمة'!A2;اعتمادية3!$D$2:$D$10;0)))
  16. جرب هذا الماكرو Sub LAST_CEL() Application.Goto Reference:=Range("A" & Application.Max(Range("a:a")) + 13) End Sub
  17. استعمل هذه المعادلة الموجودة في الملف ارقام ولكن ليست ارقام salim1.rar
  18. الملف يعمل عندي بكل كفاءة انظر المرفق ارقام ولكن ليست ارقام salim.rar
×
×
  • اضف...

Important Information