ワイガイジ、関数がよくわからんからvbaで全部実装する
作ってポイや後任とか知らんご