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

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

No.4 ベストアンサー 回答者： ja7awu 回答日時： 2003/11/06 20:52

１行では、何か簡潔すぎて寂しいので、ちょっと追加して・・・

アクティブセルが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

この回答へのお礼

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

お礼日時：2003/11/07 03:11

No.3 回答者： sakenomo 回答日時： 2003/11/06 20:48

別例ということで・・。

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

Range("A100")を

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

この回答へのお礼

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

お礼日時：2003/11/07 03:11

No.2 回答者： ja7awu 回答日時： 2003/11/06 20:26

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

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

No.1 回答者： maruru01 回答日時： 2003/11/06 18:19

こんにちは。

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

この回答へのお礼

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

お礼日時：2003/11/07 03:10