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

تغيير الألوان في الفيجول بيسك الى ألوان أخرى


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

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

والله أني أشتقت لكم في هذه الغيبة الطويلة ولكن بسبب الظروف القاهرة والصعبة التي نمر بها

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

العالمية المعروفة باسم (Hex)

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

لإنه عندما أقوم بنسخ كود ما من صفحة الويب الى خصائص اللون الموجودة في الفيجول بيسك يعطيني قيمة خاطئة

فهل يوجد طريقة أو كود بحيث يتعرف الفيجول بيسك على كودات ألوان جديدة غير موجودة لديه

أخوكم

أنس دروبي

Change Color.rar

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

اخي انس

جرب هذا اكود

راح يعطيك هذه الالوان


Private Sub CommandButton1_Click()

For E = 1 To 255

Range("A" & E).Interior.ColorIndex = Int(Rnd * 56) + 1

Next E

End Sub

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

السلام عليكم

الله يجزيك الخير أخي عبد الله

ولكن كان القصد هو ليس إظهار الألوان في الشيت وإنما نسخ كود اللون الموجود في صفحة الويب ووضع الكود في خصائص اللون للزر في اليوزرفورم بحيث أستطيع أن أقوم بتغيير لون الزر عن الألوان الرئيسية الموجودة في الفيجول البيسك

إن شاء الله أكون قد أوضحت الفكرة

والسلام عليكم

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

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

أخي أبو نصار والله اشتقت لإبداعاتك وأفكارك الجميلة

أخي قد أقتربت من المطلوب ولكن لوسمحت شاهد الملف المرفق

والسلام عليكم

أنس دروبي

Change Color.rar

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

السلام عليكم

جمعة مباركة

نسخنا ورقة الويب الى الملف

وعملنا جدول منها

لاستخدامه في فورم لاظهار الالوان

شاهد المرفق

2003-2007

الوان الويب.rar

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

السلام عليكم

جزاك الله خير أستاذ عبدالله فكرة جميلة جدا

الاخ الفاضل Creation World

جرب المرفق

حسب فكرتك بالرقم الموجود في خلية H4

Change Color_ALI1.rar

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

ما شاء الله

بارك الله لكم جميعاً إخوتي

وبعد إذن أخي ابا نصار

وأخواي عبد الله

تفضل أخي الكريم Creation World

أتمنى أن يكون هذا ما تريد

mas_ChangeHexColor2Rgb.rar

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

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

أعتذر عن التأخير في الرد

بالنسبة لملف أخي وأستاذي أبو نصار أعطى المطلوب ولكن الكود صعب بعض الشيء وأنا علمي متواضع في لغة VBA فقد قارنته مع ملف الأستاذ محمد صالح ووجدت أن طريقته سهلة وبسيطة جداً لإنه قام بتحويل الصيغ(R,G,B) الى كودات (hex) وهذه سهولة الكود

*********************************************

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

وعلى كل حال الله يجزيكم الخير جميعاً على حلولكم وأبداعتكم التى لاتنتهي في هذا الصرح الكريم والمميز

وبانتظار حلول أخرى أسهل لإغراء الموضوع ومشاهدته من قبل الزوار

وفي الختام السلام عليكم

أخوكم

أنس دروبي

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

من فضلكم

أنا كل ما أحمل أى ملفVB6 من الملفات اللى حضراتكم أرفقتوها عن أكواد الألوان ما بلاقيش فيه أى بيانات_ فتحت ال XHelp system وو جدت ماسيج فحواها The MSDN

collection does not exist. Please reinstall MSDN برجاء إفادتى ماذا أفعل ولكم جزيل الشكر

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

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

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

لكي تحلها يجب عليك حذف النسخة ومن ثم تنزيلها من جديد

وإذا لم تنجح الطريقة يوجد طريقة أخرى لحلها

والسلام عليكم

أخوكم

أنس دروبي

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

  • 9 months later...

السلام عليكم

الاستاذ القدير الكبير الرائع الجميل */ عبد الله باقشير

روووووووووووووووووووووووووووووووعــــــــــــــــــــــــــة

حضرتك والاستاذ الكبير */ ابونصار

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

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

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

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



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information