判定や入力もVBAでやってRange.caractors(1,1)から変えればいいじゃん