مطلوب تلوين العمود الوسط وجمع الاعمدة بشرط

[قلم-الاكسل(عبدالعزيز)]

السلام عليكم

كل سنة ومدير الموقع والمشرفين والخبراء والاعضاء بصحة وعافية 

ودامت اعياكم مسرات 

هذا جدول مرفق

المطلوب مشروح فيه

تحديد العمود الوسط بلون برتقالي

هي 8 اعمدة لكن ليس كل مرة ان تكون الاعمدة مشغولة

العمود الاول والثاني والثالث يجب ان لا تكون فارغة

اما ما عداها من الاعمدة قد تكون فارغة وقد تكون مشغولة 

ان كانت الاعمدة مشغول من 1 حتى 8 فالوسط هو 8

وان كانت الاعمد من 1 حتى 7 فالوسط هو 4

وان كانت الاعمدة مشغول من 1 حتى 6 فالوسط 3

وان كانت الاعمدة مشغولة من 1 حتى 5 فالوسط هو 3

وان كانت الاعمدة مشغولة من 1 حتى 4 فالوسط هو 2

وان كانت مشغولة من 1 حتى 3 فالوسط هو 3

مشغولة مقصود بها اي فيها اعداد 

بعد ذلك مطلوب

جمع الاعمدة قيم الاعمدة من العمود الاول وحتى العمود المضلل باللون البرتقالي

(ملاحظة العمود المضلل يتغير حسب الاعمدة اذا كانت مشغولة ام لا حسب ما سبق في الاعلى)

 

المصنف1.xlsx

تم تعديل يونيو 14, 2018 بواسطه قلم-الاكسل(عبدالعزيز)
تعديل العنوان

[shreif mohamed]

وعليكم السلام

 

المصنف1(3).xlsm

[سليم حاصبيا]

جرب هذا الماكرو

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

[قلم-الاكسل(عبدالعزيز)]

الأخ الفاضل شريف 

العمل الذي قمت بعمله لم يعمل معي 

وحاولت بكل الطرق ان اجعله يعمل ولم يعمل

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

علما ان لدي اكسل 2016

الاخ سليم 

جزاك الله خيرا 

جاري تحريره بعض الشي للتعديل وساخبرك بالنتائج

[shreif mohamed]

يرجي اعادة تجربة الملف مره اخره

 

 

تظليل.xlsm

[قلم-الاكسل(عبدالعزيز)]

الاخ سليم عملك نجح فقط المشكل عند الجمع يظهر جمع الكل  

و المطلوب

هو الجمع من العمود الأول وحتى العمود المضلل 

==========

الاستاذ شريف 

الملف الثاني نفس الشي لم يكن عندي حظا لينجح العمل عليه

حتى عند الضغط على محرر الماكرو لم استطع فتحه 

شكرا عزيز وعيدك سعيد 

لا داعي لان تشغل نفسك مرة اخرى 

فربما لديك اشغال اكثر اهمية

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

 

[shreif mohamed]

تفضل الكود وقم باستدعائه كيفما شئت

 

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

[قلم-الاكسل(عبدالعزيز)]

هذا ملف الاخ سليم

فقط المطلوب فيه 

جمع الاعداد في الصف E14 بشرط ان يكون الجمع من العمود الأول وحتى العمود المظلل فقط

يعني لما يتغير العمود المظلل يتغير الجمع ايضا 

للتعديل.xlsm

[سليم حاصبيا]

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.xlsx

[سليم حاصبيا]

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

[بن علية حاجي]

السلام عليكم ورحمة الله

عيدكم مبارك وكل عام وأنتم بخير.. 

أخي سليم إن المعادلة التي وضعتُها تخص مجموع عمودين فقط (العمود المظلل والعمود الذي قبله) وقد نبهني أخي عبد العزيز أنه يريد مجموع كل الأعمدة بداية من العمود الأول إلى العمود المظلل (الملون)، حيث قمت بالتعديل على المعادلة بالشكل التالي: 

=SUM(OFFSET(Rng;;;;Col_X))
أو
=SUM(OFFSET(Rng,,,,Col_X))

بالنسبة للمعادلة التي اقترحتَها عليّ في ردك السابق فهي صحيحة غير أن تأكيدها كمعادلة صفيف (Ctrl+Alt+Enter) غير ضروري...

وقد تم التعديل على الملف في المرفقات لتمديد المعادلات عند إضافة أعمدة أخرى (حسب طلب أخي عبد العزيز)... 

حاجي بن علية

مطلوب التعديل.xlsx

[سليم حاصبيا]

تم النعديل على النتسيق الشرطي ليعمل خسب المطلوب مع زيادة عدد الاعمدة

 

salim التعديل.xlsx

[قلم-الاكسل(عبدالعزيز)]

بارك الله فيكما وعافاكما من كل شر 

جزاكم الله كل خير على المساعدة

 لم تقصرا في طرح الحلول والإثراء

نجح كلا العملين بامتياز وهو فعلا المطلوب

شكرا شكرا شكرا لكما الاستاذ المهندس ملك المعادلات بن علية والمهندس البارع سليم