139:マクロ素材 一つ下のセルを選択する。

130:マクロ素材

相対セルの指定方法です。今あるセルから、相対的にどれだけ動くのかという記載方法です。

今、セルがあるセルのすぐ一つ下のセルを選択する方法

Sub ひとつ下のセルを選択する()
 ActiveCell.Offset(1, 0).Range("A1").Select
End Sub

今、セルがあるセルの右側のセルを選択する方法

Sub 右に一つセルを移動()
 ActiveCell.Offset(0, 1).Range("A1").Select
End Sub

あとは、応用で、2つ下のセル、左のセルを選択する方法を考えて使ってください。

今選択しているセルの行数のA列を選択する。

Sub エイ列を選択()
'今あるセルの行から、A列のセルを選択
'なお、列文字が2文字となると、使えません。
    入力セル番地 = ActiveCell.Address(ColumnAbsolute:=False, RowAbsolute:=False)
    行数 = Mid(入力セル番地, 2, 4)
    エイ列アドレス = "A" & 行数
    Range(エイ列アドレス).Activate
End Sub

検索後にそのデータのSQLがA列にあることが多いので、上記に紹介してみました。

このマクロは、条件があって、列文字が1文字であることと、行数が9999行までしか対応しておりません。

コメント

タイトルとURLをコピーしました