1556行の前でTISHO[KED]を数値変数に代入すると毎回 配列変数を参照しなくなるのでスッキリするのとッ少しだけ 処理時間が短くなります。 TI=TISHO[KDE] EX=ENSX[TI]+((ENYX[TI+500]-ENYX[TI])/2)+EXA+EXGN