エクセルのセルの選択のことで

質問

A1～A99までの任意の一つのセルを選択している時に、
現在のセルからA100までを選択状態にするマクロを教えて下さい。

回答No.4

ja7awu · ベストアンサー

１行では、何か簡潔すぎて寂しいので、ちょっと追加して・・・
アクティブセルがA1～A100の範囲内にあるか確認して実行する場合で
範囲外は、無視するコードです。

Sub test()
　　If Not Intersect(Range("A1:A100"), ActiveCell) Is Nothing Then
　　　　ActiveCell.Resize(100 - ActiveCell.Row + 1, 1).Select
　　End If
End Sub

お礼

ありがとうございました。

回答No.3

sakenomo

別例ということで・・。

Sub test2()
Range(ActiveCell, Range("A100")).Select
End Sub

Range("A100")を

Cells(100, 1)にしてもいいですね。

お礼

ありがとうございました。

回答No.2

ja7awu

その条件を簡潔にコーディングすると次のコードになると思います。

Sub test()
ActiveCell.Resize(100 - ActiveCell.Row + 1, 1).Select
End Sub

回答No.1

maruru01

こんにちは。maruru01です。

こんな感じかな。

Sub macro()

　　Dim tempRow As Long
　　Dim tempCol As Long

　　tempRow = Selection.Row
　　tempCol = Selection.Column

　　If tempRow >= 1 And tempRow <= 99 And tempCol = 1 Then
　　　　Range(Cells(tempRow, tempCol), Cells(100, 1)).Select
　　Else
　　　　MsgBox "A1:A99のどれかを選択して下さい。"
　　End If

End Sub

お礼

ありがとうございました。