اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search
قلم-الاكسل(عبدالعزيز)

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

Recommended Posts

السلام عليكم

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

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

هذا جدول مرفق

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

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

هي 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 اعضاء متواجدين الان

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

×
×
  • اضف...