【VBA】出席簿で欠席内訳を備考欄にまとめて記入する（Join関数）

出席簿を自動化する上で、備考欄の記入も自動でできるように検討してきました。 今回は、長欠の内訳を、Join関数を使って記入する方法を紹介します。 ただ、私が解決できなかった問題点があります。 Join関数は、セル＝Join(配列,"区切り文字") という書き方なんですが、 配列処理を行うと、配列をEraseで解放しても、区切り文字が残ってしまいました。 これは、0か空白でデータが残ってしまうような気がしますが、今回は「､」で区切ることはあきらめてコードを書きました。もし、詳しい方がおられたら、この点についてご教示くださいませ。 さて、本題ですが、 授業日数の1／3以上欠席した児童の氏名、理由、…

【VBA】FindNextで「1以上の整数値を全て」検索できるコード

FindとFindNextを使うと、検索値に該当するデータを列挙することができます。 indexやmatchを使うと検索最初のデータは拾えますが、該当値が複数あるときは、 ダメですね。 ネットを探してみると、FindとFindNextで、「検索値を1つ」指定して検索するメソッドはあったのですが、「1以上の整数値全て」を検索できるようなコードは見当たりませんでした。 私なりに、コードを書いてみたので、備忘録として載せておきます。 説明） Range("AJ53:AJ92")を検索範囲にします。 検索範囲で1以上の値を拾い、 Range("AJ53:AJ92")から左に33列と、拾った整数を、 R…