کد VBA زیر می تواند به شما کمک کند به طور خودکار تمام ستون و ردیف سلول فعلی را رنگی کنید.

در روش اول می توانید کلیدهای ALT + F11 را نگه دارید تا پنجره ویژوال بیسیک برای ثبت کد ماکرو در اختیار کاربر قرار گیرد.

در روش دوم روی شیت فعال راست کلیک کنید
و روی گزینه View code کلیک کنید تا پنجره ویژوال بیسیک برای شما باز شود.

سپس کد ذیل را در پنجره ویژوال بیسیک وارد نموده و ذخیره نمائید.

Static xRow
Static xColumn
If xColumn <> "" Then
    With Columns(xColumn).Interior
        .ColorIndex = xlNone
    End With
    With Rows(xRow).Interior
        .ColorIndex = xlNone
    End With
End If
pRow = Selection.Row
pColumn = Selection.Column
xRow = pRow
xColumn = pColumn
With Columns(pColumn).Interior
    .Color = RGB(228, 38, 235)
    .Pattern = xlSolid
End With
With Rows(pRow).Interior
    .Color = RGB(228, 38, 235)
    .Pattern = xlSolid
End With

لیست کد رنگ VBA اکسل

برای تنظیم رنگ و یا گرفتن رنگ برای اشیاء مانند رنگ سلول (تصیور پیوست آموزش). 56 رنگ اصلی را به همراه شماره های ویژه زیر ارائه می دهد.