Excelセルに「●」でグラフを表示するVBAコードの実装方法

2025年8月6日

Excelにはグラフ機能が備わっていますが、簡単な数値比較をしたい場面では、「●」や「〇」などの記号を使った文字グラフが便利です。

本記事では、VBAを用いて「●」「〇」記号を組み合わせた簡易グラフをExcelセルに表示する方法をご紹介いたします。

サンプルコード：セルに記号グラフを出力するVBA

以下のVBAコードは、数値の大きさを「●」と「〇」で表現し、隣のセルにグラフのように出力します。

Sub drawSymbolGraph()
    Dim targetCell As Range
    Dim dotCount As Long, circleCount As Long
    For Each targetCell In Range("C3:C6")
        dotCount = targetCell.Value \ 1000
        circleCount = targetCell.Value Mod 1000 \ 100
        targetCell.Offset(0, 1).Value = String(dotCount, "●") & String(circleCount, "〇")
    Next
End Sub

コードの解説

要素	内容
`Range("C3:C6")`	数値が入力されているセル範囲です。必要に応じて調整可能です。
`\ 1000`	「1000円＝●1個」として換算します。
`Mod 1000 \ 100`	1000未満の値を「100円＝〇1個」として処理します。
`Offset(0, 1)`	元のセルの右隣のセルに記号グラフを出力します。