Home » Excel VBA Rangeオブジェクト » Offsetプロパティ » VBAでアクティブセルの一つ下のセルにデータを入力する

VBAでアクティブセルの一つ下のセルにデータを入力する

対象：Excel2007, Excel2010, Excel2013, Windows版Excel2016

「アクティブセルの1つ下のセルに、文字列「abc」を表示する マクロ」
という検索でこのサイト・インストラクターのネタ帳へのアクセスがありました。

アクティブなセルの1つ下のセルに「abc」という文字列を表示するには、VBAでどのようなコードを書けばいいのか、サンプルマクロを探していた方による検索キーワードです。

［スポンサードリンク］

変数とCellsを使ってアクティブセルの一つ下のセルにデータを入力するサンプルマクロ

まず理解していただきたいのは、行番頭と列番号を変数に格納しておいて、Cellsプロパティを利用するプロシージャです。

Sub アクティブセルの一つ下のセルにデータ入力_変数とCells()
　Dim row_num As Long
　Dim col_num As Long

　row_num = ActiveCell.Row
　col_num = ActiveCell.Column

　Cells(row_num + 1, col_num).Value = "abc"
End Sub

ショートカットキー［F8］でステップ実行を行って、
　　row_num = ActiveCell.Row
　　col_num = ActiveCell.Column
の2行を実行したあとに、変数・row_numとcol_numにどのような数値が入力されているかを、メニュー［表示］－［ローカルウィンドウ］からローカルウィンドウを表示して確認してください。

アクティブセルの行番号と列番号がそれぞれ格納されているはずです。

変数・row_numに格納されているアクティブセルの行番号に、「+ 1」した数値をCellsプロパティの第1引数に指定すると、
　　Cells(row_num + 1, col_num).Value =
アクティブセルの一つ下のセルを表すRangeオブジェクトを取得できるという考え方を、まず理解してください。

WithとCellsを使ってアクティブセルの一つ下のセルにデータを入力するサンプルマクロ

同じ考え方で、変数を使わず、WithキーワードとCellsを使った以下のような書き方もできます。
Sub アクティブセルの一つ下のセルにデータ入力_WithとCells()
　With ActiveCell
　　Cells(.Row + 1, .Column).Value = "abc"
　End With
End Sub

先のマクロより難易度は上がりますが、やっていることは同じです。

Offsetを使ってアクティブセルの一つ下のセルにデータを入力するサンプルマクロ

Cellsプロパティの引数に、足し算・引き算を行った数値を指定するのと考え方は同じですが、RangeオブジェクトのOffsetプロパティを使うと、以下のようなすっきりしたコードで済みます。
Sub アクティブセルの一つ下のセルにデータ入力_Offset()
　ActiveCell.Offset(1, 0).Value = "abc"
End Sub

Range.Offsetプロパティをご存じなかった方は、「ActiveCell.Offset(1, 0).Select」というコードをOffsetの引数を変更しながら、何度か実行してみてください。

関連語句
VBA, Visual Basic for Applications

［スポンサードリンク］

Home » Excel VBA Rangeオブジェクト » Offsetプロパティ » VBAでアクティブセルの一つ下のセルにデータを入力する

『インストラクターのネタ帳』では、2003年10月からMicrosoft Officeの使い方などを紹介し続けています。
Excel VBAの経験がある方を対象に、Word VBAの基本をキンドル本としてまとめました↓↓ Excel VBAユーザーの方を対象として、Wordの表をVBAで操作する基礎をまとめました↓↓ 『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓ PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓ 日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓ 上記の『Excel VBAユーザーのためのPythonプログラミング』の、元になったキンドル本です↓↓ Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓ 小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓ 数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓ 図形を操作するExcel VBAの基本を解説したキンドル本を書きました↓↓ グラフを操作するExcel VBAの基本を解説したキンドル本も出しました↓↓ Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓


「Offsetプロパティ」の記事一覧

検索


Copyright © インストラクターのネタ帳 All Rights Reserved.

.