مشخص کردن سطر و ستون فعال در اکسل

با سلام خدمت کاربران عزیز آی تی سواد

هنگامی که یک شیت بزرگ را با داده‌های متعدد دارید، ممکن است بخواهید سطر و ستون، سلول انتخاب‌شده را مشخص کنید تا بتوانید به راحتی با داده ها کار کنید . در اینجا ، روش انجام اینکار را به کمک VBA آموزش می دهیم.

مشخص کردن سطر و ستون فعال در اکسل با VBA

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

Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'Update 20140318
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
    .ColorIndex = 6
    .Pattern = xlSolid
End With
With Rows(pRow).Interior
    .ColorIndex = 6
    .Pattern = xlSolid
End With
End Sub

Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

'Update 20140318

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

.ColorIndex = 6

.Pattern = xlSolid

End With

With Rows(pRow).Interior

.ColorIndex = 6

.Pattern = xlSolid

End With

End Sub

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

نکته:

۱. در کد بالا ،ColorIndex = ۶ کد رنگ زرد می باشد می توانید آنرا به رنگ‌های دیگر که دوست دارید تغییر بدهید.
۲. این کد VBA فقط به شیتی اعمال می‌شود که شما در مرحله بالا انتخاب می‌کنید.
۳. اگر نمی‌خواهید ستون و ردیف سلول انتخاب‌شده مشخص شوند کد بالا را حذف کنید.
۴. اگر یک سلول رنگی در شیت شما وجود داشته باشد ، وقتی روی سلول کلیک می‌کنید ، رنگ از دست خواهد رفت.

ترجمه شده از سایت www.extendoffice.com

ممنون از همراهی شما کاربران عزیز آی تی سواد

اشتراک گذاری

بیشتر

با سلام خدمت کاربران عزیز آی تی سواد

مشخص کردن سطر و ستون فعال در اکسل با VBA

نکته:

ممنون از همراهی شما کاربران عزیز آی تی سواد

دیدگاهتان را بنویسید لغو پاسخ