【VBA】SparkLineの自動生成

0.はじめに

Excel2010から導入された SparkLine は、1セル上でデータの傾向を可視化して確認することが出来る機能。
非常に簡単かつ便利な機能であるが、設定をコピーして複製することができないので、複数行にわたって SparkLine を作成したい場合は非常に面倒。

そこで、SparkLine を複数行分作成する処理を自動化してみた。

なお、今回は汎用的なコード内容にはなっていません。

-

1.事前確認

今回は下記のようなデータを使用する。

K列の2行目から26行目セルにそれぞれの行データの SparkLine が表示されるようにする。

2.ソースコード

＃コーディングのセンスがないのでご了承ください。。。

Sub sparkline()

    '変数
    Dim cnt, a1, a2

    'Main
    For cnt = 3 To 26
        a1 = "K" & cnt
        a2 = "B" & cnt & ":" & "J" & cnt

        Range(a1).SparklineGroups.Add Type:=xlSparkLine, SourceData:=a2
    Next cnt

End Sub

3.実行結果

＜実行前＞

↓

＜実行後＞

★実際実行した様子