Office関連

名前付きセル(範囲)にコメントを付けるVBAマクロ

Excelでマニュアルを作成する際、名前付きセル範囲を明記する必要があったので、コメントを付加するマクロを書いてみました。

Option Explicit

Public Sub AddCommentNamedRanges()
'名前付きセル(範囲)にコメントを付ける
  Dim n As Excel.Name
  
  For Each n In ActiveWorkbook.Names
    With n.RefersToRange
      'アクティブシートのみ処理
      If .Worksheet.Name = ActiveSheet.Name Then
        If .Cells.Count > 1 Then
          On Error Resume Next
          .Item(1, 1).Comment.Delete
          On Error GoTo 0
          .Item(1, 1).AddComment(n.NameLocal & vbNewLine & .Address).Visible = True
        Else
          On Error Resume Next
          .Comment.Delete
          On Error GoTo 0
          .AddComment(n.NameLocal & vbNewLine & .Address).Visible = True
        End If
      End If
    End With
  Next
  'ActiveSheet.PageSetup.PrintComments = xlPrintInPlace 'ページ設定(コメント:画面表示イメージ)
End Sub

上記マクロを実行すると、アクティブシート上の名前付きセル範囲に、名前とアドレスをコメントとして追加します。

こういった手動で行うと面倒な作業は、マクロを使った方が効率的ですね!

関連記事

  1. Office関連

    [Office 365 Solo]テクニカル サポートってどんなもの?

    前々回の記事に引き続いて、Office 365 Soloの疑問点第三弾…

  2. Office アドイン

    YO OFFICE(Yeoman)を使ってOffice アドインのひな型を作成する方法

    Webアプリのひな型を一発で作ってくれる便利ツール「Yeoman」には…

  3. Office関連

    文字列を横方向に移動するWordマクロ(WordBasic編)

    いつもお世話になっているWord MVPの新田さんが、まるでカニの動き…

  4. Office関連

    [閑話]Wordの「線種とページ罫線と網かけの設定」って英語版では何っていうの?

    Officeの機能について調べるとき、日本語での情報が無いときは英語圏…

  5. Office関連

    各ページを画像に変換するWordマクロ

    Excel MVPの伊藤さんがブログで、WordのPageオブジェクト…

コメント

  • コメント (0)

  • トラックバックは利用できません。

  1. この記事へのコメントはありません。

Time limit is exhausted. Please reload CAPTCHA.

最近の記事

アーカイブ

RapidSSL_SEAL-90x50
PAGE TOP