أبوأحـمـد

عدل الرقم 2 إلى الرقم الذي تريد

هذا أصل الموضوع .. هل تمت الإجابة عليه؟ إذا نعم افتح موضوع جديد لإجابة عليه وإذا لا نتناقش في الحلول المتاحة

استخدم هذه المعادلة في خلية K12 أو أي خلية أخرى =MAXIFS(Table1[RATE];Table1[Order Date :];"<"&$H$4;Table1[Item Code];E12)

ما عليش أخي لو فيها لقافة طرح تاريخين مفهومه بس الناتج بيكون عدد أيام ماهو تنسيق تاريخ والجمع بين تاريخين ليش؟

وعليكم السلام هذا كود أنا مستخدمه في أداة التقويم الدراسي يحفظ الصورة في سطح المكتب عدل فيه حسب احتياجك Sub ExportScreenshot() Dim Path As String Path = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" & "Capture.jpg" Dim pic_rng As Range Dim ShTemp As Worksheet Dim ChTemp As Chart Dim PicTemp As Picture Application.ScreenUpdating = False Set pic_rng = Worksheets("ورقة1").Range("D2:AR34") Set ShTemp = Worksheets.Add Charts.Add ActiveChart.Location Where:=xlLocationAsObject, Name:=ShTemp.Name Set ChTemp = ActiveChart pic_rng.CopyPicture Appearance:=xlScreen, Format:=xlPicture ChTemp.Paste Set PicTemp = Selection With ChTemp.Parent .Width = PicTemp.Width + 800 .Height = PicTemp.Height + 350 End With ChTemp.Export Filename:=CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" & "تقويم اكسل.jpg", Filtername:="jpg" MsgBox "تم حفظ صورة للتقوم على سطح المكتب" & vbNewLine & "تقويم اكسل.jpg" & vbNewLine & " يمكن الاستفادة منها لتكون خلفية لسطح المكتب" & vbNewLine & "لايقاف الرسال أو منع حفظ الصورة حدد الخيار من تبويب صفحة حول", , "التقويم" Application.DisplayAlerts = False ShTemp.Delete Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub

أستاذي اللي أنا شايف هذي نفس البيانات بشيت 1 إلا إذا أنت تتكلم عن ملف آخر أما صنفين A و B أنا ما عندي ملف فيه صنفين A و B شوف الصورة الشيت2 بتسمع صح من الشيت1 إذا فيه ملاحظات خليها بالصور عشان أفهم ولأساتذة يفهمون يمكن عندهم حلول أفضل

وعليكم السلام =IF(OR(WEEKDAY(A1)=3;WEEKDAY(A1)=5);"مصرح بالاجازه ";"")

حدد الأعمدة التي تريد مسحها واحفظه باسم (Name_Rang) مثلا ثم استخدم الأمر التالي Sub Clear_Name_Rang() Application.ScreenUpdating = False Range("Name_Rang").ClearContents Application.ScreenUpdating = True End Sub ملاحظة المرفق تحديد عشوائي للتوضيح

اللي فهمت من حضرتك إن الشيت2 هي عبارة عن استعلام لآخر جاري في الشيت1 والاستعلام لابد له من معادلات عشان تستدعيه من الشيت1 إلى الشيت2 إذا حاب نزود البنود في الشيت2 مافيه مشكلة

لأنك غيرت بالمعادلة اللي باللون الأحمر زيادة =IFERROR(_xlfn.SINGLE(INDEX(Table2[كمية سابقة];AGGREGATE(15;6;((1)/(Table2[جارى]=$H$2))*(ROW($A$1:$A$301));ROW(A1));1));"") المرفق بعد التعديل مستخلص مياه ورمل (3).xlsx

إذا بتمسح نطاق Sub تصفير_2_معادلات() Range("c8:ck400").ClearContents End Sub

جرب مستخلص مياه ورمل.xlsx

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

Alaa (1).xlsx

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

هذا لعشاق الدوال والمعادلات New Microsoft Excel Worksheet.xlsx

الجدول هذا راح تعبيه مرة وحدة فقط عند إضافة سيارة جديدة .

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

متابعة السيارات.xlsx

جرب عدم التعديل فى اسطر محددة.xlsm

شكرا أستاذي محمدي عبد السميع

أتمنى أن أساعدك بس المعطيات غير مفهومة عندي وعشان أساعدك وضح بشكل دقيق التالي : أولا: ما عدد الأيام لتحقق الشرط : 0 إلى -999 من Create a ticket to report the delay of 25 إلى 1 من Follow up with the supplier 29 إلى 26 من nominate the forwarder 64 إلى 30 من Follow up with Forwarder and Update ETA 75 إلى 65 من Check with Clearance Team ؟ إلى 76 من Check with Warehouse Team 25 إلى 1 من Production Stage 29 إلى 26 من Nomination Stage 55 إلى 30 من Shipping Stage 66 إلى 56 من Clearance Stage 89 إلى 67 من Receiving Stage ؟ إلى 90 من Critical stage ثانيا : كيف أستخرج الأيام : مثلا هل هو ناتج عملية طرح C2-(E2 + 25 + 25 + 7 + 3 + 7) ولماذا تضع هذه الأرقام 25 + 25 + 7 + 3 + 7 ألا يكفي أن تكتب C2-(E2+67) ولماذا معادلة اليوم الواحد مختلفة IF(C2 - E2 >= 1

هذا توزيع حسب ناتج عملية عدد الوثائق * عدد المواد الوثائقXالمواد.xlsx

عدل صف الإزاحة من 1 إلى 0 ليكون بهذا الشكل ActiveSheet.Range("c" & Rows.Count).End(xlUp).Offset(0, 0).Select

فك حماية كل أوراق العمل ThisWorkbook.unprotect "123456" حماية كل أوراق العمل ThisWorkbook.protect "123456" فك حماية الورقة النشطة ActiveSheet.unprotect Password:="123456" حماية الورقة النشطة ActiveSheet.protect Password:="123456" الأفضل تستخدم فك وحماية الورقة التي تحتاج التعامل معها. لأن فك جميع أوراق العمل يسبب بطئ .