سبلة عمان - خدمة في الأكسل

سبلة عمان (https://www.s-oman.net/avb/index.php)

- سبلة الشروحات والدروس (https://www.s-oman.net/avb/forumdisplay.php?f=55)

- - خدمة في الأكسل (https://www.s-oman.net/avb/showthread.php?t=1050925)

خدمة في الأكسل

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

اسعد الله اوقاتكم بكل خير اخوتي ...

عندي استفسار في الأكسل ..

يوجد لدي جدول وفيه مجموعة من الأرقام ... وكل مجموعة من الخلايا التي فيها ارقام لها لون معين .. هل فيه إمكانية ان الجهاز يحسب لي مجموع الاعداد التي في كل الخلايا التي تتكون من لون معين .. يعني الخلايا الزرقاء كم يكون مجموع الاعداد التي فيها ... واللون الأحمر كذلك ..

ارجو منكم التكرم بموافاتي بذلك ولكم مني فائق الشكر والتقدير

نعم بأمكانك

عند خانه المجموع اكتب
=
ثم sum ثم افتح قوس وحدد ب ماوس الخلايا الي تريدها تنجمع في العمود ذاته

ثم اغلق القوس واضغط enter

اشكرك اختي حروف ماجنة على الرد ..

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

حدد الخليه الي تريدها ثم عمليه الجمع + ثم الخليه الي تريدها وهكذا

لا اعلم ان كانت توجد طريقه اخرى او لا :)

طريقة عن طريق برمجة الاكسل

مساء الخير

الطريقة التالية جربتها بنفسي بس تحتاج الى تتبع الخطوات التالية:

هذا عبارة عن كود للغة مستخدمة في اضافة اشياء غير موجودة في الاكسل اسمها VBA

انسخ الكود التالي

Public Function sumcolor()
Dim referenceColor As Range
Dim selection As Range
Dim resultedColor As String
Dim sum As Double
Set referenceColor = Application.InputBox("select a cell with a reference color", Type:=8)
resultedColor = "" & referenceColor.Interior.color
Set selection = Application.InputBox("select a range of cells to get the sum", Type:=8)
For Each rf In selection
If rf.Interior.color = referenceColor.Interior.color Then
sum = sum + rf.Value
End If
Next
sumcolor = sum
End Function

ومن ثم الذهاب الى الاكسل وتتبع الخطوات التالية :
1- اذهب الى الصفحة الرئيسية وحاول الوصول الى شريحة developer اذا كنت تستخدم اوفيس 2007. اذا لم تكن ظاهره سأشرح في الاسفل كيف تظهرها.
2-في قسم Controls اضغط على view code فتظهر لك صفحة جديدة عبارة عن بيئة لبرمجة VBA
3- اذهب الى insert و اختر module فتظهر لك صفحة اخرى. الصق الكود المكتوب في الاعلى ومن ثم احفظ الملف.
4 الان اذهب الى صفحة الاكسل و اكتب التالي في خانة فارغه.
واكتب = ومن اثم اسم الفنكشن ()sumcolor
ومن ثم اضغط enter سيقوم الاكسل بتشغيل الكود ’ فيطلب منك اولا باختيار خانه به اللون الذي تريد حسابه, وبعد ذلك سيطلب منك تحديد الخانات التي تريد جمع البيانات منها.
سيظهر لك الناتج تلقائيا.

خطوات اظهار شريحة developer:
اذهب الى home واختر excel options ومن القائمة اختر popular وتأكد من ان اختيار التالي show developer tab in the ribbon

لم اقدر على رفع الملف لان الامتداد غير مسموح به.

تم ارشفت الملف وتم الرفع في المرفقات