Home » エクセルマクロ・Excel VBAの使い方 » 定義された名前 » VBAで名前の定義時にコメントを入れたい

VBAで名前の定義時にコメントを入れたい

対象：Excel2007, Excel2010, Excel2013, Windows版Excel2016

「excel vba 名前の定義コメント入れたい」
という検索でアクセスがありました。

Excelでは［新しい名前］ダイアログから名前を定義する際に、コメントを入れておくことができます。

VBAで同じことをするには、どのようなコードを書けばいいのかを探していらしたのでしょう。

［スポンサードリンク］

名前の定義時にコメントを入れるサンプルマクロ

以下のSubプロシージャを実行すると、アクティブシートのA1:G7セルに「名前のサンプル」という名前が定義され、「コメントのサンプル」というコメントが入ります。

Sub 名前の定義時にコメントを入れる()
　Dim nm As Name

　Set nm = ActiveWorkbook.Names.Add( _
　　　Name:="名前のサンプル", _
　　　RefersTo:=Range("A1:G7"))
　nm.Comment = "コメントのサンプル"
End Sub

サンプルマクロの解説

NamesコレクションオブジェクトのAddメソッドで、Excel VBAから名前の定義ができます。

オブジェクトブラウザーを確認すればわかるとおり、Names.Addメソッドは、たくさんの引数が用意されていますが、

VBAで名前の定義時にコメントを入れたい

コメントに関連していそうな引数は見当たりません。

Names.Addメソッドは、作成した新しい名前を表すNameオブジェクトを返してきますから、Name型のオブジェクト変数に、Nameオブジェクトをセットして、
　Dim nm As Name
　Set nm = ActiveWorkbook.Names.Add( _
　　　Name:="名前のサンプル", _
　　　RefersTo:=Range("A1:G7"))

NameオブジェクトのCommentプロパティを使ってコメントを設定しています。
　nm.Comment = "コメントのサンプル"

［スポンサードリンク］