VBAでここまでやりますか・・・。すごいなぁ。。参考にさせてもらいます。