マクロの型が一致していないというエラーにつ

Writer: admin Type: arte Date: 2019-01-05 00:00
マクロの型が一致していないというエラーについてです以下のように、E列のデータ分だけ一行ずつ計算を進めていくソースを書いていたのですが、Cells(i, 12)から下が全て、型が一致していないというエラーが出てしまいました。なんだかとても簡単な見落としをしているのだと思いますが、初心者なのでどういう点が間違っているのか分かりません(直前に小数の計算をしているので、その辺りに原因がある?)どういった点が間違っていて、どのように改善すればよいか、教えていただきたいです。Sub hosei() Dim i, LR LR = Cells(Rows.Count, 5).End(xlUp).Row For i = 2 To LR Cells(i, 6) = Sin(Cells(i, 1)) Cells(i, 7) = Application.WorksheetFunction.Power(Cells(i, 6), 2) Cells(i, 8) = 1 - 0.0066 * Cells(i, 7) Cells(i, 9) = Sqr(Cells(i, 8)) Cells(i, 10) = Application.WorksheetFunction.Power(Cells(i, 9), 3) Cells(i, 11) = 6378000 * 0.9966 / Cells(i, 10) Cells(i, 12) = Cells(i, 3) * Cos(Cells(i, 4)) / Cells(i, 11) Cells(i, 13) = Cells(i, 1) + Cells(i, 12) / 2 Cells(i, 14) = Sin(Cells(i, 13)) Cells(i, 15) = Application.WorksheetFunction.Power(Cells(i, 14), 2) Cells(i, 16) = 0.0066 * Cells(i, 15) Cells(i, 17) = 1 - Cells(i, 16) Cells(i, 18) = Sqr(Cells(i, 17)) Next iEnd Sub共感した0###Cells(i, 12)から下が全て、型が一致していないのならCells(i, 12) = Cells(i, 3) * Cos(Cells(i, 4)) / Cells(i, 11)Cells(i, 3) Cos(Cells(i, 4))Cells(i, 11) を MSGBOX Cells(i, 3) 等で 確認して見られたらいかがですか全部 数値になっていますか? 文字になってませんかナイス0
###解決しました。セルのデータに、div/0が含まれていたためのようです

 

TAG