記号を表示することで簡易的にグラフを作る関数です。
■や☆の文字で点数を視覚的なアナロググラフっぽく見せることができます。
VBEの標準モジュールに下のコードを登録して「Excelマクロ有効フォーム」で保存してください。
関数の登録方法は⇒♯000 ユーザー定義関数を登録する方法
登録されたら、シート上からユーザー関数「 BarGraph 」が使用できます。
使い方は
ワークシート上で = BarGraph(数値,最大数,[最小数],[表示記号]) の関数として使用することで、 記号を表示することで簡易的にグラフを作る関数です
【例】
BarGraph(数値,最大数,[最小数],[表示記号])
[最小数]省略時は0、[表示記号]省略時は■
=BarGraph(75,100) ⇒ ■ ■ ■ ■ ■ ■ ■
=BarGraph(70,100,50,”★”) ⇒ ★ ★ ★ ★
Function BarGraph(N1 As Single, Max As Single, _
Optional Min As Single = 0, Optional Symbol As String = “■”)
’ 記号を表示することで簡易的にグラフを作る関数
’ BarGraph(数値,最大数,[最小数],[表示記号])
’ [最小数]省略時は0、[表示記号]省略時は■
On Error GoTo EXITFUN
Dim B As Single
Dim N2 As Single
If N1 > Max Then
N2 = Max
End If
N2 = N1- Min
If N1 < Min Then
N2 = 0
Else
N2 = N1- Min
End If
B = (N2 * 10) / (Max- Min)
BarGraph = String(Int(B), Symbol)
EXITFUN:
End Function
ここで紹介したコード使用による損害に対しては一切責任は負えません。