Cells format

[magid_o]

اخواني

هل من الممكن تلوين الخلايا بنفس لون الخلية الملاصقة لها بشكل آلي

[الـعيدروس]

مزيد من التوضيح ارفق مثال

وان شاء الله نتوصل لما تريد

[magid_o]

المطلوب هو في حالة ان الخلية a1 تغير لونها الى احمر فيتم بشكل تلقائي تغير لون الخلية b1 and c1 and d1 الى اللون الاحمر

وشكرا

[عبدالله المجرب]

السلام عليكم

ضع هذا في حدث ورقة العمل

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(Target, Range("A1:A50")) Is Nothing Then

x = Target.Interior.ColorIndex

For i = 1 To 3

Target.Offset(0, i).Interior.ColorIndex = x

Next

End If

End Sub

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

اخي الحبيب ابو احمد حل رائع ...

و احببت ان اضيف في حالة كان التحديد متغيرا

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Selection.Cells Is Nothing Then

x = Target.Interior.ColorIndex

For i = 1 To 3

Target.Offset(0, i).Interior.ColorIndex = x

Next

End If

End Sub

[الـعيدروس]

السلام عليكم

جزاكم الله خير استاذ عبدالله واستاذ محمد يحياوي

وهذا كود اخر

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(Target, Range("A2:A500")) Is Nothing Then

Target.Offset(0, 1).Resize(1, 3).Interior.Color = Target.Interior.Color

End If

End Sub

[الـعيدروس]

او هكذا اضمن

هذا الكود حطه في حدث الورقة

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Column = 1 And Target.Row > 1 Then Call ALIDROOS_JC

End Sub

وهذا الكود في مودويل

Sub ALIDROOS_JC()

For Each R In Range("A2:A500")

If R.Interior.Color <> RGB(255, 255, 255) Then

R.Offset(0, 1).Resize(1, 3).Interior.Color = R.Interior.Color

End If

Next R

End Sub

[magid_o]

شكرا للجميع...............