EXCEL VBAやPHP、Query、Ajaxに関するWINDOWS・WEBプログラミングの解説ブログです。

エクセルVBAで部活動保護者当番表を作成しました。日毎の当番表に自動的に保護者を割り振ります。保護者は当番日が一目瞭然で分かります。

部活動の試合や練習で保護者の当番があります。当番も大変ですが、当番表を組む方も大変です。 試合や練習日の日によって当番する人数も違うかと思います。 予め月日ごとに行事スケジュールを決めて、その日によっては当番は一人から四人当たるとします。 必要な人数分を黄色のセルにしておきます。 保護者の一覧を右に並べておきます。 エクセルのその黄色のセル上に、保護者の方を一覧の順番に割り振っていく仕組みを作成しました。 同時に保護者の方も当番が何月何日か一目瞭然で判るようにしました。 ForループDo Unitl や配列を活用しています。

詳細は、youtube動画をご参照ください。

sheet1内Private Sub Worksheet_SelectionChange(ByVal Target As Range)のコード

標準モジュールのコード