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

A 回答 (4件)

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


アクティブセルが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
    • good
    • 0
この回答へのお礼

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

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

別例ということで・・。



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

Range("A100")を

Cells(100, 1)にしてもいいですね。
    • good
    • 0
この回答へのお礼

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

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

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



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

こんにちは。

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
    • good
    • 0
この回答へのお礼

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

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

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!


人気Q&Aランキング