رنگي شدن سلول خاص vba

[mohamadali110]

ميخوام اگه سلول a1 سلكت شد دو تا سلول اونورترش يعني c1 رنگش عو بشه مثلا زرد

همينطور a2 سلكت شد c2 زرد بشه و تا خانه a1000 مثلا اين خاصيت توش باشه

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[iranweld]

با سلام

ماکرو ذیل را در قسمت کدنویسی شیت مورد نظر استفاده کنید

چنانچه رنگ سلول با انتخاب سل بعدی نبایستی پاک شود کد خط سوم را حذف کنید

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(Target, Me.Range("A:A")) Is Nothing Then


Range("B1:D1000").Interior.ColorIndex = xlNone

Target.Offset(, 1).Interior.ColorIndex = 4

 Target.Offset(, 2).Interior.ColorIndex = 6
 
End If

End Sub