این کد واسه رنگی کردن ردیفی که اون سلول رو انحتخاب میکنید هست
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



کامنت