飾り付けこのアーカイブは同期化されません。日記が更新されても、このアーカイブには反映されません。満足できるところまできたが、もう少し飾り付けをしよう。解答中の行を可視化したい。行や列の解答を求めようとしても答えが出ない場合、その行について調べてあきらめたのか、まったく調べていないかがわかりにくいからだ。明らかに現状では解けない行に対する処理などの無駄な処理を見つけやすくなる。効率的に行を選択する処理などを追加できるかもしれない。同じようにイベントを使う。行列の着目に関するイベントを定義しよう。呼ぶ直前に、イベントを発生させるコードを追加する。m_oColumns(c).Solve()行についても同じ。m_oRows(r).Solve()これによって、行の解答をはじめる直前にイベントが起きる。これを受け取ってみよう。イベントに接続するコードを追加する。代入していた直前でかまわない。oSolver.Answerオブジェクトボックスを使って、イベントハンドラのスケルトンを入力し、中身を埋める。解答欄の列に該当する範囲を選択される。プロパティを参照すれば楽に書ける。列のひとつ上のセルを選択するようなコードも書いた。コメントアウトしているのがそれである。Sub行についてもまったく同じだ。