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

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

قام بنشر

احبتي احتاج مساعدة لدي بيانات مواد وأنصبة وارغب في تلوين مواد كل معلم بلون مختلف واحتاج أن يظهر مجموع نصاب المعلم أمامه بناءً على لونه الخاص وشكرا

محاولة.rar

قام بنشر

السلام عليكم

أخي الكريم سمارا

ماذا تعني الأرقام داخل الجدول

مثلا

المادة الأول الثاني الثالث الرابع الخامس السادس

القرآن الكريم 7 7 7 6 3 3

يعني المعلم رقم 7 ، 7 ، 7 ، 6 ، 3 ، 3

أم رقم الفصل

أم ماذا

وأين أجد مايدل علي المعلم أحمد مثلا ذو اللون الأحمر؟

أخي أيسم

مرفق بتنسيق 2003 لعلك تري مالم أراه

محاولة.rar

قام بنشر

اشكر للجميع محاولة مساعدتي

اخي أيسم إبراهيم هذا ما أردته ولك جزيل الشكر لكن حبذا لو شرحت لي ما عملته لكي استطيع تطبيقة على الاصل لدي وشكرا

قام بنشر

السلام عليكم

أخي الكريم

أولا : هناك كود ( منقول عن أحد العمالقة )لابد أن تنقله لملفك( ادرج موديول جديد ثم نسخ و لصق )

ثانيا: انقل المعادلات التي أسفل كل عمود من أعمدة المواد التي تقوم بجمع الأرقام التي داخل الألوان المحددة أمام كل مدرس

ثالثا: أمام كل مدرس هناك معادلة جمع SUM

هذا كل ما في الموضوع

دمت بخير

أيسم إبراهيم

قام بنشر

السلام عليكم

أخي الكريم

أولا : هناك كود ( منقول عن أحد العمالقة )لابد أن تنقله لملفك( ادرج موديول جديد ثم نسخ و لصق )

لم استطع اخلراج الكود لاني مبتدأ يا ليت لو تضع الكود هنا لكي اضيفه للموديول.

ثانيا: انقل المعادلات التي أسفل كل عمود من أعمدة المواد التي تقوم بجمع الأرقام التي داخل الألوان المحددة أمام كل مدرس

اعتقد اني فهمت هذي النقطة.

ثالثا: أمام كل مدرس هناك معادلة جمع SUM

اعتقد اني فهمت هذي النقطة.

هذا كل ما في الموضوع

دمت بخير

أيسم إبراهيم

واعتذر لإزعاجك وكثرة السؤال

قام بنشر

السلام عليكم

الأخ الكريم

في ملفك اضغط Alt + F11

سيظهر محرر الفيجوال بيسك

اضغط زر إدراج ... موديول جديد

Insert >> Module

ثم اسخ والصق الكود التالي

Function ColorFunction(rColor As Range, rRange As Range, Optional SUM As Boolean)

	Dim rCell As Range

	Dim lCol As Long

	Dim vResult

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

'Written by Ozgrid Business Applications

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

	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

End Function

قام بنشر

اعتذر لعدم فهمي وقلة خبرتي

واتمنى اضافة المعادلة للاسماء التي اضفتها لك

واكرر اعتذاري

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