سليم حاصبيا

الخلية او (عدة خلايا) لا يمكن حذفها ولا اخفائها من ورقة الاكسل (يمكن تفريغها فقط او نتسيقها ) خاصية الحذف والاخفاء هي للصفوف و الأعمدة فقط

تفضل يا صاحبي (بالكود) الضفحة salim من هذا الملف الزمن للتعليم المتوسط salim_Macro.xlsm

انا افهم ان الذي قلته هو مزاح يا سيدي امزح كما يحلو لك و كيفما يحلو لك و أينما يحلو لك وانا احب المزاح ولا اتضايق منه ابداً

جرب هذا الملف الزمن للتعليم المتوسط salim--.xlsm

صدقتي يا ياسر الجو ليس معكراً ابداً هناك عشرات المشاركات التي اقدم لها هذه النصيحة (لوجه الله) حتى ان هذه النصيحة صارت محفوظة عندي و اعمل لها Copy Paste والقليل منهم يستجيب (والعجب كل العجب لست انا المستفيد)

المشكلة انه اذا تساوى صفان بعدد الافواج ما العمل؟؟؟

الرفم الذي يظهر هو الفرق بالعلامات يمكن ازالته اذا كنت تريد باستدال هذا السطر من الكود Cells(k + 21, "DV").Offset(, y) = My_St & " : " _ & Abs((My_Rg.Cells(k, 1).Offset(, m).Offset(, 8)) _ - (My_Rg.Cells(k, 1).Offset(, m))) يهذا Cells(k + 21, "DV").Offset(, y) = My_St

تم التعديل لا حظ (الصفوف من 21 الى 23) الماكرو Option Explicit Sub find_deffrence() Application.ScreenUpdating = False Dim My_Sh As Worksheet: Set My_Sh = Sheets("ورقة1") Dim last_row%: last_row = My_Sh.Cells(Rows.Count, "DD").End(3).Row Dim My_Rg As Range: Set My_Rg = My_Sh.Cells(22, "dd").Resize(last_row - 21, 16) Dim m%: m = 0 Dim col% Dim My_St$ Dim y%, k%: k = 1 My_Sh.Range("DV22:EC" & last_row).ClearContents For k = 1 To My_Rg.Rows.Count For col = 1 To 8 If My_Rg.Cells(k, 1).Offset(, m).Offset(, 8) <> _ My_Rg.Cells(k, 1).Offset(, m) Then y = Application.CountA(Cells(k + 21, "DV").Resize(1, 8)) My_St = My_Rg.Cells(k, 1).Offset(, m).Offset(-k) Cells(k + 21, "DV").Offset(, y) = My_St & " : " _ & Abs((My_Rg.Cells(k, 1).Offset(, m).Offset(, 8)) _ - (My_Rg.Cells(k, 1).Offset(, m))) End If m = m + 1 Next m = 0 Next Application.ScreenUpdating = True End Sub الملف aamir_salim modfier.xlsm

نفس الملف بالمعادلات هذه المعادلة توضع في الخلية DV24 مع (Ctrl+Shift+Enter) معادلة صفيف و تسحب يساراً 7 أعمدة و نزولاً الى اخر صف فيه بيانات =IF(COLUMNS($DV$24:DV$24)>COUNTIF($DL24:$DS24,50),"",INDEX($DL$21:$DS$21,SMALL(IF($DL24:$DS24=50,COLUMN($DL24:$DS24)-COLUMN($DL24)+1),COLUMNS($DV$24:DV$24)))) الملف مرفق aamir_salim1.xlsm

ريما يكون المطلوب تم التعديل على بنية الجدول لحسن عمل الكود من شروط الاكسل لأي جدول (حدود الجدول يمينا يساراً فوق وتحت يجب ان تكون حلايا فارغة و يمنع دمج الخلايا ضمن الجدول) لذلك اضفت عامود فارغ (العامود DU) في المرة القادمة تجنب دمج الخلايا والاعمدة والصفوف (الصفوف من 21 الى 23) والا سأتوقف عن المساعدة (تضييع وقت في تنسيق الجداول) الكود Option Explicit Sub Give_matiere() With Application .ScreenUpdating = False .Calculation = xlCalculationManual End With Dim My_arr() Dim My_col$, x%: x = 24 Dim k%, i%, y% Dim lr%: lr = Range("DD21").CurrentRegion.Rows.Count + 20 My_arr = Array(116, 117, 118, 119, 120, 121, 122, 123) Range("DV24").Resize(lr, 7).ClearContents For k = 0 To UBound(My_arr) For i = x To lr If Cells(i, My_arr(k)) = 50 Then y = Application.CountA(Cells(i, "DV").Resize(1, 7)) Cells(i, "DV").Offset(, y) = Cells(21, My_arr(k)) End If Next Next Erase My_arr With Application .ScreenUpdating = True .Calculation = xlCalculationAutomatic End With End Sub الملف مرفق aamir_salim.xlsm

تم وضع اللمسة السحرية takrire final2018_salim.xlsm

تم حذف الخانات الفارغة في اسفل الصفحة انظر الى هذا الملف الجديد st_List_salim1.xlsm

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

تم التعديل كما تشاء أين الاعجاب (هل من الصعب الضغط على اشارة القلب ❤️ اسفل كل مشاركة) (الخانات الفارغة في اسفل الصفحة لا تظهر عند الطباعة) جرب ان تعمل Print Preview و سوف ترى نطاق الطباعة قائمة التلاميذ salim1.xlsm

جرب هذه اذن =IF(B16="","",COUNTIF($B$16:$B16,$B16)&"/"&B16)

جرب هذا الملف قائمة التلاميذ salim.xlsm

هذه المعادلة =IF($C16="","",MID($C16,FIND("/",$C16)+1,10))

جرب هذه المعادلة =DATEDIF($L$14,$K$14,"y")*12+DATEDIF($L$14,$K$14,"ym") او هذه =DATEDIF($L$14,$K$14,"m")

الكود مختصراُ Sub Salim1_Hidden() With Range("A16:A60").EntireRow .Hidden = Not (.Hidden) End With End Sub

ربما هذا الكود اكثر دقّة Sub RoundedRectangle1_Click() Dim Sh As Worksheet Set Sh = Sheet1 Dim x, Y As Date Dim d, m, yy Sh.Copy After:=Sheets(Sheets.Count) Y = Date d = Day(Y): m = Month(Y): yy = Year(Y) x = Format(Time, "h mm ss AM/PM") ActiveSheet.Name = "aamir On " & d & " " & m & " " & yy & "(" & x & ")" End Sub

هذه المعادلة =COUNTIF(B7:J7,">"&MAX(C7,D7,F7,G7,I7,J7))

يمكن ان يكون المطلوب لحساب وقت التأخيرsalim.xlsx

الموضوع غير واضح فهل تريد اليحث بواسطة الكومبو عن رقم السيارة أو عن نوعيتها او عن اي شيء اخر

السلام عليكم ورحمة الله وبركاته صديقي الشيخ علي لإن شكرتم لأزيدنكم اليك المزيد في هذا الملف Ihab_salim_automatic.xlsm

جرب هذا الملف SUM_BY_COLORE.xls