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

طلب مساعدة في معادلة او دالة


smara99

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

السلام عليكم

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

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

مثلا

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

القرآن الكريم 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