Ali Mohamed Ali

وعليكم السلام-طالما انها معادلة اجمالى من الأفضل ان تكون هكذا =SUM(J6:L6) معادلة الجمع1.xlsx

تفضل لك ما طلبت 1معادلات.xlsx

وعليكم السلام-تفضل بالتنسيقات الشرطية مهم1 .xls

وعليكم السلام-يمكنك استخدام هذا الكود لطلبك Sub Combine() Dim j As Integer Dim s As Worksheet On Error Resume Next Sheets(1).Select Worksheets.Add ' add a sheet in first place Sheets(1).Name = "Year 2020" ' copy headings Sheets(1).Activate With ActiveSheet v = 1 Range("a2").Resize(v + 1, 10) = arr Range("b" & v + 1).FormulaR1C1 = "Total" Range("c" & v + 1).FormulaR1C1 = "=SUBTOTAL(9,R4C3:R[-2]C)" Range("d" & v + 1).FormulaR1C1 = "=SUBTOTAL(9,R4C4:R[-2]C)" Range("e" & v + 1).FormulaR1C1 = "=SUBTOTAL(9,R4C5:R[-2]C)" Range("f" & v + 1).FormulaR1C1 = "=SUBTOTAL(9,R4C6:R[-2]C)" Range("g" & v + 1).FormulaR1C1 = "=SUBTOTAL(9,R4C7:R[-2]C)" Range("h" & v + 1).FormulaR1C1 = "=SUBTOTAL(9,R4C8:R[-2]C)" Range("i" & v + 1).FormulaR1C1 = "=SUBTOTAL(9,R4C9:R[-2]C)" End With Sheet1.Range("b4:k4").Copy Sheets("Year 2020").Range("a3:K3") Columns("A:C").ColumnWidth = 10 Columns("D:I").ColumnWidth = 8 Columns("J").ColumnWidth = 16 Range("b4").EntireRow.Select Range("b2:i2").Interior.ColorIndex = 5 Range("a2:j2").Font.ColorIndex = 2 Range("b2:i2").Font.Bold = True Range("b2:i2").Font.Size = 16 Range("b2:i2").Font.Name = "Times New Roman" Range("b2:i2").HorizontalAlignment = xlCenter Cells.Rows(4).Font.Bold = True Selection.Copy Destination:=Sheets(1).Range("b4") For Each s In ActiveWorkbook.Sheets If s.Name <> "Year 2020" Then Application.Goto Sheets(s.Name).[b4] Selection.CurrentRegion.Select ' Don't copy the headings Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select Selection.Copy Destination:=Sheets("Year 2020"). _ Cells(Rows.Count, 1).End(xlUp)(2) End If Next End Sub Book4 .xlsm

فقط تم تغيير امتداد وتنسيق الملف الى XLSM حتى لا يقوم بإلغاء القائمة المنسدلة ... دائماً وأبداً حاول عدم جعل ملفات الإكسيل لديك بهذا الإمتداد XLS , فهو امتداد قديم قائمة منسدلة.xlsm

وعليكم السلام-تفضل يمكنك استخدام هذه المعادلة لطلبك =IFERROR(VLOOKUP($B$2,البيانات!$A$2:$E$100,1,0),INDEX(البيانات!$A$2:$A$100,MATCH($B$2,البيانات!$B$2:$B$100,0))) test1.xlsx

تم التعديل كما تريد على الملف السابق وتم وضع كود بصفحة تفاصيل الحجز .. حتى لا تقوم بحجز وإدخال نفس الملعب بنفس اليوم بنفس التوقيت أكثر من مرة , ولكم جزيل الشكر

وعليكم السلام-تفضل المشكلة لديك انك كنت عامل طريقة الحساب يدوياً وليس تلقائياً او الية !!! جدول توزيع النوبتجيات1.xlsx

وعليكم السلام-يمكنك استخدام هذه المعادلة =IFERROR(LOOKUP(2,1/('تفاصيل الحجز'!$E:$E=$B6)/('تفاصيل الحجز'!$D:$D=$C6)/('تفاصيل الحجز'!$G:$G=D$5),('تفاصيل الحجز'!$A:$A)),"") كشف حجوزات الملاعب -ماكرو.xlsm

تفضل finger print1.xlsx

ببساطة يمكنك استخدام هذا الكود لطلبك Sub format() For Each WS In Worksheets With WS i = .Range("a" & Rows.Count).End(3).Row Sheets("السويد").Range("A1:xfd12").Copy .Range("A" & i) End With Next WS End Sub test1.xlsm

تم عمل المطلوب بمعادلة المصفوفة (Ctrl+Shift+Enter) بصفحة بحث =IFERROR(INDEX(Sheet1!$A$2:$A$2000,SMALL(IF(Sheet1!$B$2:$B$2000=$A$1,IF(Sheet1!$C$2:$C$2000="مفتوح",ROW(A$2:A$2000)-ROW(A$2)+1)),ROWS($A$3:A3))),"") اومر التوريد1.xlsx

تفضل هذا مفعل البرنامج كامل ومرفق به فولدر إسمه (K) يحتوي على ملفات يرجى وضعها داخل ملف البرنامج بعد تسطيبه في Program Files والموافقة على الاستبدال إذا لزم الأمر (طبعاً بعد غلق البرنامج بعد تسطيبه) . وسيكون كامل بإذن الله تعالى ، والكمال لله وحدة من قبل ومن بعد اللغة يمكنك اختيارها بعد التسطيب ولكم جزيل الشكر Kutools وهذا رابط اخر على ميديا فاير Kutools.for.Excel.16.50

وعليكم السلام -يجب تغيير هذا السطر من الكود Label1.Caption = " " & NoToTxt(TextBox1.Value, " فلس", " درهم") على ان يصبح هكذا وتم التجربة بالفعل بالطابعة ويعمل كما تريد Label1.Caption = NoToTxt(TextBox1.Value, " درهـــمً", " فلــس") التفقيط1.xlsm

وعليكم السلام-تفضل =IFERROR(INDEX(التحميل!$B$2:$B$9224,MATCH((F2&"*"&G2&"*"&D2&"*"&E2),التحميل!$H$2:$H$9224&"*"&التحميل!$C$2:$C$9224&"*"&التحميل!$F$2:$F$9224&"*"&التحميل!$G$2:$G$9224,0)),INDEX(مستودع!$B$2:$B$4000,MATCH((F2&"*"&G2&"*"&E2),مستودع!$F$2:$F$4000&"*"&مستودع!$C$2:$C$4000&"*"&مستودع!$E$2:$E$4000,0))) معادلة مزدوجة1.xlsm

كثيراً ما نقول تجنباً لعدم اهدار وإضاعة الوقت فلابد من رفع نموذج من الملف الأصلي الذى تعمل عليه فممنوع رفع ملف ثم بعد ذلك يظهر ملف أخر لطلبك !!!! لأ طبعاً لا تتأثر ... أما بالنسبة لتصدير الملف كـــ pdf ... فمن فضلك عليك بإستخدام خاصية البحث بالمنتدى فقد تكرر هذا الموضوع كثير جداً

وعليكم السلام -أهلاً بك فى منتدانا , يمكنك استخدام هذه المعادلة لتلبية طلبك =SUMPRODUCT(SUMIF(INDIRECT("'"&$B9&"'!"&"C9:C19"),C$7,INDIRECT("'"&$B9&"'!"&"D9:D19"))) Boo2.xlsx

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

أحسنت استاذ محمد بارك الله فيك

اجعل تنسيق الشهر كتاريخ كما تم عمله فبالفعل ان كاتب فى خلية الشهر مثلاً يناير 01/01/2021 وجعلت تنسيق الخلية ان يظهر اسم الشهر فبالتالى كما تريد يصبح هذا البحث بأول الشهر وباقى جزء المعادلة "<="&EOMONTH(C$1;0) يعنى أقل من أو يساوى أخر نفس هذا الشهر فمثلاً لو وقفت على الخلية التى بها اسم الشهر لوجدت ما أود توضيحه لك فيظهر فى شريط الصيغة انه تاريخ ... وشكراً

تفضل بيان تجميعى1.xlsx

وعليكم السلام-كان عليك استخدام خاصية البحث بالمنتدى قبل رفع المشاركة-تفضل , ملفك به مشكلة فى التحميل اضافة سطر بنفس التنسيق والمعادلات

بارك الله فيك وزادك الله من فضله

وعليكم السلام-يمكنك استخدام هذه المعادلة =SUMPRODUCT((WEEKDAY($A$2:$A$32,2)<>6)*(WEEKDAY($A$2:$A$32,2)<>7)*(B2:B32="")) مثال1.xlsx

وعليكم السلام -يمكنك استخدام هذه المعادلة المصفوفة (Ctrl+Shift+Enter) عذراً أستاذى سليم فلا أرى رد حضرتك بارك الله فيك =INDEX(DATA!$D$2:$D$19,MODE(IF(DATA!$A$2:$A$19=$A2,MATCH(DATA!$D$2:$D$19,DATA!$D$2:$D$19,0)))) Thanks1.xlsx