ActiveCellは、Excel VBAで現在選択されているセルを参照するためのオブジェクトです。ユーザーが選択したセルや、VBAコード内で操作対象として選択されたセルに対してアクセスでき、値の取得や変更、フォーマットの設定などを行うことができます。ActiveCell使い方について説明します。
Excel VBAのActiveCell使い方
ActiveCellとは？
ActiveCellは、現在アクティブになっている（選択されている）セルを指すオブジェクトです。ユーザーが直接選択したセルや、VBAコード内でSelectメソッドなどを使って選択されたセルに対して操作を行う場合に利用されます。
たとえば、次のコードは現在アクティブなセルに値を設定します。
Sub ExampleActiveCell()
' 現在のアクティブセルに"Hello"という値を設定
ActiveCell.Value = "Hello"
End Sub
選択されているセルに「Hello」という値が入力されます。
ActiveCellの基本的な使い方
アクティブセルの値を取得する
アクティブセルの値を取得して、他のセルにコピーしたり、VBAコードで処理することが可能です。
Sub GetActiveCellValue()
Dim cellValue As String
' アクティブセルの値を取得
cellValue = ActiveCell.Value
' 値をメッセージボックスで表示
MsgBox "アクティブセルの値: " & cellValue
End Sub
現在アクティブになっているセルの値を取得し、メッセージボックスに表示します。
アクティブセルに値を設定する
アクティブなセルに新しい値を設定する場合は、ActiveCell.Value使って操作します。
Sub SetActiveCellValue()
' アクティブセルに"新しい値"を設定
ActiveCell.Value = "新しい値"
End Sub
選択されたセルに「新しい値」という値を設定します。
アクティブセルのフォントや色を変更する
ActiveCellを使用して、選択されているセルのフォントや色を変更することも可能です。
Sub ChangeActiveCellStyle()
' アクティブセルのフォントを太字にし、色を青に変更
With ActiveCell.Font
.Bold = True
.Color = vbBlue
End With
End Sub
アクティブなセルのフォントを太字にして、フォントの色を青色に変更します。【VBA】複数オブジェクトをWithステートメントで処理する方法
ActiveCellの注意点
シートがアクティブでないとエラーが発生
ActiveCellを使用する際は、そのセルが含まれるシートがアクティブである必要があります。アクティブでないシートのセルを操作しようとすると、エラーが発生します。
【使用例: シートをアクティブにしてからActiveCellを使用する】
Sub ActivateSheetBeforeUsingActiveCell()
' シート2をアクティブにしてからセルを操作
Sheets("Sheet2").Activate
ActiveCell.Value = "Sheet2 ActiveCell"
End Sub
シート2をアクティブにしてから、アクティブセルを操作しています。これにより、エラーを回避します。
複数のセルが選択されている場合の動作
複数のセルが選択されている場合、ActiveCellは最初に選択されたセルのみを参照します。以下のコードの場合は、ActiveCellはA1セルになります。
Sub MultipleCellsSelected()
' A1:B2を選択
Range("A1:B2").Select
' アクティブセルに値を設定（最初のセルが対象）
ActiveCell.Value = "First Cell"
End Sub
複数のセルが選択されても、アクティブセル（A1）にのみ「最初のセル」という値が設定されます。
まとめ
Excel VBAにおいてはActiveCell、現在選択されているセルに対して操作を行うための重要なオブジェクトです。値の取得や設定、セルの書式変更、相対的なセルへのアクセスなど、さまざまな場面で活用できます。また、シートがアクティブでない場合や、複数のセルが選択されている場合の挙動に注意が必要です。【VBA】SelectメソッドとActivateメソッドとは何か？