ياسر خليل أبو البراء

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

أخي الحبيب إبراهيم غالباً المشكلة في نسخة الأوفيس .. بس قبل ماتقوم بتنصيب نسخة جديدة جرب الكود التالي أولاً وشوف المشكلة هتتحل ولا لا .. لو متحلتش يبقا شوف نسخة تانية ونصبها Public Sub RenameMSFormsFiles() Const tempFileName As String = "MSForms - Copy.exd" Const msFormsFileName As String = "MSForms.exd" On Error Resume Next RenameFile Environ("TEMP") & "\Excel8.0\" & msFormsFileName, Environ("TEMP") & "\Excel8.0\" & tempFileName RenameFile Environ("TEMP") & "\VBE\" & msFormsFileName, Environ("TEMP") & "\VBE\" & tempFileName MsgBox "Please Restart Excel To Check If ActiveX Controls Are Working Again.", vbInformation End Sub Private Sub RenameFile(fromFilePath As String, toFilePath As String) If CheckFileExist(fromFilePath) Then DeleteFile toFilePath Name fromFilePath As toFilePath End If End Sub Private Function CheckFileExist(path As String) As Boolean CheckFileExist = (Dir(path) <> "") End Function Private Sub DeleteFile(path As String) If CheckFileExist(path) Then SetAttr path, vbNormal Kill path End If End Sub نفذ الماكرو المسمى RenameMSFormsFiles ثم أعد تسغيل برنامج الإكسيل وشوف النتيجة

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

أخي الغالي إبراهيم أي معلومة تقصد .. عيد المعلومة ليستفيد المتابعين .. يعني في الإعادة إفادة ولو عندك إضافة تسعدني إضافتك ليها وهناك سؤال تم طرحه بعد الجزء الثاني قم بتخزين قيم النطاق A1:A15 في مصفوفة باسم Arr ثم قم نسخ المصفوفة ووضعها في بداية النطاق الذي يبدأ من الخلية K5 مثلاً في نفس العمود K أي نسخها في عمود واحد فقط ...

جرب الكود بهذا الشكل Sub AutoFill() With Range("B6", Range("B" & Rows.Count).End(xlUp)) .SpecialCells(2).Offset(, -1).Formula = [C6].Formula End With End Sub

قم بالدخول على محرر الأكواد عن طريق Alt + F11 روح لقايمة View هتلاقي Toolbox

جرب الخطوات التالية 'Create Calendar On UserForm '--------------------------- '[Additional Controls] قم بإظهار صندوق الأدوات ثم كليك يمين واختر الأمر 'ثم قم برسمها على الفورم [Calendar Control 12.0] اختر الأداة Private Sub UserForm_Activate() 'ضع الكود التالي في حدث تنشيط الفورم ليتم اختيار التاريخ الحالي '-------------------------------------------------------------- Me.Calendar1.Value = Now() End Sub Private Sub Calendar1_Click() 'يقوم الكود بوضع التاريخ الذي يتم تحديده في الخلية النشطة ثم إخفاء الفورم '------------------------------------------------------------------------ ActiveCell.Value = Calendar1.Value UserForm1.Hide End Sub لتطبيق الكلام النظري إليك الملف المرفق Calendar.rar

قم بالإطلاع على المرفق التالي لعله يكون المطلوب Sub RunTest() Dim WS As Worksheet, SH As Worksheet Dim LR_WS As Long, LR_SH As Long, Rng As Range Set SH = Sheets("Collect") Application.ScreenUpdating = False Application.DisplayAlerts = False SH.Range("A2:D1000").ClearContents For Each WS In ThisWorkbook.Sheets If WS.Name <> "Collect" Then LR_SH = SH.Cells(Rows.Count, 1).End(xlUp).Row + 1 With WS LR_WS = .Cells(Rows.Count, 1).End(xlUp).Row Set Rng = .Range("A2:D" & LR_WS) Sheets.Add After:=Sheets(Sheets.Count) Rng.Copy ActiveSheet.Range("A2") End With With ActiveSheet.Range("E2:E" & LR_WS) .Formula = "=SUMPRODUCT(($A$2:$A$" & LR_WS & "=A2)*($B$2:$B$" & LR_WS & "=B2)*($C$2:$C$" & LR_WS & "))": .Value = .Value .Offset(0, -2).Value = .Value End With With ActiveSheet .Range("A2:D" & LR_WS).RemoveDuplicates Columns:=VBA.Array(1, 2, 3), Header:=xlNo .Range("A2:D" & .Cells(Rows.Count, 1).End(xlUp).Row).Copy: SH.Range("A" & LR_SH).PasteSpecial xlPasteValues .Delete End With End If Next WS Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub Remove Duplicates For Summary Report YasserKhalil.rar

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

أخي الغالي مختار أخيراً ظهرت على الشاشات ..ايه الحكاية عندكم في الصعيد حر ولا ايه؟ يا ريت تساهم معانا ، مش هقول تتابع لأن مساهماتك متأكد إنها مفيدة بالنسبة للتوغل أنت تعرفني جيداً أنني أتوغل برفق دائماً ..قم بمتابعة الموضوع جيداً ستجد أننا ما زلنا بعد حلقتين في المصفوفة أحادية الأبعاد ولم نتطرق بعد إلى الثنائية الأبعاد .. بحاول إننا نفهم الأحادية بشكل جيد من جميع الجهات عشان نهضم الموضوع بشكل جيد يمكننا من فهم ما هو آتٍ إن شاء الله تقبل تحياتي

لم أفهم المطلوب وضح بشيء من التفصيل ..كيف تريد شكل النتائج ؟؟ من ورقتي العمل ؟؟

الدالة SUMIFS للجمع بشروط وهنا في الملف المرفق الأخ يريد العد بشروط ..

مشكور على مرورك العطر أخي الغالي عادل فينك غطسااااااااان فين في الحر ده .. اشتقنا لك ويعلم الله في انتظار مساهماتك بالموضوع تقبل وافر تقديري واحترامي

أخي الكريم احمد الدالة Sumproduct أقوى في هذه الحالة ولكن لو أردت استخدام الدالة Countifs فيجب استخدام عمود مساعد لاستخراج رقم الشهر Countifs.rar

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

تم إضافة الجزء الثاني ..للمتابعين انطلقوا إلى رحاب الجزء الثاني في المشاركة الأصلية .. لم أضيف الكثير فقط شرحت ما قدمه الأخ الحبيب عبد العزيز لأن هذا ما كنت أنوي شرحه يعني يعتبر تأكيد وشرح بالتفصيل للأسطر للاستفادة منها ... سؤال جديد بعد الإطلاع على الشرح في الجزء الثاني .. قم بتخزين قيم النطاق A1:A15 في مصفوفة باسم Arr ثم قم نسخ المصفوفة ووضعها في بداية النطاق الذي يبدأ من الخلية K5 مثلاً في نفس العمود K أي نسخها في عمود واحد فقط ...

بسم الله ما شاء الله تفاعل كبير جداً من الأخ الحبيب إبراهيم والأخ الحبيب عبد العزيز بارك الله فيكما وجزاكما الله خير الجزاء .. صراحة كنت أريد هذا التفاعل وهو ما يؤدي بنا إلى أن نفهم سوياً ونتعلم سوياً .. نريد أن نقضي على أسلوب الطالب والمعلم فكلنا هنا باحثين عن المعلومة وكلنا يكمل بعضنا البعض .. الحمد لله رغم ان المعلومات التي قدمت للآن بسيطة جداً ولكنها مهمة جداً لأنها الأساس وحيثما وجد أساس قوي استطعنا أن نبني جيلاً واعداً في هذا المجال تقبلوا تحياتي

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

المشكلة الآن أنني لا أدري كيف يتم حساب المتوسط !! .. أنا لا أفقه الكثير في الرياضيات ولذا طلبت منك الخطوات المطلوبة لحساب المتوسط ... وفي المشاركات الأخيرة أرفقت ملف فيه الخطوات وأنا قمت بتتبع الخطوات وعملت الدالة تبعاً لذلك والنتائج مطابقة للنتائج في الملف المرفق ..فأنى لي أن أدري إن كان هناك خطأ أم لا؟؟؟؟؟؟ أقترح عليك البحث في الموضوع أولاً ومعرفة كيف يتم حساب المتوسط للزوايا بشكل دقيق ... وإن شاء الله ستجد المساعدة الموضوع تشعب بدون الوصول لنتيجة مرضية للأسف يرجى إرفاق ملف نهائي بنتائج متوقعة ...صحيحة حتى يتسنى للجميع المساعدة وإلا فإننا ندور في دائرة مغلقة

استبدل الفاصلة في المعادلة بفاصلة منقوطة , ;

الأسطر لإلغاء خاصية اهتزاز الشاشة وإلغاء خاصية تمكين الحدث والتي تقوم بتنفيذ أكواد أخرى بمجرد التغييرفي أي خلية .. مما أعطى الكود ثبات نقطة أخرى قمت باستبدال جملة Select Case واستخدمت جملة IF حيث أن الأولى تقوم باختبار جميع القيم أولاً قبل التنفيذ بينما جملة If تختبر شرط شرط فإذا وافق الشرط يتم الخروج من الجملة بدون استكمال عمليات الاختبار لبقية الشروط مما يجعل الأمر أيسر وأخف

ضع المعادلة التالية في الخلية L2 =IF(OR(I2="طنطا - المحلة",I2="مسطرد - جازفيل",I2="القطامية - جازفيل"),SUM(K2*J2*H2,200),SUM(K2*J2*H2))

هذا الرابط من هنا

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

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