Excel VBAのアクティブセルから最後のエントリまで
この例は、RangeオブジェクトのEndプロパティを Excel VBA。このプロパティを使用して範囲を選択します アクティブセルから最後のエントリまで 列で。
状況:
列Aの一部の売上高。時間の経過とともに売上高が増加すると仮定します。
ワークシートにコマンドボタンを配置し、次のコード行を追加します。
1.列の最後の項目を選択するには、次のコード行を追加します。
Range("A5").End(xlDown).Select
注:Range( "A5")の代わりにRange( "A1")、Range( "A2")などを使用することもできます。このコード行は、END + DOWN ARROWを押すのと同じです。
シート上のコマンドボタンをクリックすると、結果が表示されます。
2.セルA5から列の最後の項目までの範囲を選択するには、次のコード行を追加します。
Range(Range("A5"), Range("A5").End(xlDown)).Select
シート上のコマンドボタンをクリックすると、結果が表示されます。
3.アクティブセルから列の最後のエントリまでの範囲を選択するには、単にRange( "A5")をActiveCellに置き換えます。
Range(ActiveCell, ActiveCell.End(xlDown)).Select
セルA2を選択し、シート上のコマンドボタンをクリックすると、結果:
注意:定数xlUp、xlToRight、xlToLeftを使用すると、他の方向に移動することができます。この方法で、アクティブセルから最後の行までの範囲を選択できます。