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用アプリ]Mashup Awards 9にOffice 用アプリで応募できる!?

    日本最大級のWebアプリケーション開発コンテスト「Mashup Awa…

  2. Office関連

    [Excel Services ECMAScript]ActiveWorkbookのパスを取得する。…

    埋め込んだExcelワークブックのパスを取得するコードです。 (さ…

  3. Office関連

    オデッセイ コミュニケーションズ主催のWord活用無料セミナーに参加しました。

    Club Microsoft会員限定、オデッセイ コミュニケーションズ…

  4. Office アドイン

    [Office用アプリ]マニフェストファイルで多言語対応させる。

    Office用アプリの各種設定を定義するXMLマニフェストファイルです…

  5. Office関連

    Word 2013では文書にオンライン ビデオを挿入できるようになりました。

    ※ この情報はOffice 2013 カスタマー プレビュー版を元にし…

コメント

  • コメント (0)

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

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

Time limit is exhausted. Please reload CAPTCHA.

最近の記事

アーカイブ

RapidSSL_SEAL-90x50
PAGE TOP