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

　VBAと格闘をしていて、最後に保存しようと、「Crtl+S」を押して

　上書き保存をしようと思うと、なぜか、名前をつけて保存に

　なってしまいます。

　NETで検索してもひっかかりません。

　もしやと思い、ファイル－オプションをたどってみると、なんと

　「保存」という項目があるではありませんか。

　

　ここにブックの保存形式という覧があります。ここがデフォルトでは、

　マクロを保存しない、「.xlsx」になってます。これで、上書きではなく

　て、名前をつけて保存になったようです。

　ここを、マクロも記録できる、「.xltm」にすると上書きができるよう

　になりました。

　もしかして、ここは、「.xlsm」（マクロ有効ブック）でもよかったの

　かも。

　この設定は、以前のものにはなかったような？,気が。

　あったのかな、この辺はちょっと、不確かです。

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

　込みの受付の処理です。

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

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

　このメールを処理して、

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

　　２　受講者一覧表の作成

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

　でやってました。

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

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

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

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

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

　た。

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

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

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

　　　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
　

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

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

　そうです。