行の移動と選択(Microsoft Excel)
Jamesは、行を下に移動して行全体を選択するためのキーボードショートカットがあるかどうか尋ねました。 Excelでは、1回のキーストロークでこれを行う方法はありませんが、2回のキーストロークを使用してこれを行う方法はあります。下矢印を押し、すぐにShift +スペースバーを押すだけです。
ただし、この種の移動を頻繁に行う場合は、ショートカットキーで開始できる2つのステップを1つのステップに結合するマクロに興味があるでしょう。次のマクロが機能します:
Sub SelectRowDown1() If ActiveCell.Row < 65536 Then ActiveCell.Offset(1, 0).Select ActiveCell.EntireRow.Select End If End Sub
これをCtrl + Dなどのショートカットキーに割り当てると、ショートカットキーを押すたびに、行を下に移動して選択されます。ただし、このアプローチの問題は、マクロの実行後、行の最初のセルが常にアクティブセルになることです。これは、下矢印、Shift +スペースバーを使用して移動および選択する場合とは異なります。
最初のセルがアクティブになるのは、明らかにEntireRow.Selectメソッドです。この問題を回避するには、どの列にいるかを判別して、そのセルをアクティブ化するだけです。次のバージョンのマクロはまさにそれを行います:
Sub SelectRowDown2() If ActiveCell.Row < 65536 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ショートカットキーに割り当てると、移動マクロが完成します。
これらのマクロよりも「強力」なものが必要な場合は、Pearson Software ConsultingServicesのRowLinerアドインを確認してください。
http://www.cpearson.com/excel/RowLiner.htm
注:
このページ(または_ExcelTips_サイトの他のページ)で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。
_ExcelTips_は、費用効果の高いMicrosoftExcelトレーニングのソースです。
このヒント(2106)は、Microsoft Excel 97、2000、2002、および2003に適用されます。Excel(Excel 2007以降)のリボンインターフェイス用のこのヒントのバージョンは、次の場所にあります。
link行の移動と選択。