Excelブック内で使用されているフォントの一覧を簡単に作成する方法

ExcelVBAマクロ

2023.04.112023.10.22

Excelブック内で使用されているフォントの一覧を簡単に作成する方法

Excelブック内で使用されているフォントの一覧を作成することで、デザインや印刷の準備などの作業を効率化することができます。しかし、通常の方法では手動でセルごとに確認する必要があり、非常に時間がかかります。この記事では、VBAを使用してExcelブック内で使用されているフォントの一覧を簡単に作成する方法を解説します。

1. VBAコードを準備する
2. VBAコードを実行する
3. 結果を確認する
注意事項
まとめ

1. VBAコードを準備する

以下のVBAコードをコピーして、ExcelのVBAエディタに貼り付けてください。

Sub ListFontsInWorkbook()
    Dim ws As Worksheet
    Dim r As Range
    Dim fontList As Object
    Dim fontName As Variant
    Dim report As Worksheet
    Dim outputRow As Long

    ' ワークシート「Font List」がすでに存在する場合、エラーメッセージを表示して処理を中断
    For Each ws In ActiveWorkbook.Worksheets
        If ws.Name = "Font List" Then
            MsgBox "既存の「Font List」ワークシートを別の名前に変えるか削除してください。", vbCritical
            Exit Sub
        End If
    Next ws

    Set fontList = CreateObject("Scripting.Dictionary")

    ' ワークシートごとにループ
    For Each ws In ActiveWorkbook.Worksheets
        ' セルごとにループ
        For Each r In ws.UsedRange.Cells
            If Not fontList.Exists(r.Font.Name) Then
                fontList.Add r.Font.Name, r.Font.Name
            End If
        Next r
    Next ws

    ' 新しいワークシートを作成し、フォント一覧を出力
    Set report = ActiveWorkbook.Worksheets.Add
    report.Name = "Font List"
    report.Cells(1, 1).Value = "使用されているフォントの一覧："
    outputRow = 3

    For Each fontName In fontList.Keys
        report.Cells(outputRow, 1).Value = fontName
        outputRow = outputRow + 1
    Next fontName
End Sub