Excelで湯婆婆を実装してみる

Last updated at 2020-12-20Posted at 2020-12-20

「湯婆婆 Advent Calendar 2020」の 20 日目の記事です。

ざっと検索してみた感じ Excel Formula で(≠VBA)湯婆婆している人がいないようなので,簡単にですがやってみようと思います。

そういやぁ LAMBDA が入ったことで素直に(あー, つまり循環参照とかを見なかったことにして, ということ)「順次(関数の適応順による)」「分岐(IF系関数による)」「反復(再帰関数による)」ができるようになって Excel Formula もチューリング完全になったんですよねぇ。これって実質宣言型プログラミングと言えるのではないでしょうか? Competitive Excel Formula が始まる日も近い(来ない)。

シートの作成

上の方で偉そうに VBA ちゃうでとか言っておいてなんなんですが, ブックをそのままアップロードするのもアレなんで, シートを作る部分だけ VBA で書きました(数式入れたり書式設定したりしてるだけです)。一度実行するだけなんで xlsx 形式での保存で OK です。

Option Explicit

Public Sub MakeYubaba()
    Cells.Delete

    Range("C3").Formula = "= IF(ISBLANK(C12),""契約書だよ。C12に名前を書きな。"",""フン。""&C12&""というのかい。贅沢な名だねぇ。"")"
    Range("C4").Formula = "= IF(ISBLANK(C12),"""",""今からお前の名前は""&C13&""だ。いいかい、""&C13&""だよ。"")"
    Range("C5").Formula = "= IF(ISBLANK(C12),"""",""分かったら返事をするんだ、""&C13&""!!"")"
    Range("C13").Formula = "= IF(ISBLANK(C12),"""",MID(C12,RANDBETWEEN(1,LEN(C12)),1))"

    Dim fc As FormatCondition

    Set fc = Range("C12").FormatConditions.Add(xlExpression, xlEqual, "= ISBLANK(C12)")
    With fc
        .Borders(xlEdgeLeft).Color = RGB(0, 0, 0)
        .Borders(xlEdgeTop).Color = RGB(0, 0, 0)
        .Borders(xlEdgeRight).Color = RGB(0, 0, 0)
        .Borders(xlEdgeBottom).Color = RGB(0, 0, 0)
    End With
    Set fc = Range("C12").FormatConditions.Add(xlExpression, xlEqual, "= NOT(ISBLANK(C12))")
    fc.Font.Color = RGB(255, 255, 255)

    Set fc = Range("C13").FormatConditions.Add(xlExpression, xlEqual, "= NOT(ISBLANK(C12))")
    With fc
        .Borders(xlEdgeLeft).Color = RGB(0, 0, 0)
        .Borders(xlEdgeTop).Color = RGB(0, 0, 0)
        .Borders(xlEdgeRight).Color = RGB(0, 0, 0)
        .Borders(xlEdgeBottom).Color = RGB(0, 0, 0)
    End With
End Sub