تظليل عامود و صف حسب قيمة خلية

[تامر خليفة]

_{مرحبا للجميع}

 

_{عندي ما يشبه مصفوفة ارقام}

 

_{اريد عندما اكتب رقم معين يقوم الاكسل بتظليل صفه و عاموده}

_{ولو تكرر الرقم في اكثر من مكان في المصفوفة يقوم بتظليل كل العماويد و الصفوف الموجود بها الرقم}

 

_{هل هذا ممكن في الاكسل}

_{وشكرا للجميع}

[رجب جاويش]

أخى الفاضل / تامر

مرحبا بك

أولا : لك منى دعوة طيبة بتغيير اسم الظهور الى اللغة العربية ليسهل التواصل بيننا ( طبقا لسياسة المنتدى )

ثانيا : يفضل أخى أن ترفق ملف توضح به ما تريد حتى يمكن العمل عليه

[احمد ابوزيزو]

الاعمدة والصفوف

[تامر خليفة]

المرفق

[تامر خليفة]

مصفوفه.rar

[رجب جاويش]

السلام عليكم

أخى الفاضل

جرب هذا الكود

Private Sub Worksheet_Change(ByVal Target As Range)
Dim cl As Range
If Target.Address = [D1].Address Then
Cells.Interior.ColorIndex = 0
For Each cl In Range("B3:G7")
If cl = Target Then
Range(Cells(cl.Row, 2), Cells(cl.Row, 7)).Interior.ColorIndex = 3
Range(Cells(3, cl.Column), Cells(7, cl.Column)).Interior.ColorIndex = 3
End If
Next
End If
End Sub

تلوين الصف والعمود.rar

[تامر خليفة]

الف شكر

فعلا ده المطلوب

[رجب جاويش]

أخى الفاضل / تامر خليفة

أشكرك جزيل الشكر على سرعة الإستجابة بتغيير اسم الظهور الى اللغة العربية

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

[عبدالرحمن بدوى]

On ١٨‏/٣‏/٢٠١٤ ٢،١٧،٤٩, رجب جاويش said:

السلام عليكم

أخى الفاضل

جرب هذا الكود

Private Sub Worksheet_Change(ByVal Target As Range)
Dim cl As Range
If Target.Address = [D1].Address Then
Cells.Interior.ColorIndex = 0
For Each cl In Range("B3:G7")
If cl = Target Then
Range(Cells(cl.Row, 2), Cells(cl.Row, 7)).Interior.ColorIndex = 3
Range(Cells(3, cl.Column), Cells(7, cl.Column)).Interior.ColorIndex = 3
End If
Next
End If
End Sub

تلوين الصف والعمود.rar

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

أخى الفاضل انا أريد استخدام هذا الكود ولكن لا أعرف كيف استخدمه

انا اريده يظلل الصف فقط عند كتابة رمز * مثلا فى العمود A كيف ذلك ؟

 

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

أخي الكريم عبد الرحمن

يفضل طرح موضوع جديد

تقبل تحياتي