قلم-الاكسل(عبدالعزيز) قام بنشر يونيو 14, 2018 مشاركة قام بنشر يونيو 14, 2018 (معدل) السلام عليكم كل سنة ومدير الموقع والمشرفين والخبراء والاعضاء بصحة وعافية ودامت اعياكم مسرات هذا جدول مرفق المطلوب مشروح فيه تحديد العمود الوسط بلون برتقالي هي 8 اعمدة لكن ليس كل مرة ان تكون الاعمدة مشغولة العمود الاول والثاني والثالث يجب ان لا تكون فارغة اما ما عداها من الاعمدة قد تكون فارغة وقد تكون مشغولة ان كانت الاعمدة مشغول من 1 حتى 8 فالوسط هو 8 وان كانت الاعمد من 1 حتى 7 فالوسط هو 4 وان كانت الاعمدة مشغول من 1 حتى 6 فالوسط 3 وان كانت الاعمدة مشغولة من 1 حتى 5 فالوسط هو 3 وان كانت الاعمدة مشغولة من 1 حتى 4 فالوسط هو 2 وان كانت مشغولة من 1 حتى 3 فالوسط هو 3 مشغولة مقصود بها اي فيها اعداد بعد ذلك مطلوب جمع الاعمدة قيم الاعمدة من العمود الاول وحتى العمود المضلل باللون البرتقالي (ملاحظة العمود المضلل يتغير حسب الاعمدة اذا كانت مشغولة ام لا حسب ما سبق في الاعلى) المصنف1.xlsx تم تعديل يونيو 14, 2018 بواسطه قلم-الاكسل(عبدالعزيز) تعديل العنوان رابط هذا التعليق شارك More sharing options...
shreif mohamed قام بنشر يونيو 14, 2018 مشاركة قام بنشر يونيو 14, 2018 وعليكم السلام المصنف1(3).xlsm 1 رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر يونيو 14, 2018 مشاركة قام بنشر يونيو 14, 2018 جرب هذا الماكرو Option Explicit Sub salim_Macro() Dim col_num As Byte Dim Position As Byte Range("e11").Resize(4, 8) _ .Interior.Color = vbWhite col_num = Application.Count(Range("e12:l12")) Select Case col_num Case 8, 7: Position = 4 Case 6, 5: Position = 3 Case 4, 3: Position = 2 Case Else: Exit Sub End Select Range("E15") = Application.Sum(Range("e12").Resize(2, col_num)) Range("e12").Offset(-1, Position - 1) _ .Resize(4).Interior.Color = 49407 End Sub الملف مرفق salim_book.xlsm 1 رابط هذا التعليق شارك More sharing options...
قلم-الاكسل(عبدالعزيز) قام بنشر يونيو 14, 2018 الكاتب مشاركة قام بنشر يونيو 14, 2018 الأخ الفاضل شريف العمل الذي قمت بعمله لم يعمل معي وحاولت بكل الطرق ان اجعله يعمل ولم يعمل وفتحت تحرير الماكرو فلم اجد خطأ فيه وضغطت على زر توقيف الماكرو ثم شغلته ولم ينجح علما ان لدي اكسل 2016 الاخ سليم جزاك الله خيرا جاري تحريره بعض الشي للتعديل وساخبرك بالنتائج رابط هذا التعليق شارك More sharing options...
shreif mohamed قام بنشر يونيو 14, 2018 مشاركة قام بنشر يونيو 14, 2018 يرجي اعادة تجربة الملف مره اخره تظليل.xlsm 2 رابط هذا التعليق شارك More sharing options...
قلم-الاكسل(عبدالعزيز) قام بنشر يونيو 14, 2018 الكاتب مشاركة قام بنشر يونيو 14, 2018 الاخ سليم عملك نجح فقط المشكل عند الجمع يظهر جمع الكل و المطلوب هو الجمع من العمود الأول وحتى العمود المضلل ========== الاستاذ شريف الملف الثاني نفس الشي لم يكن عندي حظا لينجح العمل عليه حتى عند الضغط على محرر الماكرو لم استطع فتحه شكرا عزيز وعيدك سعيد لا داعي لان تشغل نفسك مرة اخرى فربما لديك اشغال اكثر اهمية وبارك الله فيك ونفعنا بك وزادك علما ورزقا رابط هذا التعليق شارك More sharing options...
shreif mohamed قام بنشر يونيو 14, 2018 مشاركة قام بنشر يونيو 14, 2018 (معدل) تفضل الكود وقم باستدعائه كيفما شئت Option Explicit Sub sh14jun2018() Dim rng1, rng2, rng3 As Range Dim i, j, x As Long Range("d11").CurrentRegion.Interior.Color = xlNone Range("d" & Rows.Count).End(xlUp).Offset(, 1) = "" Set rng1 = Range("e11", Range("e11").End(xlDown)) i = rng1.Rows.Count - 2 Set rng1 = Range("e11", Range("e11").Offset(i)) Set rng1 = Range(rng1, rng1.End(xlToRight)) j = rng1.Columns.Count Select Case j Mod 2 Case Is = 0 j = j / 2 rng1(j).Select Selection.Resize(i + 1).Select Selection.Interior.Color = 49407 Set rng2 = Range(Selection, Selection.End(xlToLeft)) x = Application.WorksheetFunction.Sum(rng2) Range("E" & Rows.Count).End(xlUp).Offset(1) = x Case Is > 0 j = Int(j / 2) + 1 rng1(j).Select Selection.Resize(i + 1).Select Selection.Interior.Color = 49407 Set rng2 = Range(Selection, Selection.End(xlToLeft)) x = Application.WorksheetFunction.Sum(rng2) Range("E" & Rows.Count).End(xlUp).Offset(1) = x End Select End Sub تم تعديل يونيو 14, 2018 بواسطه shreif mohamed 1 رابط هذا التعليق شارك More sharing options...
قلم-الاكسل(عبدالعزيز) قام بنشر يونيو 14, 2018 الكاتب مشاركة قام بنشر يونيو 14, 2018 هذا ملف الاخ سليم فقط المطلوب فيه جمع الاعداد في الصف E14 بشرط ان يكون الجمع من العمود الأول وحتى العمود المظلل فقط يعني لما يتغير العمود المظلل يتغير الجمع ايضا للتعديل.xlsm رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر يونيو 14, 2018 مشاركة قام بنشر يونيو 14, 2018 4 ساعات مضت, قلم-الاكسل(عبدالعزيز) said: هذا ملف الاخ سليم فقط المطلوب فيه جمع الاعداد في الصف E14 بشرط ان يكون الجمع من العمود الأول وحتى العمود المظلل فقط يعني لما يتغير العمود المظلل يتغير الجمع ايضا للتعديل.xlsm لا داعي لهذا الكود الطويل جداُ يكفي هذا Option Explicit Sub salim_Macro() Dim col_num As Byte Dim Position As Byte Dim Last_row% Last_row = Cells(Rows.Count, "D").End(3).Row If Last_row < 15 Then Last_row = 15 Range("e11").Resize(Last_row - 10, 100) _ .Interior.Color = vbWhite col_num = Application.Count(Range("E12:CZ12")) Position = (col_num) \ 2 Range("E15") = Application.Sum(Range("E12").Resize(2, Position)) Range("E12").Offset(-1, Position - 1) _ .Resize(Last_row - 11).Interior.Color = 49407 End Sub 1 1 رابط هذا التعليق شارك More sharing options...
قلم-الاكسل(عبدالعزيز) قام بنشر يونيو 14, 2018 الكاتب مشاركة قام بنشر يونيو 14, 2018 بارك الله فيك استانا الغالي وكل سنة وانتي مبارك وعيدك مبارك وايامك مباركه وانتي بخير وصح وسلامة نجح الكود مشكور جزيلا الله يلبسك تاج الصحة الى الابد والشكر موصول لاستاذي شريف بارك الله فيه وفي علمه وزادكما من واسع فضله 1 رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر يونيو 14, 2018 مشاركة قام بنشر يونيو 14, 2018 السلام عليكم ورحمة الله تقبل الله منا ومنكم الصلاة والصيام والقيام وكل أعمال الخير... عيدكم مبارك وكل عام وأنتم بخير... تم عمل المطلوب بالمعادلات وبالاستعانة بالتسميات والتنسيقات الشرطية (للتلوين)... أرجو أن تفي الغرض المطلوب. حاجي بن علية المصنف1.xlsx 1 1 رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر يونيو 15, 2018 مشاركة قام بنشر يونيو 15, 2018 11 ساعات مضت, بن علية حاجي said: لسلام عليكم ورحمة الله تقبل الله منا ومنكم الصلاة والصيام والقيام وكل أعمال الخير... عيدكم مبارك وكل عام وأنتم بخير... تم عمل المطلوب بالمعادلات وبالاستعانة بالتسميات والتنسيقات الشرطية (للتلوين)... أرجو أن تفي الغرض المطلوب. حاجي بن علية المصنف1.xlsx عيدكم مبارك وكل عام وأنتم بخير.. اخي بن علية عتد معايتة الملف المرفوع من قبلكم وجدت ان هناك خطأ في نتيجة المعادلة لذا اتقدم بهذا الملف لمقارنة النتائج المعادلة من قبلي (Ctll+Shift+Entre) ارجو الاطلاع =SUM(OFFSET($E$12,,,2,(COUNT($E$12:$L$12)+(MOD(COUNT($E$12:$L$12),2)))/2)) الملف مرفق By_formulaالمصنف1.xlsx 1 1 رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر يونيو 15, 2018 مشاركة قام بنشر يونيو 15, 2018 السلام عليكم ورحمة الله عيدكم مبارك وكل عام وأنتم بخير.. أخي سليم إن المعادلة التي وضعتُها تخص مجموع عمودين فقط (العمود المظلل والعمود الذي قبله) وقد نبهني أخي عبد العزيز أنه يريد مجموع كل الأعمدة بداية من العمود الأول إلى العمود المظلل (الملون)، حيث قمت بالتعديل على المعادلة بالشكل التالي: =SUM(OFFSET(Rng;;;;Col_X)) أو =SUM(OFFSET(Rng,,,,Col_X)) بالنسبة للمعادلة التي اقترحتَها عليّ في ردك السابق فهي صحيحة غير أن تأكيدها كمعادلة صفيف (Ctrl+Alt+Enter) غير ضروري... وقد تم التعديل على الملف في المرفقات لتمديد المعادلات عند إضافة أعمدة أخرى (حسب طلب أخي عبد العزيز)... حاجي بن علية مطلوب التعديل.xlsx 1 1 رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر يونيو 16, 2018 مشاركة قام بنشر يونيو 16, 2018 تم النعديل على النتسيق الشرطي ليعمل خسب المطلوب مع زيادة عدد الاعمدة salim التعديل.xlsx 1 رابط هذا التعليق شارك More sharing options...
قلم-الاكسل(عبدالعزيز) قام بنشر يونيو 17, 2018 الكاتب مشاركة قام بنشر يونيو 17, 2018 بارك الله فيكما وعافاكما من كل شر جزاكم الله كل خير على المساعدة لم تقصرا في طرح الحلول والإثراء نجح كلا العملين بامتياز وهو فعلا المطلوب شكرا شكرا شكرا لكما الاستاذ المهندس ملك المعادلات بن علية والمهندس البارع سليم رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.