条件付き書式で遊んでみる

以前、このような記事を書いた。
infoment.hatenablog.com

今日はこれで、遊んでみようと思う。

まっさらなシートの１行目で、１行２列ずつセルを結合する。

何列でも良いが、今回は８０列分結合する。
（結果、４０個の結合セルが完成する）。

次の行に、一セルずらして同じものを作成する。

３行目は、１行目と同じものを作成する。

２行目から、数式をセットする。右斜め上と左斜め上の半分ずつを合計させる。

左右端はそれぞれ、半分しか受け取れない。反対側が壁だから仕方ない。

この２行目と３行目のペアを、４１行目までコピー＆ペースト。

罫線を消して、列幅を１にする。

０が少々うるさいので、０を非表示にする。

最後に、作成した範囲を選択して、条件付き書式を設定する。

Sub Test()
    ' 条件付き書式用変数
    Dim f_Cond  As FormatConditions
    ' 条件付き書式を一旦全て消去。
        Cells.FormatConditions.Delete
    ' 選択範囲の条件付書式を変数にセット。
    Set f_Cond = Selection.FormatConditions

    ' セルの値の大小で、iMax段階の濃淡で着色。
    Dim i As Long
    Dim iMax As Long
        iMax = 10
        For i = 0 To iMax
            f_Cond.Add Type:=1, Operator:=5, Formula1:="=" & i
            f_Cond(f_Cond.Count).SetFirstPriority
            f_Cond(1).Interior.ThemeColor = xlThemeColorLight1
            f_Cond(1).Interior.TintAndShade = 1 - i / iMax
        Next
End Sub

これで１行目の適当なセルに数値を入れると、川の上流で墨汁を垂らしたように段々と薄くなるような模様になった。

入力した値の大きさと、隣との遠近具合で、互いの広がりが混ざり合ったりする。

試しに自動で流してみたら、こんな感じになった。

カクカクし過ぎていて、もう少し滑らかさが欲しくもあるが、お遊びなので今回はこんなところで良しとしよう。

参考まで。