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

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

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

PhpSpreadsheetを使ってPHPからExcelファイルを出力してみる。前のページ

スナックワールド トレジャラーズで遊んでます。次のページ

関連記事

  1. Office関連

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

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

  2. Office関連

    Officeのヘルプを単独で開く。

    Officeアプリケーションのヘルプが見たいとき、いちいちアプリケーシ…

  3. Office関連

    OneNoteのノート名を列挙するマクロ

    今回はOneNoteのノート名を列挙するマクロを紹介します。O…

  4. Office アドイン

    [Office用アプリ]コピー&ペースト用マニフェストファイル

    Office 用アプリを作るとき、過去に作ったアプリのマニフェストファ…

コメント

  • コメント (0)

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

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

Time limit is exhausted. Please reload CAPTCHA.

※本ページはプロモーションが含まれています。

Translate

最近の記事

アーカイブ

PAGE TOP