敵組織に味方が出来るとVBAではこうなる一覧