http://home.att.ne.jp/zeta/gen/celljong/
VBAでここまでできるか(;´Д`)