ｍａｂｏのｂｌｏｇです。

　お手伝いでしている仕事の内容は、ある行事の参加者申し

　込みの受付の処理です。

　参加希望者は、ＨＰから申し込みをします。すると。手元に

　申し込みのメールが届きます。

　このメールを処理して、

　　１　受講票返信メールの作成・送付
　　　　　受付日付
　　　　　受付Ｎｏ

　　２　受講者一覧表の作成

　の一連の作業をします。以前は、この作業を全部手作業

　でやってました。

　今回の催しの定員が１００名ですから、結構な手間です。

　そこで、ＶＢＡの登場でしたが、やっと次のような手順で

　かなりの部分を半自動？にすることができました。　

　　送られてくる自動返信メールのコピー(手動）
　　　↓
　　エクセルに貼り付け（手動）
　　　↓
　　必要データーの取り出しと成形（エクセル関数）
　　　↓
　　一覧表への追加（エクセルＶＢＡ）
　　　↓
　　返信文面の作製（エクセル関数）
　　　　受付月日の挿入
　　　　受付Ｎｏの挿入
　　　↓
　　エクセルの返信文面のコピー（手動）
　　　↓
　　メールへの貼り付け（手動）
　　　↓
　　送信・・・・・・・・・受付完了

　これらの作業のなかで、一覧表への追加が一番てまどりまし

　た。

　その次にてまどったのが受付Ｎｏの挿入です。

　これは、受付名簿の一覧表から、追加した項目のＮｏを

　読みとることで実現しました。

　　　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
　

　こんな一連の動作で、受付Ｎｏを挿入した文面を作りました。

　手間取りましたが、ちょっと楽になって、間違いもすくなくなり

　そうです。

name:

email:

URL:

comments:


Cookieに登録

http://mabo52.sakura.ne.jp/tb.php/1005