سليم حاصبيا

كبداية انظر الى المرفق دوام-موظفين salim.rar

ربما كان المطلوب(معادلات) STATEMENT salim.rar

جرب هذا الملف In-Out.rar

اكتب المعادلات بلغة الاكسل تستطيع ان تحمل قسم بسيط من الملف (5%)

جرب هذا دالة احتساب النجاح salim.rar

تفضل لا اعلم لماذا الملف كبير جداَ حوالي 4 ميغا يجب التخفيف منه (ألوان معادلات ..تنسيقات) ليعمل بسرعة تذكرة مستشفى الربيع التخصصى فردى salim.rar

يمكن ان يكون المطلوب عذراً اخي زيزو لم الاحظ مشاركتك الا بعد ادراج خاصتي سمارت كارت salim_auto.rar

Protected .....?????

تم ازالة الحماية (اين الإعجاب ....!!!!! ؟؟؟؟؟) تكرار الرقم salim1.rar

المعادلة المناسبة =IF(COUNTIF($A$5:$A$10000,$F$1)<ROWS($G$2:G2),"",INDEX($B$5:$B$10000,SMALL(IF($A$5:$A$10000<>"",IF($A$5:$A$10000=$F$1,ROW($A$5:$A$10000)-ROW($A$5)+1)),ROWS($G$2:G2)))) انظر المرفق (تم حماية المعادلات لعدم العبث بها عن طريق الخطأ) تكرار الرقم salim.rar

المعادلة المناسبة (استعملها مع Ctrl+Shift+enter) و ليس Enter وحدها ثم اسجب نزولاً =IF(COUNTIF($A$5:$A$10000,$F$1)<ROWS($G$2:G2),"",INDEX($B$5:$B$10000,SMALL(IF($A$5:$A$10000<>"",IF($A$5:$A$10000=$F$1,ROW($A$5:$A$10000)-ROW($A$5)+1)),ROWS($G$2:G2))))

ربما يكون الحل سمارت كارت salim.rar

ارفع الملف للمعالجة

تفضل الملف جاهز معادلة vlookup_ونسبة الخطاء salim.rar

حدد الخلية التي سيظهر فيها النتيجة واضغط (Ctrl+shift+~) يجب ان تكون لغة لوحة المفاتيح الاجنبية ~ هي الحرف الموجود على زر حرف الذال باللغة العربية

اكتب الكلمات كبرى صغرى وسطى تماماً كما في المعادلة (دون اي مسافات زائدة او ناقصة) الافضل نسخ هذه الكلمات من المعادلة (كلمة كلمة)و وضعها في اي مكان ثم ادراج قائمة منسدلة جديدة

جرب هذا الكود (يعمل فقط في العامود A اوتوماتيكياً) Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 1 Or Target.Count > 1 Then Exit Sub Application.EnableEvents = False If Len(Target) <= 15 Then Target.NumberFormat = "general" Else Target.Value = "'" & Target.Value m = Target.Address ' t = "=LEFT(SUBSTITUTE(" & m & "," & """.""" & "," & """""" & "),FIND(" & """E""" & ",SUBSTITUTE(" & m & "," & """.""" & "," & """""" & "))" & "-1)" s = Evaluate(t) Target.Value = s End If Application.EnableEvents = True '=========================== End Sub

قمت باستبدال فاصلة واحدة و هذا لا ينفع يجب استبدال الفاصلتين ايضاً (قبل الرقم 2 و قبل الرقم 0)

استبدل الفاصلة بقفصلةمنقوطة لتصبح هكذا =VLOOKUP(A4;{"كبرى ",100;"وسطى",50;"صغرى",25},2,0)

اذا كنت فد فهمت ما تقصد يلزمك هذه المعادلة يمكن تغيير الارقام 100و50 و 25 الى اي أرقام تريد =VLOOKUP(A4,{"كبرى ",100;"وسطى",50;"صغرى",25},2,0)

اخي مصطفى ليس من الضرورب القيام بذلك يدوياً بل من خلال الكود نفسه باضافة هذه السطور الى الكود(بين علامات اليساوي) Sub FilterData() ' تعطيل الحساب الالي واهتزاز الشاشة '======================================================== With Application .ScreenUpdating = False .Calculation = xlCalculationManual .EnableEvents = False End With '======================================================== If ActiveSheet.AutoFilterMode = True Then ActiveSheet.ShowAllData Sheets("بيانات التلميذ").Range("a10:r300").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _ Sheets("بيانات التلميذ").Range("l3:l4"), Unique:=False Range("a10").Select ' تشغيل الحساب الالي واهتزاز الشاشة '======================================================== With Application .ScreenUpdating = True .Calculation = xlCalculationAutomatic .EnableEvents = True End With '======================================================== End Sub

تم التعديل مرة اخرى تنسيق شرطي salim2.rar

تم التعديل تنسيق شرطي salim1.rar

تم معالجة الامر تنسيق شرطي salim.rar

جرب هذا الماكرو بعدان تكتب في الخلية L3 كلمة الصف بالضبط كما هي بالجدول(دون مسافات) Sub FilterData() Application.ScreenUpdating = False If ActiveSheet.AutoFilterMode = True Then ActiveSheet.ShowAllData Sheets("بيانات التلميذ").Range("a10:r300").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _ Sheets("بيانات التلميذ").Range("l3:l4"), Unique:=False Range("a10").Select Application.ScreenUpdating = True End Sub