エクセルのマクロに「ctrlキーで全消去」を追加