سليم حاصبيا

جرب هذه المعادلة يمكنك نسخها الى بقية الخلايا TIMESHEET AND PAYROLL -salim.zip

حدد اي خلية من العامود E يجب ان تكون لغة الكيبورد اجنبية مع الاستمرار بالضغط على Alt اضغط على حرف O ثم الحرف D يظهر لك مربع حواري اختر منه Custom و سوف ترى ماذا فعلت

ألف مبروك استاذي و اخي محمد الى المزيد من التقدم والمثابرة

الصفر لا يظهر فقط في العامود E بعد الاذن من اخي ياسر العربي المعادلة التي اخي ياسر وضعتها تضغ فراغاً اذا كانت الخلية التي تقابلها في العامود A فارغة مما ينعكس سلباً على المعادلات اللاحقة اذا كنت مرتبطة بهذه المعادلة (لا تستطيع الحمع مثلاً) show_hide_zero.zip

جرب هذه المعادلة =SUM(D:D)/COUNT(D:D)

يمكن ايضاً استعمال هذا الكود Sub find_today() Dim lr, i As Integer Dim myrg As Range lr = Cells(Rows.Count, 1).End(3).Row Set myrg = Range("a4:a" & lr) For i = 4 To lr If Cells(i, 1).Value = Date Then Cells(i, 1).Select: Exit Sub Next End Sub

الخلية G4 ليس لها اي فيمة بالكود و يمكن استبدالها بأي خلية اخرى (شرط المحافظة على صيغة المعادلة) اي ان تعد ما هو عدد الاعمدة لتصل الى العامود A من الخلية المفصودة(في حالتنا هذه 6- ) لو نظرت الى الدالة Match في الكود. (ست عمدة بين G & A) لكني اخترت انا الخلية G4 لانها تقع مباشرة تحت زر الكود و لا يراها المستخدم

انسخ هذا الماكرو الى موديل جديد و حدد له الزر المناسب يجب ان يكون تنسيق الخلايا في العامود A تاريخ ابتداءً من الخلية الربعة Sub GoTo_Today() Application.EnableEvents = False Range("g4").FormulaR1C1 = "=MATCH(TODAY(),C[-6],0)" r = Range("g4").Value myaddres = Cells(r, 1).Address Application.Goto Reference:=Evaluate(myaddres) Application.EnableEvents = True End Sub

اكتب هذه المعادلة في D 2 واسحب نزولاً =IFERROR(C2/B2*100,IF(ISTEXT(C2),C2,""))

السلام عليكم أستاذ خالد الرشيدي المحترم الشرح كافٍ و وافٍ جزاك الله كل الخير

دالة Vlookup بشكل جديد تعمل من اليسار الى اليمين في حال كان اتجاه الصفحة للغة العربية و من اليمين لليسار اذا كان العكس advanced_vlookup.zip

السلام عليكم أخواني في المنتدى نزولاً عند رغبة احد الاصدقاء كان هذا الملف الذي اتمنى ان ينال اعجابكم tekrar_by_choise.zip

جرب هذا الملف COUNTIF salim.zip

اخي ياسر لم ار اي خطأ بعد التعديل اليك الملف وفيه التنسيق الشرطي لايضاح العدد المطلوب من خلال التغيير في الخلية H2 Book1 _macro 2.zip

اخي ياسر ورد خطأ بسيط في الكود و تمت المعالجة Sub Tekrar() Dim lr, Mymax, Myin, i As Integer Dim Myrg As Range, m As String lr = Cells(Rows.Count, 1).End(3).Row Columns("F:g").ClearContents Set Myrg = Range("A1:d" & lr) Mymax = Application.Max(Myrg): Mymin = Application.Min(Myrg) For i = 0 To Mymax - 1 If Mymin + i > Mymax Then Exit For Range("f" & i + 2) = Mymin + i Next Range("f1") = "الأعداد": Range("g1") = "التكرار" lr1 = Cells(Rows.Count, "f").End(3).Row m = "countif( $A$1:$D$" & lr & ",F2)" Range("g2:g" & lr1).Formula = "=" & m Range("g2:g" & lr1).Value = Range("g2:g" & lr1).Value Range("f2:g" & lr1).Sort key1:=Range("g2"), order1:=xlDescending End Sub

اخي ياسر يسرني ان يكون اعجابك بمشاركاتي هذه المرة تأخذ الرقم 1000 وانا كنت بانتظار من سينال هذا الرقم

جرب هذا الملف Book1 _macro.zip

جرب هذا الملف max+lookup salim.zip

الخلايا المدمجة مشكلة بحد ذاتها بالنسبة لكود ال Vba لعدم الوقوع في هذا الغخ ينصح عدم استعمال الخلايا المدمجة (استبدالها من خلال Center Across Selection)

اثراء للموضوع هذا الملف color_cel.zip

ألف مبروك صديقي الغالي ياسر على هذه الترقية التي تستحقها عن جدارة و الى المزيد من العطاء

تم التعديل جسب الطلب protect_non_empty.zip

جرب هذا الملف Book1 salim.zip

انسخ هذا الكود الى حدث الصفحة Private Sub Worksheet_Change(ByVal Target As Range) With ActiveSheet .Unprotect .Cells.Locked = True .Cells.SpecialCells(xlCellTypeBlanks).Locked = False .Protect End With End Sub

جرب هذا الملف (الورقة 2) 2x salim.zip