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

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

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

コメント

  • コメント (0)

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

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

Time limit is exhausted. Please reload CAPTCHA.

最近の記事

アーカイブ

RapidSSL_SEAL-90x50
PAGE TOP