アクティブセルにデータを入力するには、ActiveCellプロパティを使います。
ActiveCellプロパティの対象オブジェクトは、Windowオブジェクトであり、Worksheetオブジェクトではありません。
ActiveCellプロパティのオブジェクトを省略した場合は、アクティブウィンドウのアクティブシートのアクティブセルを取得することができます。
Windowオブジェクトを使うと、各ウィンドウのアクティブセルが返されることになります。
アクティブセルの操作
Book1とBook2のウィンドウが開いています。
Book1のアクティブセルは「B2」、Book2のアクティブセルは「B4」です。
■ コード内を「Wクリック」で選択できます。
Sub サンプル2560() Windows("Book1").ActiveCell.Value = 1000 Windows("Book2").ActiveCell.Value = 2000 End Sub
Book1のアクティブセルB2へ1000を代入します。
Windows("Book1").ActiveCell.Value = 1000
Book2のアクティブセルB4へ2000を代入します。
Windows("Book2").ActiveCell.Value = 1000
●マクロの実行結果
アクティブセルの指定
アクティブセルを指定するには、Activateメソッドを使います。
いくつかのBookが開いているときは、Bookから指定します。
■ コード内を「Wクリック」で選択できます。
Sub サンプル2565() Windows("Book1").Activate Worksheets("Sheet3").Activate Range("B5").Activate ActiveCell.Font.Bold = True ActiveCell.Value = "サンプル" End Sub
Book1をアクティブにします。
Windows("Book1").Activate
Worksheet3をアクティブにします。
Worksheets("Sheet3").Activate
セルB5をアクティブセルにします。
Range("B5").Activate
アクティブセルのフォントを「太字」にします。
ActiveCell.Font.Bold = True
アクティブセルに「サンプル」を代入します。
ActiveCell.Value = "サンプル"
●マクロの実行結果
開いているウィンドウのアクティブセルにデータを入れる
現在開いているウィンドウのアクティブセルにデータを入れるマクロの例
■ コード内を「Wクリック」で選択できます。
Sub サンプル2570() Dim i As Integer For i = 1 To Windows.Count Windows(i).ActiveCell.Value = 3000 Next i End Sub
●マクロの実行結果
数式の入力方法については次の記事が参考になります。
■関連記事■ 数式の入力方法 Formula
■関連記事■ 数式の入力方法 Formula
以上で「アクティブセルにデータを入力するマクロ」の説明を終わります。