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

[saad abed]

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

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

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

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

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

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

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

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

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

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

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

الى اللقاء

سعد عابد

الالوان.rar

[عبدالله المجرب]

السلام عليكم

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

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

#NAME?

والله اعلم

تم تعديل أكتوبر 22, 2011 بواسطه عبدالله المجرب

[احمدزمان]

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

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

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

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

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

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

[عبدالله المجرب]

السلام عليكم

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

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

#NAME?

والله اعلم

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

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

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

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

ابواحمد

[الحسامي]

السلام عليكم

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

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

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

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

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

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

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

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

تم تعديل أكتوبر 22, 2011 بواسطه الحسامي

[saad abed]

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

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

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

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

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

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

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

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

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

سعد عابد

[saad abed]

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

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

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

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

ابواحمد

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

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

سعد عابد

[saad abed]

السلام عليكم

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

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

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

اخى الحسامى

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

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

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

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

اخوك

سعد عابد

[الحسامي]

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

[ياسر الحافظ]

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

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

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

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

وفقك الله

ابو الحارث

تم تعديل أكتوبر 22, 2011 بواسطه ياسر الحافظ

[saad abed]

استاذى الحسامى

اشكرك على التعديل

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

دمتم بخير

سعد عابد

[saad abed]

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

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

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

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

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

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

تحياتى

سعد عابد

[الـعيدروس]

سلمت الانامل التي خطت هذه المشاركة

الاخ الاستاذ سعد عابد لك من كل الحب والتقدير

تقبل مروري

[saad abed]

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

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

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

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

تحياتى

سعد عابد

[دغيدى]

حبيبى / سعد عــــابد

حضرت الفرح متأخرا .. حضرت لأشارك العمالقة وهم حولك

بارك الله فيك

*********

جمال دغيدى

[saad abed]

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

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

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

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

تحياتى

سعد عابد

[ضاحي الغريب]

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

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

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

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

تقبل تحياتي

[saad abed]

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

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

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

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

تقبل تحياتي

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

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

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

سعد عابد