أبوحازم قام بنشر يوليو 19, 2014 قام بنشر يوليو 19, 2014 ممكن عندما أقوم بتغير الخلية تتغير مجموعة من الخلايا معينة والمرفق موضح اللون.rar
بن علية حاجي قام بنشر يوليو 19, 2014 قام بنشر يوليو 19, 2014 (معدل) السلام عليكم ورحمة الله أخي الكريم يمكن استعمال الكود التالي في حدث الورقة : Private Sub Worksheet_SelectionChange(ByVal Target As Range) [Plage].Interior.Color = [B2].Interior.Color End Sub ألق نظرة على المرفق... أخوك بن علية المرفق : اللون.rar تم تعديل يوليو 19, 2014 بواسطه بن علية حاجي 2
سليم حاصبيا قام بنشر يوليو 19, 2014 قام بنشر يوليو 19, 2014 السلام عليكم الحل مرفق يمكنك تغيير عناوين الخلايا المعنية من خلال الكود كما يمكنك التنسيق من خلال ما يلي 1-حدد الخلية المصدر 2 نسخ Ctrl+c 3 حدد الخلايا الهدف (الضغط باسترار على Ctrl مع كليك يسار) 4 كليك يمين 5 اختر past special 6 اختر formats 7 OK تنسيق حسب خلية.rar
أبوحازم قام بنشر يوليو 19, 2014 الكاتب قام بنشر يوليو 19, 2014 السلام عليكم ورحمة الله أخي الكريم يمكن استعمال الكود التالي في حدث الورقة : Private Sub Worksheet_SelectionChange(ByVal Target As Range) [Plage].Interior.Color = [B2].Interior.Color End Sub ألق نظرة على المرفق... أخوك بن علية المرفق : اللون.rar ولو كان الخلية الرئيسية في ورقة أخرى كيف بكون الكود وشكرا جزيلا
أبوحازم قام بنشر يوليو 19, 2014 الكاتب قام بنشر يوليو 19, 2014 كيف عمل هذا الكود أو شرح Private Sub Worksheet_SelectionChange(ByVal Target As Range) [Plage].Interior.Color = [B2].Interior.ColorEnd Sub
بن علية حاجي قام بنشر يوليو 19, 2014 قام بنشر يوليو 19, 2014 السلام عليكم ورحمة الله السلام عليكم ورحمة الله أخي الكريم يمكن استعمال الكود التالي في حدث الورقة : 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 هي تسمية لنطاق كل الخلايا التي نريد تلوينها أخوك بن علية
أبوحازم قام بنشر يوليو 20, 2014 الكاتب قام بنشر يوليو 20, 2014 شكرا جزيلا جدا يا بن علية حاجي هذا عمل مبدع صراحة . ولكن إذا أرت أكثر من نطاق مثلا Plage وغير مثل ddd مثلا كيف بيكون الربط في الكود هل بيكون [ddd"Plage].InPlageterior.Color = [b2].Interior.Color]
بن علية حاجي قام بنشر يوليو 20, 2014 قام بنشر يوليو 20, 2014 السلام عليكم ورحمة الله شكرا جزيلا جدا يا بن علية حاجي هذا عمل مبدع صراحة . ولكن إذا أرت أكثر من نطاق مثلا Plage وغير مثل ddd مثلا كيف بيكون الربط في الكود هل بيكون [ddd"Plage].InPlageterior.Color = [b2].Interior.Color] أخي الكريم أبو حازم، يمكن ضم هذا النطاق إلى التسمية Plage وترك الكود كما هو أو يمكن إضافة هذا النطاق إلى الكود فيكون الجزء من الكود كما يلي : Range("Plage,ddd").Interior.Color = [B2].Interior.Color والله أعلى وأعلم أخوك بن علية
أبوحازم قام بنشر يوليو 20, 2014 الكاتب قام بنشر يوليو 20, 2014 (معدل) كل شئ تمام الان . غير هناك مشكلة في تلوين صفحتان لم تعمل لا أعرف لماذا وهذا هو المرفق اللون 1.rar تم تعديل يوليو 20, 2014 بواسطه أبوحازم
عبدالله باقشير قام بنشر يوليو 20, 2014 قام بنشر يوليو 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 تحياتي 1
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.