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