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

دالة لمعرفة الالوان ( رقمه واسمه )منقول


saad abed

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

الساده الاعضاء

هذا الشهر هو شهر الدوال المستحدثه بايدى عربية والمنقوله ايضا

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

او فى فهم اكواد يكتبها الاساتذه فى هذا المنتدى

واليوم اتيت لكم بداله

ColorName معرفة اسم اللون

معرفة رقم اللون GetColorIndex

اتمنى ان تكون مفيده لحضراتكم

غدا دالة الخطوط

غدا دالة تنسيق التواريخ

غدا...........

الى اللقاء

سعد عابد

الالوان.rar

رابط هذا التعليق
شارك

السلام عليكم

اخي سعد نشاط ملحوظ ومواضيع مميزة

لكن للاسف كان ناتج الدالتين


#NAME?

والله اعلم

تم تعديل بواسطه عبدالله المجرب
رابط هذا التعليق
شارك

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

اخي الفاضل الكريم سعد عابد

جزاك الله كل خير

يعني ممكن نعتبرها دوال سعد المستحدثة

ونقول كل يوم دالة مستحدثة جديدة

مع التحية و التقدير

رابط هذا التعليق
شارك

السلام عليكم

اخي سعد نشاط ملحوظ ومواضيع مميزة

لكن للاسف كان ناتج الدالتين


#NAME?

والله اعلم

انا اسف اخي سعد .

امان الميكرو كان مرتفع

دوال جميلة ويمكن الاستعانه بها في كتابة رمز اللون في الكود

ونحن بانتظار المزيد

ابواحمد

رابط هذا التعليق
شارك

السلام عليكم

اخي سعد كم انا سعيد للرد عليك

بارك الله فيك على النشلط الملحوظ لديك

وابداعك وامانتك العلمية المتميزة

--------------------------------

وللفائدة : واذا سمحت لي

يبدو ان الدالة كانت عبارة عن جزئية لدالة تتعلق بالتنسيق الشرطي بالاضافة لمعرفة نوع ورقم اللون

وبالتالي يمكننا ازالة البنود الاضافية في الدالة بحيث تصبح كالتالي :

المشاركة رقم 9

تم تعديل بواسطه الحسامي
رابط هذا التعليق
شارك

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

اخي الفاضل الكريم سعد عابد

جزاك الله كل خير

يعني ممكن نعتبرها دوال سعد المستحدثة

ونقول كل يوم دالة مستحدثة جديدة

مع التحية و التقدير

اخى وحبيبى خفيف الدم احمد يعقوب (ابوابراهيم)

جزاك الله خيرا وبارك فيك

خليك فاكر انا قلت منقولللللللللللللللللللللللللللللللللللللللللللللللللللللللللللل

سعد عابد

رابط هذا التعليق
شارك

انا اسف اخي سعد .

امان الميكرو كان مرتفع

دوال جميلة ويمكن الاستعانه بها في كتابة رمز اللون في الكود

ونحن بانتظار المزيد

ابواحمد

اخى عبدالله المجرب

كويس انها اشتغلت معاك والا كنت خليت الحسامى او عبدالله المجرب عدلها لك

سعد عابد

رابط هذا التعليق
شارك

السلام عليكم

اخي سعد كم انا سعيد للرد عليك

بارك الله فيك على النشلط الملحوظ لديك

وابداعك وامانتك العلمية المتميزة

اخى الحسامى

انت اللى سعيد امال انا هعمل اية لما انت ترد على

جزاك الله خيرا

مرورك شرف كبير

وما جعلنى اخرج بهذه الدوال الا لاقوال تعبنا من كلمة منقول

اخوك

سعد عابد

رابط هذا التعليق
شارك


Function GetColorIndex(TargetCell As Range)

On Error Resume Next

Application.Volatile

GetColorIndex = TargetCell.Interior.ColorIndex

End Function


Function ColorName(TargetCell As Range)

On Error Resume Next

Application.Volatile

Dim ColIndex As Variant

ColName = Array("", "Black", "White", "Red", "Bright Green", "Blue", "Yellow", "Pink", "Turquoise", _

"Dark Red", "Green", "Dark Blue", "Dark Yellow", "Violet", "Teal", "Gray-25%", "Gray-50%", "Periwinkle", _

"Plum", "Ivory", "Light Turquoise", "Dark Purple", "Coral", "Ocean Blue", "Ice Blue", "Dark Blue", "Pink", _

"Yellow", "Turquoise", "Violet", "Dark Red", "Green", "Blue", "Sky Blue", "Light Turquoise", "Light Green", _

"Light Yellow", "Pale Blue", "Rose", "Lavender", "Tan", "Light Blue", "Aqua", "Lime", "Gold", "Light Orange", _

"Orange", "Blue-Gray", "Gray-40%", "Dark Teal", "Sea Green", "Dark Green", "Olive Green", "Brown", _

"Plum", "Indigo", "Gray-80%")

ColorName = ColName(TargetCell.Interior.ColorIndex)

End Function

رابط هذا التعليق
شارك

جزاك الله كل الخير اخي الغالي " ســــــــــــــــــــعد عابد "

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

تشكر ... عمل يستحق التقدير

والشكر وموصول لاستاذنا المبدع " الحســــــــــــــــــــامي " جزاه الله كل الخير

وفقك الله

ابو الحارث

تم تعديل بواسطه ياسر الحافظ
رابط هذا التعليق
شارك

الاستاذ الفاضل والاخ الحنون ابوالحارث

تصدق انى مهمل جدا فى حق من احبهم

الدليل على ذلك انى لم اطلب اميلك حت الان

يعلم الله انك من الناس اللى انا بحبهم جدا فى المنتدى

الارواح جنود مجنده ما تعارف منها ائتلف وما تنافر منها اختلف

وروحى الفت روحك ويعلم الله

تحياتى

سعد عابد

رابط هذا التعليق
شارك

استاذى ابو نصار

هتصدقنى كنت منتظر دخولك وتعليقك لانى احبك فى الله

وربما يا اخى انت تعلم ذلك

مرورك شرف كبير

تحياتى

سعد عابد

رابط هذا التعليق
شارك

اخى الاكبر وعميدنا م/ جمال دغيدى

تشريفكم ومروركم مهم جدا بالنسبة لى

لان قدركم عالى ومقامكم غالى

ليت شعرى ولسانى يطاوعنى فى التعبير

تحياتى

سعد عابد

رابط هذا التعليق
شارك

اخي العزيز المبدع / سعد عابد

الكلمات تعجز احيانا لوصف شعور ما

تقبل مني كل الاحترام والتقدير اعمالك تشهدلك

جزاك الله كل خير

تقبل تحياتي

رابط هذا التعليق
شارك

اخي العزيز المبدع / سعد عابد

الكلمات تعجز احيانا لوصف شعور ما

تقبل مني كل الاحترام والتقدير اعمالك تشهدلك

جزاك الله كل خير

تقبل تحياتي

اخى ضاحى الغريب

والله انا اللى عجزت عن الرد

جزاك الله خيرا

سعد عابد

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
×
×
  • اضف...

Important Information