Excel VBAでアクティブなセルの値を取得したり入力したり、書式を変えたりする方法を記録します。
アクティブなセルを操作するには、「ActiveCell」プロパティを使います。
下図はExcel2016です。
< スポンサーリンク >
「ActiveCell」プロパティ構文
expression.ActiveCell
expression**Application**オブジェクトを表す変数
対象となるオブジェクトを指定しない場合は、アクティブウィンドウのアクティブなセルが返されます。
アクティブセルとは、現在の選択範囲内にある1つのセルのみ。
(選択範囲は複数のセルが含まれている可能性があります。)
次の式はいずれも同じアクティブセルを表しています。
ActiveCell
Application.ActiveCell
ActiveWindow.ActiveCell
Application.ActiveWindow.ActiveCell
「ActiveCell」プロパティの使用例
アクティブセルの値をメッセージで表示します。
Sub test()
MsgBox ActiveCell.Value
End Sub
アクティブセルの値を「XYZ」にします。
Sub test()
ActiveCell.Value = “XYZ”
End Sub
アクティブセルのフォントを18ポイント、太字、赤に設定します。
Sub test()
With ActiveCell.Font
.Size = 18
.Bold = True
.Color = RGB(255, 0, 0)
End With
End Sub
アクティブセルから3行下、2列右にアクティブセルを移動します。
Sub test()
ActiveCell.Offset(3, 2).Activate
End Sub
こんな記事も書いています