اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

قام بنشر

السلام عليكم يا جماعة الخير

مرفق شيت اذا كان يوجد طريقة لجمع الملون فقط هل هذاممكن

مرفق مثال فقط يوجد عندى شيت يحتوى على اكتر من 500 خلية

فهل هذا ممكن

test colour.rar

قام بنشر

اخي احمد هذا كود من احد المواقع الأجنبية

 [b]Function ColorFunction(rColor As Range, rRange As Range, Optional SUM As Boolean)[/b]


	Dim rCell As Range


	Dim lCol As Long


	Dim vResult




''''''''''''''''''''''''''''''''''''''


'Written by Ozgrid Business Applications


'www.ozgrid.com




'Sums or counts cells based on a specified fill color.


'''''''''''''''''''''''''''''''''''''''




	lCol = rColor.Interior.ColorIndex




	If SUM = True Then


		For Each rCell In rRange


			If rCell.Interior.ColorIndex = lCol Then


				vResult = WorksheetFunction.SUM(rCell,vResult)


			End If


		Next rCell


	Else


		For Each rCell In rRange


			If rCell.Interior.ColorIndex = lCol Then


				vResult = 1 + vResult


			End If


		Next rCell


	End If




   ColorFunction = vResult


[b]End Function[/b]

و هذا هو رابط الموضوع الأصلي

http://www.ozgrid.com/VBA/sum-count-cells-by-color.htm

قام بنشر

السلام عليكم

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

وكنت داخل المنتدى لوضعة لافادة الاعضاء كل سنة وانتم طيببين يا اخى الكريم

قام بنشر

طبعا مشكورين

ولكن لي اقتراح

على أي أساس يكون التلوين؟

ونستعمل sumif

بمعنى أننا نلون مثلا القيم أكبر من 100 مثلا

نستعمل الدالة sumif بنفس الشرط

والله أعلم

  • Like 1

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

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

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

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

Important Information