ExcelマクロVBAサンプル集
指定セルに名前定義されているか判定する

ExcelマクロVBAの実用サンプル、エクセルVBA集と解説
最終更新日:2013-11-04

指定セルに名前定義されているか判定する


名前定義は、マクロ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において、

すでに設定されている名前定義を削除してから再設定する場合は、

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

これで問題ありません。

ここでは、ブックにとらわれずに、引数に指定されたRangeのBookに対して、

名前定義をするようにする為に、

rng.Parent.Parent.Names.Add

のように、ちょっと回りくどい書き方をしました。


名前定義は、マクロVBA開発において、

フレキシブルなVBAコードにする為には必須機能となります。

その場合に、大量の名前定義は手操作で追加するのでは大変になりますので、

このように、マクロVBAで簡単に設定できるようにしておくと効率が良くなります。



同じテーマ「マクロVBAサンプル集」の記事

エクセルのアイコン取得(FaceID)
素数を求めるマクロ
入力規則のリスト入力を確認する
配色を使用したカラー設定を固定カラーに再設定
指定セルに名前定義されているか判定する
Excel2003(xls)を2007以降(xlsx,xlsm)に変換する(HasVBProject)
ハイパーリンクからファイルのフルパスを取得する
ボタンのテキスト名のシートへ移動(Application.Caller)
Excelの表をPowerPointへ図として貼り付け
フォルダ(サブフォルダも全て)削除する、Optionでファイルのみ削除
Shift_JISのテキストファイルをUTF-8に一括変換


新着記事NEW ・・・新着記事一覧を見る

Byte配列と文字コード関数について|VBA技術解説(8月20日)
PowerQueryの強力な機能をVBAから利用する方法|VBA技術解説(8月4日)
練習問題31(セル結合を解除して値を埋める)|VBA練習問題(7月30日)
練習問題30(マトリックス→リスト形式)|VBA練習問題(7月25日)
Applicationを省略できるApplicationのメソッド・プロパティ一覧|VBA技術解説(7月22日)
コレクション(Collection)の並べ替え(Sort)に対応するクラス|VBA技術解説(7月20日)
CSVの読み込み方法(ジャグ配列)|VBAサンプル集(7月15日)
その他のExcel機能(グループ化、重複の削除、オートフィル等)|VBA入門(7月14日)
オートフィルタ退避回復クラスを複数シート対応させるVBAクラス|VBA技術解説(7月6日)
オートフィルタを退避回復するVBAクラス|VBA技術解説(7月6日)


アクセスランキング ・・・ ランキング一覧を見る

1.最終行の取得(End,Rows.Count)|VBA入門
2.セルのコピー&値の貼り付け(PasteSpecial)|VBA入門
3.RangeとCellsの使い方|ExcelマクロVBA入門
4.Range以外の指定方法(Cells,Rows,Columns)|VBA入門
5.変数とデータ型(Dim)|ExcelマクロVBA入門
6.繰り返し処理(For Next)|ExcelマクロVBA入門
7.マクロって何?VBAって何?|ExcelマクロVBA入門
8.セルに文字を入れるとは(Range,Value)|VBA入門
9.ひらがな⇔カタカナの変換|エクセル基本操作
10.空白セルを正しく判定する方法(IsEmpty,IsError,HasFormula)|VBA技術解説



  • >
  • >
  • >
  • 指定セルに名前定義されているか判定する

  • このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。


    記述には細心の注意をしたつもりですが、
    間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
    なお、掲載のVBAコードは自己責任で使ってください。万一データ破損等の損害が発生しても責任は負いません。




    このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
    本文下部へ