@Garyuten アドバイスを参考に手直ししてみました。暇な時に見てくれれば。