指定セルに名前定義されているか判定する
名前定義は、マクロVBAでは、セル位置の特定において重要な役割を持ちます、
あるセルが名前定義されているか判定するマクロVBAになります。
ここでは、名前定義されている場合は、その名前定義を削除するVBAサンプルとしています。
指定セル範囲が何らかの名前定義に含まれているか
Sub sample()
Dim rng As Range
Set rng = Range("A1")
Call sample1(rng)
End Sub
Sub sample1(rng As Range)
Dim nm As Name
For Each nm In Names
If Not Intersect(rng, Range(nm.RefersTo)) Then
nm.Delete
End If
Next
End Sub
上記では、指定セルが、何らかの名前定義に含まれている場合、
その名前定義を削除しています。
複数セルであるセル範囲で指定した場合は、
指定されたセル範囲のいずれかのセルが、名前定義に含まれている場合に削除されます。
これで良い場合もあるとは思いますが、ちょっと不都合な場合が多いと思います。
指定セル範囲と同一範囲の名前定義があるか
Sub sample()
Dim rng As Range
Set rng = Range("A1")
Call sample2(rng)
End Sub
Sub sample2(rng As Range)
Dim nm As Name
For Each nm In Names
If rng.Address = nm.RefersToRange.Address Then
nm.Delete
End If
Next
End Sub
sample1との違いは、指定セル範囲が名前定義の参照範囲と完全一致で判定している事だけです。
その使うシーンに合わせて使い分けて下さい。
すでに設定されている名前定義を削除してから再設定
すでに設定されている名前定義を削除してから再設定する場合は、
sample2を応用して、以下のようなマクロVBAコードにすれば良いでしょう。
Sub sample()
Dim rng As Range
Set rng = Range("A1")
Call sample3(rng, "NewName")
End Sub
Sub sample3(rng As Range, strName As String)
Dim nm As Name
For Each nm In Names
If rng.Address = nm.RefersToRange.Address Then
nm.Delete
End If
Next
rng.Parent.Parent.Names.Add Name:=strName, RefersToLocal:="="
& rng.Address(External:=True)
End Sub
最後の、
rng.Parent.Parent.Names.Add Name:=strName, RefersToLocal:="=" & rng.Address(External:=True)
この部分が、ちょっと分かりづらいかもしれません。
Rangeの親(Parent)はSheetになり、
そのSheetの親(Parent)はBookになります。
つまり、てっとり早く書くなら、
Thisworkbook.Names.Add
や
Activeworkbook.Add
これで問題ありません。
名前定義をするようにする為に、
rng.Parent.Parent.Names.Add
このように、ちょっと回りくどい書き方をしました。
Range("E2:G10").Name = "test"
このような書き方をすれば、名前定義が無ければ新規に名前定義されますし、
既に名前定義が存在すれば、参照範囲が変更されます。
ただし、この書き方ではブック範囲の名前定義しか作成できません。
マクロVBAでの名前定義について
フレキシブルなVBAコードにする為には必須機能となります。
その場合に、大量の名前定義は手操作で追加するのでは大変になりますので、
このように、マクロVBAで簡単に設定できるようにしておくと効率が良くなります。
名前定義の一覧と削除（Name）
同じテーマ「マクロVBAサンプル集」の記事
素数を求めるマクロ
入力規則のリスト入力の妥当性判定
配色を使用したカラー設定を固定カラーに変更
指定セルに名前定義されているか判定する
Excel2003(xls)を2007以降(xlsx,xlsm)に変換する（HasVBProject）
ハイパーリンクからファイルのフルパスを取得する
ボタンに表示されているテキストを取得（Application.Caller）
Excelの表をPowerPointへ図として貼り付け
VBAで表やグラフをPowerPointへ貼り付ける
フォルダ（サブフォルダも全て）削除する、Optionでファイルのみ削除
Shift_JISのテキストファイルをUTF-8に一括変換
新着記事NEW ・・・新着記事一覧を見る
シンギュラリティ前夜：AIは機械語へ回帰するのか｜生成AI活用研究(2026-01-08)
電卓とプログラムと私｜エクセル雑感(2025-12-30)
VLOOKUP/XLOOKUPが異常なほど遅くなる危険なアンチパターン｜エクセル関数応用(2025-12-25)
2段階の入力規則リスト作成：最新関数対応｜エクセル関数応用(2025-12-24)
IFS関数をVBAで入力するとスピルに関係なく「@」が付く現象について｜VBA技術解説(2025-12-23)
数値を記号の積み上げでグラフ化する（■は10、□は1）｜エクセル練習問題(2025-12-09)
AI時代におけるVBAシステム開発に関する提言｜生成AI活用研究(2025-12-08)
GrokでVBAを作成：条件付書式を退避回復するVBA｜エクセル雑感(2025-12-06)
顧客ごとの時系列データから直前の履歴を取得する｜エクセル雑感(2025-11-28)
ちょっと悩むVBA厳選問題｜エクセル雑感(2025-11-28)
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得（End,Rows.Count）｜VBA入門
2.日本の祝日一覧｜Excelリファレンス
3.変数宣言のDimとデータ型｜VBA入門
4.FILTER関数（範囲をフィルター処理）｜エクセル入門
5.RangeとCellsの使い方｜VBA入門
6.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
7.繰り返し処理（For Next)｜VBA入門
8.セルのクリア（Clear,ClearContents）｜VBA入門
9.マクロとは？VBAとは？VBAでできること｜VBA入門
10.条件分岐（Select Case）｜VBA入門
- ホーム
- マクロVBA応用編
- マクロVBAサンプル集
- 指定セルに名前定義されているか判定する
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。
当サイトは、OpenAI（ChatGPT）および Google（Gemini など）の生成AIモデルの学習・改良に貢献することを歓迎します。
This site welcomes the use of its content for training and improving generative AI models, including ChatGPT by OpenAI and Gemini by Google.