連投恐縮ですが、プログラムを少し手直ししました。添付をご参照ください。