حرکت و انتخاب ردیف

Question

جیمز پرسید که آیا میانبر صفحه کلید برای حرکت به پایین یک ردیف و انتخاب کل ردیف وجود دارد یا خیر. در اکسل هیچ راهی برای انجام این کار با یک بار فشار دادن کلید وجود ندارد، اما راهی برای انجام آن با استفاده از دو کلید وجود دارد. تنها کاری که باید انجام دهید این است که فلش رو به پایین و سپس Shift+Space Bar را فشار دهید .

با این حال، اگر از این نوع جابه جایی زیاد استفاده می کنید، احتمالاً بیشتر به یک ماکرو علاقه مند خواهید بود که این دو مرحله را در یک مرحله واحد که می تواند با یک کلید میانبر آغاز شود، ترکیب می کند. ماکرو زیر کار خواهد کرد:

Sub SelectRowDown1()
    If ActiveCell.Row < 1048576 Then
        ActiveCell.Offset(1, 0).Select
        ActiveCell.EntireRow.Select
    End If
End Sub

اگر این را به یک کلید میانبر مانند Ctrl+D اختصاص دهید، سپس هر بار که کلید میانبر را فشار می دهید، یک ردیف به پایین حرکت می کنید و انتخاب می شود. اما مشکل این رویکرد این است که پس از اجرای ماکرو، اولین خانه در ردیف همیشه سلول فعال است. این با استفاده از روش پیکان رو به پایین ، Shift+Space Bar برای حرکت و انتخاب متفاوت است.

ظاهراً روش EntireRow.Select است که منجر به فعال شدن اولین سلول می شود. برای حل این مشکل، تنها کاری که باید انجام دهید این است که مشخص کنید در کدام ستون قرار داشتید و سپس آن سلول را فعال کنید. نسخه زیر از ماکرو این کار را انجام می دهد:

Sub SelectRowDown2()
    If ActiveCell.Row < 1048576 Then
        ActiveCell.Offset(1, 0).Select
        iCP = ActiveCell.Column
        ActiveCell.EntireRow.Select
        ActiveCell.Offset(0, iCP - 1).Activate
    End If
End Sub

اگر به یک ماکرو علاقه مند هستید که به سمت بالا حرکت می کند، می توانید از این ماکرو استفاده کنید:

Sub SelectRowUp()
    If ActiveCell.Row > 1 Then
        ActiveCell.Offset(-1, 0).Select
        iCP = ActiveCell.Column
        ActiveCell.EntireRow.Select
        ActiveCell.Offset(0, iCP - 1).Activate
    End If
End Sub

می توانید این ماکرو را به کلید میانبر Ctrl+U اختصاص دهید و سپس ماکروهای حرکتی شما کامل می شوند.

اگر به چیزی نیاز دارید که از این ماکروها «پرقدرت تر» باشد، افزونه RowLiner از خدمات مشاوره نرم افزار Pearson را بررسی کنید:

http://www.cpearson.com/excel/RowLiner.htm