سليم حاصبيا

جرب هذا الملف ترتيب ابجدي بدون تكرار salim.rar

حرب هذا الملف (تم حماية المعادلات لعدم العبث بها غن طرق الخطأ) العمليات.rar

جرب هذه المعادلة =IFERROR(VLOOKUP($B$12,$A$2:$B$10,2,0),"")

ربما يكون هذا الماكرو المطلوب Sub hide_rows() x = [d7] Rows("9:59").Hidden = True Rows("" & 9 & ":" & 9 + x-1 & "").Hidden = False End Sub

جرب هذا الملف و حاول تغيير اي بيانات في اي صفحة وانظر الى الصفحة "مراقبة" الادارة salim.rar

صجيج يعطي نفس النتيجة لكن الكود قصير جداً ولا حاجة لليست بوكس ولا الى اي اجراءات اخرى كما يمكنك استعمال الكود forrmat_me , وذلك لاخفاء الكتابة في الخلايا المكررة (لانك استعملت اللون الابيض لهذا الشيء) مما يجغل اخلية مرئية في حال تحديدها اليك الكود Sub format_me() With Sheets("ورقة 1") lr = .Cells(Rows.Count, 1).End(xlUp).Row For i = 11 To lr - 3 t = i Mod (3) If t <> 0 Then Range("a" & i).Resize(1, 5).NumberFormat = ";;;" End If Next End With End Sub

بعد اذن اخي عمر اليك هذا الحل بالمعادلات( رغم ان الخلايا المدمجة من الد اعداء الكود والمعادلة) القائمة المنسدلة مطاطة (تستحيب لاي تعديل في البيانات) يلزمك في هذه الحلاة الماكرو البسيط في المرفق تم وضع الليست بوكس مباشرة غلى الخلية B9 salim 2.rar انظر الى الاضافة على مشاركتي

بعد اذن اخي عمر اليك هذا الحل بالمعادلات( رغم ان الخلايا المدمجة من الد اعداء الكود والمعادلة) القائمة المنسدلة مطاطة (تستحيب لاي تعديل في البيانات) salim.rar

جرب هذا الملف مبدئياً لاستخراج المواد اقل من 50 Book90 salim.rar

قم بتغيير الكود الى هذا Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveSheet.Unprotect '================== For Each cel In Target.Cells Application.EnableEvents = False If cel.HasFormula Then cel.Locked = True cel.FormulaHidden = True With ActiveSheet .Protect .EnableSelection = xllockedCells End With GoTo 1: Else ActiveSheet.Unprotect End If Next 1: Application.EnableEvents = True End Sub

جرب هذا الملف كل شيء يتم جسابه في الورقة Print بعد تعبئة البيانات الصحيحة حسب الاسماء والارقام(يوجد اسم واحد ورقم واحد يتكرر في كل الصفحة)و التواريخ يمكن عمل دالة Sumifs في الورقة All لمعرفة كل شخص ماذا يستحق تم حماية الخلايا التي تحتوي على معادلات (لعدم العبث بها عن طريق الخطأ) تم ايضاً وضع المعادلات بحيث تحسب عدد الساعات اذا تجاوزت 24 ساعة (دوام ليلي) مثلا( من الساعة 11 مساءً الى الثالثة بعد منتصف الليل) calculation - Mar. 2016 salim.rar

ارفع الملف للمعاينة

ممكن ذلك اذا استعملت المرفق و ضغطت على الزر Run انظر هذا الملف Split.rar

تفضل الملف مع معادلاته salim_work.rar

جرب هذا الملف لعمل ذلك يجب ادخال هذا المكرو في موديل مستقل في ملفك Function joincels(rg As Range) s = "" If rg.Rows.Count <> 1 Then joincels = "Error": Exit Function For Each cel In rg If cel <> "" Then s = s & cel & " " End If Next joincels = s End Function join_names.rar

اين الملف المرفق

انسخ هذه المعادلة الى الخلية O6 و اسحب نزولاً =REPLACE($H6,1,(FIND(")",$H6)),"") انسخ هذه المعادلة الى الخلية P6 و اسحب نزولاً =SUBSTITUTE(REPLACE($H6,1,(FIND(")",$H6)),""),"-","")

جرب هذا الملف sheet evalue salim.rar

جرب هذا الملف يعطيك النتيجة حتى ولو لم يكن هناك ترتيب في الارقام وهذه ايضاً تعطينا الرقم الاقرب لكن (تحديداً اصغر) =MAX(IF($D$9:$I$9<=$D$5,$D$9:$I$9)) لمزيد من التفاصيل انظر الى الورقة salim من هذا الملف NEAREST NUMBER 1.rar

جرب هذا الملف يعطيك النتيجة حتى ولو لم يكن هناك ترتيب في الارقام NEAREST NUMBER.rar

جرب هذه المعادلة(يجب ان تكون الارقام مرتبة تصاعدياً) =INDEX($D$8:$I$8,MATCH($D$5,$D$8:$I$8)-1) اذا لم يكن الجواب الصحيح احذف 1- من المعادلة

استبدل الماكرو بهذا Private Sub Worksheet_change(ByVal Target As Range) If Target.Column = 3 And IsEmpty(Cells(Target.Row, 1)) _ And Target.Row > 1 Then Application.EnableEvents = False Cells(Target.Row, 1) = Format(Date, "[$-10A0000]ddd dd mmmm yyyy;@") End If Range("A:A").EntireColumn.AutoFit Application.EnableEvents = True End Sub

اخي ياسر انا اعلم ذلك لكن بتنسيق الخلايا الى كسور باستعمال التسيق ( ???????/?) لماذا نجد نفس النتيجة

احد الغاز اكسل فكر جيداً ثم هات الحل من الغاز اكسل.rar

هو انت فين مخبي الحاجات دي كلها