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

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

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

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

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

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 = "コメントのサンプル"

[スポンサードリンク]

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

TrackBack:0

TrackBack URL
[スポンサードリンク]

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

「エクセルマクロ・Excel VBAの使い方」の記事一覧

検索

Copyright © インストラクターのネタ帳 All Rights Reserved.

.