ご回答ありがとうございます。 教えていただいたプログラムで動作確認しました。　ありがとうございました。