تغيير لون عدة خلايا بمجرد تغير لون خلية واحدة

[أبوحازم]

ممكن عندما أقوم بتغير الخلية تتغير مجموعة من الخلايا معينة والمرفق موضح

اللون.rar

[بن علية حاجي]

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

 

أخي الكريم يمكن استعمال الكود التالي في حدث الورقة :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    [Plage].Interior.Color = [B2].Interior.Color
End Sub

ألق نظرة على المرفق...

 

أخوك بن علية

 

المرفق : اللون.rar

تم تعديل يوليو 19, 2014 بواسطه بن علية حاجي

[سليم حاصبيا]

السلام عليكم

الحل مرفق

يمكنك تغيير عناوين الخلايا المعنية من خلال الكود

 

كما يمكنك التنسيق من خلال ما يلي

1-حدد الخلية المصدر

2 نسخ Ctrl+c

3 حدد الخلايا الهدف (الضغط باسترار على Ctrl  مع كليك يسار)

4 كليك يمين

5 اختر past special

6 اختر formats

7 OK

تنسيق حسب خلية.rar

[أبوحازم]

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

 

أخي الكريم يمكن استعمال الكود التالي في حدث الورقة :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    [Plage].Interior.Color = [B2].Interior.Color
End Sub

ألق نظرة على المرفق...

 

أخوك بن علية

 

المرفق : اللون.rar

ولو كان الخلية الرئيسية في ورقة أخرى كيف بكون الكود وشكرا جزيلا

[أبوحازم]

كيف عمل هذا الكود أو شرح

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    [Plage].Interior.Color = [B2].Interior.Color
End Sub

[بن علية حاجي]

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

 

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

 

أخي الكريم يمكن استعمال الكود التالي في حدث الورقة :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    [Plage].Interior.Color = [B2].Interior.Color
End Sub

ألق نظرة على المرفق...

 

أخوك بن علية

 

المرفق : اللون.rar

ولو كان الخلية الرئيسية في ورقة أخرى كيف بكون الكود وشكرا جزيلا

 

الأمر سهل، إذا كانت الخلية الرئيسية في ورقة أخرى، يكفي إضافة قبل [b2] اسم الشيت المعني باستعمال العبارة .("WorkSheets("Sheet2 أو .Sheet2 فيكتب الجزء من الكود :

[Plage].Interior.Color = [B2].Interior.Color

على الشكل :

[Plage].Interior.Color = WorkSheets("Sheet1").[B2].Interior.Color

أو على الشكل :

[Plage].Interior.Color = Sheet1.[B2].Interior.Color

أرجو أني وفقت في الإجابة

 

ملاحظة : التسمية Plage هي تسمية لنطاق كل الخلايا التي نريد تلوينها

 

أخوك بن علية

[أبوحازم]

شكرا جزيلا جدا يا بن علية حاجي هذا عمل مبدع صراحة . ولكن إذا أرت أكثر من نطاق مثلا Plage وغير مثل ddd مثلا كيف بيكون الربط في الكود هل بيكون [ddd"Plage].InPlageterior.Color = [b2].Interior.Color]

[بن علية حاجي]

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

شكرا جزيلا جدا يا بن علية حاجي هذا عمل مبدع صراحة . ولكن إذا أرت أكثر من نطاق مثلا Plage وغير مثل ddd مثلا كيف بيكون الربط في الكود هل بيكون [ddd"Plage].InPlageterior.Color = [b2].Interior.Color]

أخي الكريم أبو حازم، يمكن ضم هذا النطاق إلى التسمية Plage وترك الكود كما هو أو يمكن إضافة هذا النطاق إلى الكود فيكون الجزء من الكود كما يلي :

    Range("Plage,ddd").Interior.Color = [B2].Interior.Color

والله أعلى وأعلم

 

أخوك بن علية

[أبوحازم]

كل شئ تمام الان .  غير هناك مشكلة في تلوين صفحتان لم تعمل  لا أعرف لماذا وهذا هو المرفق

اللون 1.rar

تم تعديل يوليو 20, 2014 بواسطه أبوحازم

[عبدالله باقشير]

السلام عليكم

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Range("yyy").Interior.Color = [B2].Interior.Color
    ورقة2.Range("RRR").Interior.Color = [B2].Interior.Color
End Sub

تحياتي

[أبوحازم]

الرجاء تطبيقها على المصنف المرفق

[أبوحازم]

شكرا جزيلا أشتغلت وجزاكم الله خير