اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

السلام عليكم

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

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

هذا جدول مرفق

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

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

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

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

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

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

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

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

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

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

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

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

بعد ذلك مطلوب

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

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

 

المصنف1.xlsx

تم تعديل بواسطه قلم-الاكسل(عبدالعزيز)
تعديل العنوان
رابط هذا التعليق
شارك

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

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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

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

الاخ سليم 

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

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

رابط هذا التعليق
شارك

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

و المطلوب

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

==========

الاستاذ شريف 

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

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

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

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

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

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

 

رابط هذا التعليق
شارك

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


 


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

 

تم تعديل بواسطه shreif mohamed
  • Like 1
رابط هذا التعليق
شارك

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

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

جمع الاعداد في الصف 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

 

  • Like 1
  • Thanks 1
رابط هذا التعليق
شارك

بارك الله فيك استانا الغالي وكل سنة وانتي مبارك وعيدك مبارك وايامك مباركه وانتي بخير وصح وسلامة

نجح الكود 

مشكور جزيلا الله يلبسك تاج الصحة الى الابد 

والشكر موصول لاستاذي شريف بارك الله فيه وفي علمه وزادكما من واسع فضله

  • Like 1
رابط هذا التعليق
شارك

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

تقبل الله منا ومنكم الصلاة والصيام والقيام وكل أعمال الخير... عيدكم مبارك وكل عام وأنتم بخير...

تم عمل المطلوب بالمعادلات وبالاستعانة بالتسميات والتنسيقات الشرطية (للتلوين)... أرجو أن تفي الغرض المطلوب.

حاجي بن علية

المصنف1.xlsx

  • Like 1
  • Thanks 1
رابط هذا التعليق
شارك

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

  • Like 1
  • Thanks 1
رابط هذا التعليق
شارك

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

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

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

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

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

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

حاجي بن علية

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

  • Like 1
  • Thanks 1
رابط هذا التعليق
شارك

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

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

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

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

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

 

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information