お手伝いでしている仕事の内容は、ある行事の参加者申し
込みの受付の処理です。
参加希望者は、ＨＰから申し込みをします。すると。手元に
申し込みのメールが届きます。
このメールを処理して、
１ 受講票返信メールの作成・送付
受付日付
受付Ｎｏ
２ 受講者一覧表の作成
の一連の作業をします。以前は、この作業を全部手作業
でやってました。
今回の催しの定員が１００名ですから、結構な手間です。
そこで、ＶＢＡの登場でしたが、やっと次のような手順で
かなりの部分を半自動？にすることができました。
送られてくる自動返信メールのコピー(手動）
↓
エクセルに貼り付け（手動）
↓
必要データーの取り出しと成形（エクセル関数）
↓
一覧表への追加（エクセルＶＢＡ）
↓
返信文面の作製（エクセル関数）
受付月日の挿入
受付Ｎｏの挿入
↓
エクセルの返信文面のコピー（手動）
↓
メールへの貼り付け（手動）
↓
送信・・・・・・・・・受付完了
これらの作業のなかで、一覧表への追加が一番てまどりまし
た。
その次にてまどったのが受付Ｎｏの挿入です。
これは、受付名簿の一覧表から、追加した項目のＮｏを
読みとることで実現しました。
Worksheets(“Sheet1”).Range(“B” & Range(“C4”).-
End(xlDown).Row).Copy
Range(“J6”).Select
ActiveSheet.Paste
表に追加すると、Ｃ４の表題以下のセルに種別が追加され
ますので、
Range(“C4”).End(xlDown).Row)
で、どこのセルが記入済みの最下段（行）か取得します。
この読みとった行とＮｏの書いてある”Ｂ”と＆をとって、
該当のＮｏのセルの番地を作ってます。
Worksheets(“Sheet1”).Range(“B” & Range(“C4”).End(xlDown).Row)
これを、作業セルのＪ６にペーストします。
Range(“J6”).Select
ActiveSheet.Paste
こんな一連の動作で、受付Ｎｏを挿入した文面を作りました。
手間取りましたが、ちょっと楽になって、間違いもすくなくなり
そうです。