Ali Mohamed Ali

وعليكم السلام-تفضل mathtype 6.9

وعليكم السلام اخى الملف يعمل بكل كفاءة كما ترى ولكن المشكلة لديك انه لا يوجد اى تاريخ قريب لتلوينه قم انت بتغيير اى تاريخ الى تاريخ جديد فليكن بشهر ابريل أو مايو 2021 بأى خلية يدوياً وستجد ان الخلية سيتم تلوينها تلقائياً وشكراً

تفضل هذه المعادلة لكود المندوب =IFERROR(INDEX(المناديب2!$A:$A,MATCH($A2,المناديب2!$B:$B,0)),"") وهذه المعادلة لكود السيارة =IFERROR(INDEX(' السيارات3'!$A:$A,MATCH($C2,' السيارات3'!$C:$C,0)),"") حركه السيارات.xlsx

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

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

وعليكم السلام وذلك بسبب ان طريقة الحساب لديك كانت Manual اجعلها كما بالصورة

جزاك الله خير الثواب وكل عام وانتم جميعاً بخير

وعليكم السلام-فقط استخدم هذه المعادلة =CONCATENATE($E2," ",$BC2," ",$F2) مواقع استخدام العناصر 201.xlsx

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

اهلا بك فى المنتدى -يمكنك ببساطة استخدام هذه المعادلة لطلبك =IFERROR(VLOOKUP($B9,ورقة1!$A$3:$C$400,2,0),"") VLOOKUP.xlsx

وعليكم السلام-طالما انها معادلة اجمالى من الأفضل ان تكون هكذا =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