ساعدوني كيف يتم تلوين خليه ومن ثم يتم تلوين كامل الصف؟ يوجد مثال مرفق

[safeyr]

السلام عليكم

واشكر جميع الاخوة والخبراء بهذا المنتدى العظيم

اخواني

لدي مثلا جدول واريد بمجرد تلوين خليه فيه فان الاكسل يقوم بتلوين كامل الصف

والطلب الثاني

كيف اجعل الاكسل يلون صف كامل بناء على اختياري له من vloockup

اتمنى الاطلاع على الملف المرفق حيث يتم التوضيح اكثر

وشكرا

example.rar

[طارق محمود]

السلام عليكم

أخي الكريم

جرب الكودين التاليين في حدث الورقة

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Target.Column > 1 Then Exit Sub

r = Target.Row

c = Target.Interior.ColorIndex

Range("A" & r & ":D" & r).Interior.ColorIndex = c

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address <> "$A$18" Then Exit Sub

t = Target.Value

For i = 5 To 16

If Cells(i, 1).Value = t Then r = i

Next i


Range("A5:D16").Interior.ColorIndex = xlNone


Range("A" & r & ":D" & r).Interior.ColorIndex = 6

End Sub

[طارق محمود]

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

http://www.4shared.com/file/lNZ0uXBm/example.html

فيه الكود المطلوب

[احمد فضيله]

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

الاخ الحبيب المهندس / طارق

أعمال رائعة . جزاك اله كل خير

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

[ياسر الحافظ]

اللاخ العزيز م. طارق

روعة

وفقك الله

ياسر الحافظ

[safeyr]

السلام عليكم

اعتذر عن عدم الرد لاني كنت مسافرا

شكرا استاذ طارق والله يجزاك الف خير

بس هل يوجد شرح للطريقه

لان لدي عدة صفوف واعمده واريد ان اطبقها بنفسي

اتمنى من الجميع مساعدتي وشكرا

[safeyr]

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

وشكرا لكم

[الـعيدروس]

السلام عليكم

اخي سفير

اطلع على المرفق به شرح بسيط للجزئية المهمه

في الكود انشاء الله يكون وضح لك الشرح

والسلام عليكم

example.rar