برجسته کردن ردیف سلول های انتخابی

Question

گاهی اوقات به راحتی می توان ردیابی محل قرارگیری سلول انتخاب شده در یک کاربرگ را از دست داد. راه های مختلفی وجود دارد که می توانید مکان سلول را پیدا کنید، اما گاهی اوقات این کار مفید است که فقط راهی برای برجسته کردن کل ردیف سلول انتخاب شده داشته باشید.

ساده ترین راه برای انجام این کار در اکسل فشار دادن Shift+Space Bar است . کل ردیف برجسته می شود و سلول انتخاب شده ثابت می ماند. اگر می خواهید به سلول دیگری در همان ردیف بروید (بدون تغییر برجسته)، می توانید از Tab برای حرکت به راست و Shift+Tab برای حرکت به چپ استفاده کنید.

اگر ترجیح می دهید اکسل به صورت خودکار ردیف را برجسته کند، باید به یک ماکرو تکیه کنید. مورد زیر این کار را انجام می دهد:

Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    Static rr
    Static cc

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

    rr = Selection.Row
    cc = Selection.Column

    With Columns(cc).Interior
        .ColorIndex = 20
        .Pattern = xlSolid
    End With
    With Rows(rr).Interior
        .ColorIndex = 20
        .Pattern = xlSolid
    End With
End Sub

اطمینان حاصل کنید که ماکرو را به کاربرگی که در آن زمان استفاده می کنید، متصل کرده اید. تنها کاری که کد انجام می دهد این است که سطر و ستونی را که سلول فعال در آن قرار دارد برجسته کند. هنگام انتقال به سلول دیگر، کد سلول قبلی را به خاطر می آورد (با استفاده از متغیرهای اعلام شده به عنوان Static) و برجسته سازی را از سطرها و ستون های قبلی حذف می کند. این کد هر دو ردیف و ستون فعلی را برجسته می کند. فقط برای برجسته کردن سطر، تکه های کد را که cc در آنها وجود دارد حذف کنید. تنها مشکل واقعی این روش این است که اگر برگه شما دارای سلول های پر رنگ قبلی باشد، این سلول ها به NoFill تغییر می کنند و هر رنگی را که در آن وجود داشت پاک می کند.