سليم حاصبيا

انسخ هذه النعادلة بعد تعيين النطاق المطلوب (يجب ان تستعمل Ctrl+Shift+Enter و ليس Enter وحدها) =SUM(IF(ISNUMBER($C$2:$C$12),$C$2:$C$12,0))

تم التعديل المصنف1 salim1.rar

بعد اذن اخي وصديقي رجب هذا الملف المصنف1 salim.rar

تك تحميل الملف يرجى التجربة Book166.rar

كيف تدرج جدولاً عشوائياً بأي عدد من الصفوف و الاعمدة دون تكرار انظر الى المرفق table_rand_numebr.rar

انظر الى المرفق adress_for _expeince.rar

يجب ان يكون الملف محفوظاً كي يتعرف عليه الاكسل يجب ان يكون الملف محفوظاً كي يتعرف عليه الاكسل

تم التعديل التأخيرات modified.rar

تفضل المطلوب list salim.rar

Private Sub Worksheet_Change(ByVal Target As Range) Dim My_range As Range Dim lr As Long lr = Sheets("sheet1").Cells(Rows.Count, 2).End(3).Row + 1 Set My_range = Range("b1:b" & lr) If Target.Column = 2 And Target.Count = 1 Then Application.ScreenUpdating = False Application.EnableEvents = False colorize Application.ScreenUpdating = True Application.EnableEvents = True End If Application.ScreenUpdating = True Application.EnableEvents = True End Sub Sub colorize() Dim My_range As Range Dim lr As Long lr = Sheets("sheet1").Cells(Rows.Count, 2).End(3).Row + 1 Set My_range = Range("b1:b" & lr) For i = 1 To lr Range("b" & i).Copy Range("d" & i).PasteSpecial Paste:=xlPasteFormats Next Application.CutCopyMode = False End Sub جرب هذا الماكرو

جرب هذا الكود Sub terhil() For i = 2 To Sheets.Count Sheets("sheet1").Range("A1:L9").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets(i).Range("p1:p2"), _ CopyToRange:=Sheets(i).Range("a1"), Unique:=False Sheets(i).Columns.AutoFit Next End Sub

أخي احمد يرجى ادراج الكود للاخ علي لملفه حيث انه لا وقت لدي و اريد المغادرة

جرب هذه المعادلة (البيانات في الخلية A2 ) ,واسحب نزولاً IF(MOD(A2,1)*100<50,CEILING(A2,0.05),FLOOR(A2,0.05))

جرب هذا الملف hide_j_rows.rar

هل تقصد هذا الشيئ عبد الفتاح.rar

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

انسخ هذه المعادلة الى اي خلية في الملف =MID(MID(CELL("filename"),SEARCH("[",CELL("filename"))+1, SEARCH("]",CELL("filename"))-SEARCH("[",CELL("filename"))-1),1,4)

تمام يا سيدي هل هذا ما تريده اصبح الملف يشتغل معك على الحالتين ترحيل with macro same sheet.rar

الملف الذي رفعته مصاب بفيروس و قد رفص الجهاز فتحه لذلك قمت بعمل ملف مشابه لما تطلبه تستطيع نسخ المعادلات منه جرب ان تضيف او تمسح اي شيء من الصفحة الاولى وانظر ماذا يحدث في الثانية ترحيل.rar

جرب هذا الملف و اعطني النتيجة Arrange- School.rar

تم معالجة الامر الصندوق SALIM.rar

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

تم التعديل على المعادلة (استعملها مع Ctrl+Shift+Enter ,وليس Enter وجدها) =INT(($D$2-(HOUR(SUM($C$3:$C$10))+MINUTE(SUM($C$3:$C$10))/60))*60/60)+1&" H"& " : "&FLOOR(MOD(($D$2-(HOUR(SUM($C$3:$C$10))+MINUTE(SUM($C$3:$C$10))/60))*60,60),0.1)&" Mins."

كلنا يعرف كيفية ايجاد العناصر الفريدة(Unique Itemes)في عامود لكن هل خطر في بال احد ان يجدها في جدول اكثر من عامود انظر الى المرفق Unique by column.rar

يجب ان تسحب المعادلة حتى نهاية الصف