Excel

名前付きセル(範囲)にコメントを付ける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. Excel

    Trello APIを使ってカードを投稿するVBAマクロ

    以前Fiddlerを使ってTrello APIを実行する記事を書きまし…

  2. Office関連

    関数一覧(Excel 2013)

    関数の挿入ダイアログから抽出したExcel 2013の関数情報を表にし…

  3. Excel

    PDFファイル上のフィールドの値を操作するVBAマクロ

    「PDFファイルに差し込み印刷するVBAマクロ」で、Acrobatを操…

  4. Office関連

    WordBasicマクロの資料

    Word 97でVBA機能が搭載される以前のWordでは、WordBa…

  5. Office関連

    類似した書式の文字列を選択するWordマクロ三種

    Wordには、選択中の文字列と似た書式の文字列を一括選択する「類似した…

コメント

  • コメント (0)

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

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

Time limit is exhausted. Please reload CAPTCHA.

最近の記事

アーカイブ

RapidSSL_SEAL-90x50
PAGE TOP