なぜ「型が一致しません」などというエラーがでたのか。計算の途中途中でどういう数値になっているか、シートに表示させながらやってみた。すると、なぜかHoが空欄になる。さらに、なぜかJouR2が空欄になっている。 2回目、状態4から状態5に移った時はJouR2…

Sub Gか冒険か3() Dim Gran, Gran2, IT2, ST1, DR1 Gran = Rnd() Range("D10") = Gran ' Greedyで行くか、冒険で行くか、その結果どの方向に行くかを決める ‘ しかし、b10より小さければ冒険、としているが、B10が1なので、間違いなく冒険 ‘ b10は今後、だん…