هديتى مدونة_مينى كود_اسكتش_متجدد

[جلال الجمال_ابو أدهم]

اخى / مختار حسين محمود 

اخى / ياسر خليل 

اخى / احمد غانم 

شاكر مروركم الكريم _بارك الله فيكم
تحياتى لشخصكم الكريم
 

[جلال الجمال_ابو أدهم]

7 _ كود لتغيير خلفية ورقة العمل بلون المفضل للمستخدم و استخدامات اخرى

_ورقة تنفيذ الكود sheet1 و يمكن اضافة الكود بباقى اوراق العمل بنسخ زر الكود

7/1 _ كود يجعل خلفية ورقة العمل بالون الابيض النمطى
                                                              

 
Sub CommandButton2()
Range("A4 : L690").Interior.ColorIndex = 0
End Sub

_يمكن تغيير نطاق الخلايا بتعديل النطاق بالكود ("A4 : L690")

7/2_كود يجعل خلفية ورقة العمل او نطاق الخلايا بلون معين
 

Sub CommandButton1()
Range("A4 : L690").Interior.ColorIndex = 37
End Sub

_يمكن تغيير نطاق الخلايا بتعديل النطاق بالكود ("A4 : L690")
_يمكن  تغيير لون نطاق الخلايا بتعديل درجةاللون بالكود _37

7/3 _ كود متعدد الالوان يجعل خلفية ورقة العمل او نطاق الخلايا بلون متغيير

Sub CommandButton6()
Range("A4 : A690").Interior.ColorIndex = 36
Range("C4 : C690").Interior.ColorIndex = 8
Range("E4 : E690").Interior.ColorIndex = 37
Range("G4 : G690").Interior.ColorIndex = 12
Range("I4 : I690").Interior.ColorIndex = 14
Range("K4 : K690").Interior.ColorIndex = 15
End Sub

_يمكن تغيير نطاق الخلايا بتعديل النطاق بالكود ("A4 : L690") و تعديل عنوان العمود H_E_L الى اخره

_يمكن  تغيير لون نطاق الخلايا بتعديل درجة اللون بالكود _37_36_8_15_14 و يمكن ادماجه مع درجات الوان اخرى

 

مرفق التطبيق العملى

تحياتى و لا تنسونى من صالح الدعاء

كود لتغيير خلفية ورقة العمل بلون المفضل للمستخدم_G_adham.rar

[احمد غانم]

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

الأخ الكريم جلال الجمال - ابوادهم

 

السلام عليكم 

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

اعزائي ... ما تفضلتم بإضافته لا شك انه رائع و فيه من الإبداع و الجهد المشكور 

لكن يبدو ان ما اردته راجيا بعد اذنكم لم يكن واضحا ؟..

حيث انه اعجبني كود تلوين صف و عامود الخلية النشطة في المشاركة( رقم 22) واريد ان استمر بإستخدامه

و مشكلتة الوحيدة انه لا يسمح بتلوين الخلايا بألوان اخرى مختلفه.. كما في 

الملف المرفق و فيه كود الأخ الخالدي اكرمه الله ويلون الخلية النشطه فقط دون الصف و العامود

كما في الكود في المشاركة( رقم 22) هل يمكن الدمج بين الكودين 

 

اكرر شكري و دعائي بدوام التوفيق والنجاح

 

تلوين الخلية النشطة في كل الاوراق مع حفظ اللون السابق.rar

تم تعديل ديسمبر 25, 2014 بواسطه أحمــــد غانـــم

[احمد غانم]

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

الأخ الكريم جلال الجمال - ابوادهم

 

السلام عليكم 

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

اعزائي ... ما تفضلتم بإضافته لا شك انه رائع و فيه من الإبداع و الجهد المشكور 

لكن يبدو ان ما اردته راجيا بعد اذنكم لم يكن واضحا ؟..

حيث انه اعجبني كود تلوين صف و عامود الخلية النشطة في المشاركة( رقم 22) واريد ان استمر بإستخدامه

و مشكلتة الوحيدة انه لا يسمح بتلوين الخلايا بألوان اخرى مختلفه.. كما في 

الملف المرفق و فيه كود الأخ الخالدي(http://www.officena.net/ib/index.php?app=core&module=attach&section=attach&attach_id=85979)اكرمه الله ويلون الخلية النشطه فقط دون الصف و العامود

كما في الكود في المشاركة( رقم 22) هل يمكن الدمج بين الكودين 

 

اكرر شكري و دعائي بدوام التوفيق والنجاح

 

للـــــــــــــرفع

تم تعديل ديسمبر 26, 2014 بواسطه أحمــــد غانـــم

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

أخي الحبيب أحمد غانم

تفضل جرب الملف المرفق

[احمد غانم]

اخي الحبيب 

يعجز اللسان عن الشكر بما يليق 

هذا هو المطلوب 

اكرر شكري و دعائي بدوام التوفيق والنجاح            

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

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

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

[احمد غانم]

 

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

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

 

يا فرحة ما كملت  

عل كل حال مقبولة منك 

بإنتظار محاولتك لحل المشكله    

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

بعد إذن أخي الحبيب جلال ..

أنا حقيقة لا أحب اختلاط الموضوعات ، فكنت أفضل إذا كان لأحد طلب معين أو تعديل على ملف أن يكون في موضوع منفصل .. حتى يكون المنتدى أكثر ترتيبا وتنظيماً ، وأسهل في البحث عن موضوعات محددة

لذا أعتذر عن الإنخراط ها هنا في موضوع الأخ أحمد غانم

والأخ الحبيب أحمد أرجو ألا تسيء فهمي ..كل الحكاية إننا عايزين نتعلم تنظيم الموضوعات ، حتى لا تختلط الأمور ببعضها ..

عموما سأقوم بعمل موضوع جديد إن شاء الله الآن للأستاذ أحمد غانم .. لمتابعة موضوعه ..

تقبلوا تحياتي

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

أخي الحبيب تم الانتهاء بعون الله وتوفيقه ، والرابط ها هنا

http://www.officena.net/ib/index.php?showtopic=57813

[جلال الجمال_ابو أدهم]

استاذنا / ياسر خليل 

استاذ / احمد غانم _ يرجى مراجعة المشاركة استاذ / ياسر خليل 35 

بارك الله فيكم و كل عام و انتم بخير

[جلال الجمال_ابو أدهم]

8 _ كود لتغيير خلفية ورقة العمل بلون المفضل للمستخدم بالرجوع لقيمة الخلية_A1
 

(Private Sub Worksheet_SelectionChange(ByVal Target As Range
Cells.Interior.ColorIndex = xlNone
("Cells.Interior.ColorIndex = Range("A1
Target.Interior.ColorIndex = 37
End Sub

_ورقة تنفيذ الكود sheet1
_يمكن  تغيير لون الخلية النشطة بتعديل درجة اللون بالكود _37 
 

كود تلوين ورقة العمل بناء على رقم خليةA1_ Gadham.rar

[جلال الجمال_ابو أدهم]

9 _ كود تظليل سطر الخلية النشطة بلون معين فى نطاق معين للخلايا

 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("a7:T10000")) Is Nothing Then
If Target.Cells.Count > 1 Then Exit Sub

 If Application.CountA(Range(Cells(Target.Row, 2), Cells(Target.Row, 20))) = 2 Then
Range("a7:T10000").Interior.ColorIndex = 2
Range("a7:T10000").Font.ColorIndex = 49
Exit Sub
End If
If Target.Cells.Count > 1 Then Exit Sub
Range("a7:T10000").Interior.ColorIndex = 2
Range("a7:T10000").Font.ColorIndex = 49
Range(Cells(Target.Row, 1), Cells(Target.Row, 20)).Interior.ColorIndex = 41
Range(Cells(Target.Row, 1), Cells(Target.Row, 20)).Font.ColorIndex = 2

 End If
End Sub

_ورقة تنفيذ الكود sheet1
_نطاق الخلايا من a7:T10000 و حتى عمود 20 و يمكن تعديل النطاق حسب ما يريد المستخدم
_يمكن  تغيير لون تظليل سطر الخلية النشطة بتعديل درجة اللون بالكود _41
_يمكن تغيير لون خلفية نطاق الخلايا من خلال تغيير درجة لونها _Range("a7:T10000").Interior.ColorIndex = 2

 

تلوين سطر الخلية النشطة فى نطاق خلايا محددة_Gadham.rar

[جلال الجمال_ابو أدهم]

10 _ كود يقوم بعمل خلفية الوان و الخط لورقة العمل بطريقة عشوائية

 

Sub D()
Randomize Timer
Dim i, j, k As Integer
i = Int(255 * Rnd) + 1
j = Int(255 * Rnd) + 1
k = Int(255 * Rnd) + 1
Range("A4 : L690").Font.Color = RGB(i, j, k)
Range("A4 : L690").Interior.Color = RGB(j, k, i)
End Sub

_ورقة تنفيذ الكود sheet1
_نطاق الخلايا من a4:L690 و يمكن تغيير نطاق الخلايا حسب ما يريده المستخدم

مرفق التطبيق العملى

تحياتى و لا تنسونى من صالح الدعاء

خلفية ملونة بطريقة عشوائية_Gadham.rar

[جلال الجمال_ابو أدهم]

11 _ كود يساعد المستخدم على تحديد لون الخلفية المطلوبه لورقة العمل عند استخدامه لاكواد اخرى 

       فمثلا فى المشاركات السابقة اذا كنت تريد اختيار خلفية بلون معين و لكل لون له رقم بالكود _ من رقم 1 : 56
      فيمكن من هنا  _ قم بتحديد اللون المفضل لك و احفظ رقمه
     قم بكتابة رقم الخلفية المفضلة بمكانها بالمشاركات السابقة

Sub sbPrintColorIndexColors()
Dim iCntr

For iCntr = 1 To 56
    Cells(iCntr, 1).Interior.ColorIndex = iCntr
    Cells(iCntr, 1) = iCntr
Next iCntr

End Sub

_ورقة تنفيذ الكود sheet1

_فمثلا درجة الخلفية الرمادى الفاتح _ يكتب بالكود رقم 15
 و اللون الازرق 41 و هكذا

مرفق التطبيق العملى

تحياتى و لا تنسونى من صالح الدعاء

كود لدرجات الوان الخلفية_ Gadham.rar

[جلال الجمال_ابو أدهم]

UP

[محي الدين ابو البشر]

10 دقائق مضت, جلال الجمال_ابو أدهم said:

UP

 

محفظة اكواد.rar