目标通过宏寻求精确度

Question

我试图获得至少4位小数，但我的代码只能匹配前2位小数。

For i = 1 To 200
    Worksheets("A").Range("A" & i).GoalSeek _
        Goal:=Worksheets("A").Range("B" & i).Value, _
        ChangingCell:=Worksheets("A").Range("C" & i)
Next

例如，我需要2.1234但是我只能获得2.12XY和X＆lt;＆gt; 3以及Y＆lt;＆gt; 4。 如何提高精度？