カテゴリー: ExcelVBA

'ブック範囲の名前定義を削除する
ActiveWorkbook.Names("作成名前定義１").Delete

↑ブック適用範囲

'シート範囲の名前定義を削除する
ActiveWorkbook.Worksheets("Sheet1").Names("作成名前定義１").Delete

↑シート適用範囲

名前定義の削除には「Names(“定義名”).Delete」メソッドを使用します
ブック適用とシート適用ではメソッドの対象が変わります

コード解説

「ActiveWorkbook.Names(“作成名前定義１”).Delete」
ブック適用範囲の名前定義を削除する場合に使用します
ブックに対してメソッドを使用します

「Worksheets(“Sheet1”).Names(“作成名前定義１”).Delete」
シート範囲の場合はシートの指定から削除を行います
名前が一意であれば指定無しでも削除は実行できますが、複数の同じ名前を使用していた場合エラーが発生しますので、シート範囲の名前定義はシート指定で削除を行います

また、NamesオブジェクトなのでItemプロパティがありますので、名前を指定しなくてもIndex番号でも指定は可能です
ただ、名前を指定せずに扱うことは処理上あまり使用することは少ないと思います

'ブック範囲の名前定義セルに入力
Range("作成名前定義１") = 123

'ブック範囲の名前定義セルに移動
Application.Goto "作成名前定義１"

↑ブック適用範囲

'シート範囲の名前定義セルに入力
Worksheets("Sheet1").Range("作成名前定義１") = 123

'シート範囲の名前定義セルに移動
Application.Goto Worksheets("Sheet1").Range("作成名前定義１")

↑シート適用範囲

名前定義したセルはその名前文字列で以降は指定が可能になります
その際には、Rangeの引数には「”」で名前文字列を囲んで指定します

それぞれの名前定義については以下の記事を確認してください

コード解説

「Range(“作成名前定義１”) = 123」
ブック適用範囲ではシートの指定が必要なく、アクティブブックに対しての処理になるので、シンプルにRangeオブジェクトの引数に名前文字列を指定して入力を行います

「Application.Goto “作成名前定義１”」
移動には、シートの移動をおこなえるGotoメソッドを使用します

「Worksheets(“Sheet1”).Range(“作成名前定義１”) = 123」
シート適用範囲の場合には、シートの指定から行う必要があります
通常のセル範囲と同じ使用方法になります

「Application.Goto Worksheets(“Sheet1”).Range(“作成名前定義１”)」
移動に関しては、同じくシート移動の出来るGotoメソッドを使用します
指定には、入力と同じようにシートから指定を行う必要があります

Gotoメソッドはシート間の移動までを行うためのコードであるため、シート移動の必要ないアクティブシートでの名前定義セルへの移動に関しては通常のセル選択に使用するSelectメソッドで可能です

Range("作成名前定義１").Select

上記のコードでは、名前定義されたセルを選択状態にします
しかし、別のシートであった場合エラーが発生します

入力に関しては、アクティブシートの相違には問題ありませんが選択状態にする場合は注意する必要があります

'アクティブシートの選択範囲で名前定義
ActiveSheet.Names.Add Name:="作成名前定義１", RefersTo:="=" & Selection.Address

↑アクティブシートの場合

'指定シートの指定範囲で名前定義
Worksheets("Sheet1").Names.Add Name:="作成名前定義１", RefersTo:="=$A$1:$A$10"

↑アクティブ以外のシートの場合

シート範囲での名前定義をするには「Names.Add」メソッドをシート指定して使用します
指定した名前の名前定義が存在しない場合は新規作成され、存在する場合はセル範囲が更新されます

シート範囲で名前定義を行うと、その名前定義をシート内でしか使用できません
別のシートから参照するには、シートの指定から行う必要があります

コードの解説

「ActiveSheet.Names.Add Name:=”作成名前定義１”, RefersTo:=”=” & Selection.Address」
アクティブシートの選択範囲を名前定義します
引数「Name」は名前定義の名前文字列
引数「RefersTo」にはセルのアドレス文字列を指定します、セル範囲そのものではないのでRangeのAddressプロパティを使用します

アクティブシートの選択範囲なので、動的に名前定義する際に使用します

「Worksheets(“Sheet1″).Names.Add Name:=”作成名前定義１”, RefersTo:=”=$A$1:$A$10″」
引数の解説は上記と同じです
今回違う点が、シートを指定しているのと「RefersTo」にアドレス文字列が指定されているところです

この様に指定することで、アクティブシート以外のシートを指定することが可能です
また、シートを適用範囲とするメソッドなのでアドレス指定にはシートの指定は必要ありません、省略すると対象シートが指定されます

使用場面

シート範囲の名前定義とは、別のシートからは参照できないようにシート内でのみ有効な名前定義になります

これを使用する場面は、同じ目的の名前定義を複数作成することで管理がめんどうになるのを防ぐ意味で使用します

シートごとに違う名前を指定する必要があるブック範囲ではコードの作成にも利便性が無いので、同じ名前の指定をしておけばシートを切り替えるだけで同じ名前定義を使用することができます

名前定義したセル範囲を指定する際には、別シートであればシートからの指定が必要になる点は注意が必要です

'アクティブシートの範囲を名前定義
Selection.Name = "作成名前定義１"

↑アクティブシートの場合

'別シートの範囲を名前定義
Worksheets("Sheet1").Range("A1:C5").Name = "作成名前定義１"

↑アクティブ以外のシートの場合

ブック範囲で名前定義を作成変更するには「Name」プロパティを使用します
名前のものが無ければ新規作成され、あれば指定のアドレスが更新されます

コード解説

「Selection.Name = “作成名前定義１”」
SelectionのNameプロパティを設定します
このコードを使用すると、選択範囲をブック範囲指定で名前定義を行います
アクティブシートの選択範囲を指定しています

こちらでは、引数は無く選択範囲とブック指定が固定になるので選択範囲が決まっていれば使用可能なので名前定義で一番簡単に作成が出来るコードです

「Worksheets(“Sheet1”).Range(“A1:C5”).Name = “作成名前定義１”」
Selectionをシートとセル範囲を固定で指定することで、1つ目ではできないアクティブシート以外のシートを指定することが出来ます
アクティブシート以外の別シートを指定する場合にはこちらを使用します

どちらのコードも名前定義のセル範囲を変更できますが、適用範囲はブック以外の指定は行いません
ブック指定とすることで、コードが簡略にできるので適用範囲を気にしない場合の名前定義はこのブック範囲で構いません