募集した川柳を印刷するマクロを作ってみた（Excel）

地域活動をしています。
ボタンティア的な活動です。

最近ひとつ増えた活動があります。
小中学校、地域の方々から川柳を募集し、応募していただいた句を公開します。
応募用紙で寄せられたものはそのまま使い、メールやウェブ経由で応募された句は印刷して公開します。

狭い範囲なので多くではありませんが、330句ほど集まりました。
（ご協力いただいた学校や地域の方々に感謝です）

そのうち印刷するものは 26句だけ。
A4（横置き）１ページに４句並べて印刷します。

全句が入力された Excel ブックからデータをインポートし、
印刷対象の句をピックアップし、４句／ページごとにまとめる作業をマクロ化しました。
また、句のフォントを選択できるようにしました。

　

上はページ（４句）単位で進む・戻るの動作と、フォントを選択し変更する部分です。

Excel ブックは４つのシートで構成しています。
　シート１は操作説明のシートです。
　シート２では全句が入力されている別ファイルから句をインポートします。
　シート３はインポートした全句から印刷用の句を抽出します（同時に句を上句・中句・下句に分離します）。
　シート４がご覧いただいた画像（gif 動画）です。
　印刷もシート４上のボタンで行います。

おまけ的な機能として、１ページ・４句を順に表示・印刷するのではなく
任意の番号の句を表示・印刷できるようにしています。

当初は Excel に入力されている句を Word で差し込み印刷するつもりでした。
が、１ページに４句ずつ差し込むのが手間だと分かり、随時フォントを変えるのも手間だと分かったので、
自由度が高い Excel マクロ（VBA）を使うことにしました。

プログラミング的な作業をしばらくしていなかったので固い頭が少しほぐれました。
また、Windows 11 の大型アップグレード（22H2、2022年アップデート）があり、
北窓舎として出している幾つかのフリーウェアも Windows 11 対応にする契機ともなりました。

やはりプログラミングって楽しい・・・と実感している秋です。

＃　こんなマクロを作ってほしい、なんて希望が来ないかな。
　　できたら多少の報酬ありで・・・