قائمه بارقام جميع الوان الاكسل في الفيجوال التي يحتاجها كل مبرمج في التصميم

[محمد القمجي]

بسم الله الرحمن الرحيم

السلام عليكم 

اساتذتي ومتابعي المنتدى الرائع 

اليكم هذه الهديه البسيطه

قائمة بارقام جميع الوان الاكسل في الفيجوال التي يحتاجها كل مبرمج في تصميم مشاريعه

حتى يتمكن من الوصول اليهن باقصى سرعه ممكنه

بامكان هذا الكتاب ان يكون مرجع لجميع المبرمجين ودمتم بخير 

انشره لان الدال على الخير كفاعله

لا تنسون ذكر الله

 

لا تنسون ذكر الله.pdf

[أبو محمد عباس]

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

الاخ العزيز محمد القمجي جزاكم الله خيرا

تقبل فائق احترامي وتقديري

[ياسر خليل أبو البراء]

بارك الله فيك أخي محمد وجزاكم الله خير الجزاء

[محمد لطفى]

السلام عليكم

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

[محمد القمجي]

ابو محمد عباس سلمة لمروك عزيزي

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

[محمد القمجي]

اﻻستاذ القدير والكبير والعمﻻق

يشرفني جدا مرورك على موضوعي المتواضع امام حضرتك يا استاذي

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

[محمد القمجي]

محمد لطفي

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

[محمد القمجي]

up

[محمود_الشريف]

أخى الكريم 

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

 

واثراء للموضوع يمكن من خلال كود اظهار جميع الألوان بأرقامها 

والكود يربط بزر داخل اى صفحة بملف العمل

ويقوم الكود بالتوضيح للون + الرقم 

الكود كالتالى

Sub MZM_colors56()
'57 colors, 0 to 56
Dim i As Long
Dim str0 As String, str As String
Cells(1, 1) = "Interior"
Cells(1, 2) = "Font"
Cells(1, 3) = "HTML"
Cells(1, 4) = "RED"
Cells(1, 5) = "GREEN"
Cells(1, 6) = "BLUE"
Cells(1, 7) = "COLOR"
For i = 0 To 56
Cells(i + 2, 1).Interior.ColorIndex = i
Cells(i + 2, 2).Font.ColorIndex = i
Cells(i + 2, 2).Value = "[Color " & i & "]"
str0 = Right("000000" & Hex(Cells(i + 2, 1).Interior.Color), 6)
'Excel shows nibbles in reverse order so make it as RGB
str = Right(str0, 2) & Mid(str0, 3, 2) & Left(str0, 2)
'generating 2 columns in the HTML table
Cells(i + 2, 3) = "#" & str
Cells(i + 2, 4).Formula = "=Hex2dec(""" & Right(str0, 2) & """)"
Cells(i + 2, 5).Formula = "=Hex2dec(""" & Mid(str0, 3, 2) & """)"
Cells(i + 2, 6).Formula = "=Hex2dec(""" & Left(str0, 2) & """)"
Cells(i + 2, 7) = "[Color " & i & "]"
Next i
End Sub

وتقبل منى وافر الاحترام والتقدير 

[Yasser Fathi Albanna]

بارك الله فيك أ / محمود الشريف

مرفق تطبيق للكود

تطبيق للكود.rar

[محمد القمجي]

مرورك اسعدني وشرفني استاذ محمود الشريف

نتمنى ان يستفاد من اعمالك جميع اﻻعضاء والزوار دمت بخير وسﻻمه

[محمد القمجي]

بارك الله فيك ياسر فتحي البنا يا معلم

[ياسر خليل أبو البراء]

بارك الله فيك اخي الغالي محمود الشريف

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

[محمود_الشريف]

أخى فى الله

الأستاذ // محمد القمجى 

بارك الله فيكم

 

والشكر موصول للمهندس // ياسر فتحى لإرفاقه نموذج عملى مطبق به الكود

 

أخى فى الله

الأستاذ القدير // ياسر خليل (( ابو البراء ))

بارك الله فيكم 

وما العبد لله إلا تلميذا بمنتديات أوفيسنا التعليمية 

فأنا أتعلم من دروسكم وشروحاتكم 

وتقبلوا منى وافر الاحترام والتقدير

[محمد القمجي]

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

حقيقه هذا الكنتدى يعلمنا حتى دروس في اﻻخﻻق شكرا لكم

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

لاثراء الموضوع 

موضوع جميل لمعلمنا الحبيب أ/ عبدالله باقشير (جزاه عنا جمعيا كل الخير )

يتناول فيه الالوان مع فورم جميل للانتقال الي اللون

(( ملف لحوالي 560 لون مع المعلومات (Hex Code , RGB , MSAccess))

 

وموضوع اخر رائع  لاخينا الحبيب / عبدالله باقشير

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

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

 

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

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

تقبلوا تحياتي جمعيا

[محمد القمجي]

يسعدني جدا ان يترك اﻻستاذ الكبير ضاحي الغريب بصمه كبيره في موضوعي البيسط ....

في الحقيقه هذا المنتدى ﻻ يختص فقط بتعليم اﻻوفس وانما بنشر تعاليم اﻻخﻻق التي يحث عليها نبينا فما اجمل هذا المنتدى وما اجمل اعضائه ومدرائه ...

شكرا لكم جميعا على خدمة اﻻنسان .....

[محمد 585]

جزاك الله خير

[محمد القمجي]

جزاك الله خير محمد

[محمد لطفى]

السلام عليكم

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

[ابو جودى]

السلام عليكم

هل يمكن اضافة الالوان فى المشاركة الاولى  لاوفيس 2003

و استخدامها فى اى ملف بدون برامج او اكواد

بمعنى تحديث الوان اوفيس 2003

[محمد القمجي]

اشكرك محمد لطفي جزاك الله خير الجزاء ايضا