Excel VBAで簡単にセル範囲に名前を付ける: CreateNamesメソッド完全ガイド

この記事では、Excel VBAのCreateNamesメソッドを使用して、表の列見出しを基にセル範囲に名前を付ける手順をわかりやすく解説します。

Excelで表の列見出しを使ってセル範囲に名前を付けたいんだけど、どうすればいいの？

Excel VBAのCreateNamesメソッドを使えば簡単ですよ。このメソッドを使うと、列見出しを基に自動的に名前が付けられるんです。

CreateNamesメソッドとは

Excel VBAにおけるCreateNamesメソッドは、エクセルの表計算シートにおいて、列または行の見出しを利用して、セル範囲に自動的に名前を割り当てる機能を提供します。

このメソッドは、特に大きなデータセットを扱う際に、特定のセル範囲を簡単に識別し、再利用できるようにするために非常に役立ちます。

基本的な使用方法

CreateNamesメソッドは、以下のような基本構文を持ちます：

RangeObject.CreateNames(Top, Bottom, Left, Right)

ここで、RangeObjectは名前を割り当てるセル範囲を指定します。そして、Top, Bottom, Left, Rightはブール値（TrueまたはFalse）を取り、それぞれの引数が表す方向の行または列に見出し（名前）が存在するかどうかを指定します。

例えば、ある表のA列に「売上」、B列に「コスト」という見出しがある場合、以下のようにしてそれぞれの列に名前を付けることができます。

Worksheets("Sheet1").Range("A1:B10").CreateNames Top:=True

このコードは、”Sheet1″のA1からB10までの範囲において、最上行を見出しとして認識し、それぞれの列に対応する名前（この例では「売上」「コスト」）を自動的に割り当てます。

サンプルプログラムによる解説

Excel VBAのCreateNamesメソッドを理解するために、具体的なサンプルプログラムを通じた解説を行います。

この例では、Excelシートにあるデータ範囲に対して、列の見出しを使って名前を付けるプロセスを示します。

サンプルシナリオ

Excelシートに以下のようなデータテーブルがあるとします。

売上	コスト
100	50
200	80
300	120

この表において、最上行が列見出し（「売上」「コスト」）で、A2:B4がデータ範囲です。

VBAプログラム

このデータに対して、CreateNamesメソッドを使用して、各列に名前を付けるVBAプログラムは以下のようになります。

Sub AssignNamesToColumns()
    ' シートを指定
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")

    ' 名前を付けたい範囲を指定
    Dim dataRange As Range
    Set dataRange = ws.Range("A1:B4")

    ' CreateNamesメソッドを使用して列見出しに基づき名前を付ける
    dataRange.CreateNames Top:=True, Bottom:=False, Left:=False, Right:=False
End Sub

このプログラムでは、最初に作業対象のワークシートとデータ範囲を定義しています。その後、CreateNamesメソッドを使用して、指定した範囲（A1:B4）の最上行を列見出しとして認識し、各列に名前を割り当てています。

実行結果

このプログラムを実行すると、ExcelはA列に「売上」、B列に「コスト」という名前を自動的に割り当てます。この名前は、その後のVBAプログラムやExcelの数式内で、直接参照することができるようになります。たとえば、「=SUM(売上)」という数式は、A列の合計を計算します。