【ExcelVBA入門】セルのアドレス・行番号・列番号を取得する方法とは

こんにちは、フリーランスエンジニア兼ライターのワキザカ サンシロウです。

皆さんは、VBAで選択しているセルの位置を取得する方法を知っていますか?

選択しているセルの位置を取得して処理を書きたいケースは、よくあります。

そこで今回は、

・選択しているセルのアドレスを取得する方法

といった基礎的なことから、

・選択しているセルの行番号・列番号を取得する方法

・検索にヒットしたセルの情報を取得するサンプルコード

といった応用的な方法まで、徹底的に解説します!

Addressプロパティを使ってセルのアドレスを取得する方法

はじめに、Addressプロパティを使ってセルのアドレスを取得する方法について解説します。

次のように書くことで、簡単にセルのアドレスを取得することができます。

ActiveCell.Address

ただ、オプションを指定せずにAddressプロパティを使った場合は、次のように絶対参照でセルのアドレスを取得してしまいます。

実行前の選択セル:

サンプルコード:

Sub Test()
  Debug.Print ActiveCell.Address
End Sub

実行結果:

$A$1

そのため、相対参照にする方法も合わせて覚えておくのがおすすめです!

行、列それぞれ絶対参照相対参照TrueFalseで以下のように設定できます。

  • RowAbsolute:行の絶対参照・相対参照を設定
  • ColumnAbsolute:行の絶対参照・相対参照を設定

行・列の絶対参照・相対参照を確認するサンプルを用意しました。

実行前の選択セル:

サンプルコード:

Sub Test1()

'絶対参照
Debug.Print ActiveCell.Address

'行のみ相対参照
Debug.Print ActiveCell.Address(RowAbsolute:=False)

'列のみ相対参照
Debug.Print ActiveCell.Address(ColumnAbsolute:=False)

'行・列どちらも相対参照
Debug.Print ActiveCell.Address(RowAbsolute:=False, ColumnAbsolute:=False)

End Sub

実行結果:

$A$1
$A1
A$1
A1

このように、オプションで絶対参照、相対参照を変えることができます。

合わせて覚えると便利な行番号・列番号を取得する方法

次に、行番号・列番号を取得する方法について解説します。

選択している行番号・列番号はそれぞれRow・Columnプロパティで取得することができます。

使い方:

ActiveCell.Row      '行番号
ActiveCell.Column   '列番号

行番号・列番号を取得するサンプルコードを用意しました。

実行前の選択セル:

サンプルコード:

Sub Test2()
  Debug.Print "行番号:" & ActiveCell.Row
  Debug.Print "列番号:" & ActiveCell.Column
End Sub

実行結果:

行番号:3
列番号:4

このように、簡単に行番号・列番号を取得することができます。

検索したセルのアドレス・行番号・列番号を取得する方法

ここまで読んだ方の中で、「セルのアドレス、行番号、列番号はいつ使うんだろう?」と思った方もいるのではないでしょうか。

そんな方向けに、検索でヒットしたセルのアドレス・行番号・列番号を取得するサンプルを用意しました。

サンプルコード:

Sub Test3()
  Dim rngHitCell As Range                 '検索でヒットしたセル
  Dim rngSearchArea As Range              '検索するセル範囲
  Const keyword = "侍エンジニア3"         '検索に使う名前
  
  '完全一致でヒットしてセルを取得
  Set rngSearchArea = Range("A1:C6")      '検索対象のセル範囲をセット
  Set rngHitCell = rngSearchArea.Find(keyword, LookAt:=xlWhole)
  
  'セルのアドレス・行番号・列番号を取得
  Dim strAddress As String  'アドレス
  Dim intRowNo As String    '行番号
  Dim intColNo As String    '列番号
  strAddress = rngHitCell.Address(RowAbsolute:=False, ColumnAbsolute:=False)
  intRowNo = rngHitCell.Row
  intColNo = rngHitCell.Column
  
  'セルのアドレス・行番号・列番号を出力
  Debug.Print "アドレス:" & strAddress
  Debug.Print "行番号:" & intRowNo
  Debug.Print "列番号:" & intColNo
End Sub

実行結果:

アドレス:B4
行番号:4
列番号:2

Find(キーワード , LookAt:=xlWhole)」で指定したキーワード(侍エンジニア3)完全一致するセルを取得し、取得したセルのアドレス・行番号・列番号を出力するサンプルコードです。

取得した行番号を使って応用すると、次のように「侍エンジニア3」でヒットしたデータの生徒番号・得意言語を取得するコードを作ることもできます。

サンプルコード:

Sub Test4()
  Dim rngHitCell As Range                 '検索でヒットしたセル
  Dim rngSearchArea As Range              '検索するセル範囲
  Const keyword = "侍エンジニア3"         '検索に使う名前
  
  '完全一致でヒットしてセルを取得
  Set rngSearchArea = Range("A1:C6")      '検索対象のセル範囲をセット
  Set rngHitCell = rngSearchArea.Find(keyword, LookAt:=xlWhole)
  
  'ヒットした行番号を取得
  Dim intRowNo As String
  intRowNo = rngHitCell.Row
  
  '行番号を使って生徒番号・得意言語を取得
  Dim strStudentNum As String
  Dim strGoodLang As String
  strStudentNum = Cells(intRowNo, 1).Value
  strGoodLang = Cells(intRowNo, 3).Value
  
  'セルのアドレス・行番号・列番号を出力
  Debug.Print "行番号:" & intRowNo
  Debug.Print "生徒番号:" & strStudentNum
  Debug.Print "名前:" & keyword
  Debug.Print "得意言語:" & strGoodLang
End Sub

実行結果:

行番号:4
生徒番号:A00003
名前:侍エンジニア3
得意言語:ruby

このように検索でヒットしたデータを取得するときにも使えるので、Findメソッドとあわせて覚えておくのがおすすめです!

Findメソッドの詳しい使い方については以下で詳しく解説しているので、気になる方は見てみてくださいね!

【VBA入門】Find、FindNextで検索(完全一致、部分一致、複数一致)
更新日 : 2019年9月26日

まとめ

今回は、選択しているセルのアドレス・行番号・列番号を取得する方法について解説しました。

最後に解説したサンプルのように、覚えておくと便利な使い道は多いです。

使い方も簡単なので、ぜひ使ってみてくださいね!

LINEで送る
Pocket

無料でSEからWebエンジニアへ転職しませんか?



侍エンジニア塾では、完全未経験の方から現在SEだけどプログラミングはやっていないという経験者まで、幅広い方々の人生を好転させるプログラミング指導を行ってきました。SEの方とお話していくなかで、

  • システムエンジニアという職業だけどコードが書けない
  • 事務作業が多くスキルがないため将来が不安
  • スクールに通うと完全未経験者と同じスタートになるからレベルが合わない
という、すでに知識があるSEならではのお悩みがあることに気づきました。そんな方におすすめなのが、弊社の「転職コース 」です。

弊社では、マンツーマンでレッスンを行いますので、現在お持ちの知識レベルからカリキュラムを作成いたします。さらにこちらの転職コースは無料で受講を始められて転職成功でそのまま卒業できるというとてもお得なコースとなっています。

既に知識のあるSEといっても転職は年齢が若いほど受かりやすいため、まずは無料体験レッスンで今の現状や理想の働き方について一緒に考えていきましょう。

まずは無料体験レッスンを予約する

書いた人

Sanshiro Wakizaka

Sanshiro Wakizaka

フリーランスエンジニア兼ライターのワキザカ サンシロウです。
ExcelVBAの自動化ツール開発、WEB開発をメインにエンジニア業務をこなしつつ、サムライエンジニアにてライター業務をしております。

プログラミングをこれからやってみたい方に向けて、ためになる記事を全力で書いていきますので宜しくお願い致します!

おすすめコンテンツ

あなたにぴったりなプログラミング学習プランを無料で診断!

プログラミング学習の効率を劇的に上げる学習メソッドを解説