اجرای خودکار کد

[ali.b]

چکار کنم این کد خودکار انجام بشه
این کد واسه رنگی کردن ردیفی که اون سلول رو انحتخاب میکنید هست

Sub Macro4()'
' Macro4 Macro
'


Static rr
If rr <> "" Then
With Rows(rr).Interior
.ColorIndex = xlNone
End With
End If


r = Selection.Row
rr = r


With Rows(r).Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End Sub

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

[khakzad]

سلام
برای اینکه کد با هر باز کلیک کردن روی سل اجرا بشه . این کد رو در selection change بنویسید

[khakzad]

اینم عکس مسیری که خواسته بودید