[求助]999999999999oooooo

sunyanzi88

请问在excel里通过计算公式得出来的结果是小数，如果只取小数点的后两为那么第三位采用四舍五入的方法进位，请问怎么才能改成到6才进一位呢！！！请各位大虾指教谢谢！！！！！！真的很着急[em12][em12][em12][em12]

晓月清风

Function rnd6(i, j As Double)

'i为引用单元格或数据，j为数值参数,如0.001

'六入：rnd6(12345.12656,0.01)返回12345.13

'如果第三位小数小于6则不进位

'如果是要让第四位小数进行六入法，则将参数j改为0.001，依此类推

Application.Volatile

a = Int(i / j * 10) Mod 10

b = (Int(i / j) Mod 10) Mod 2

If a <= 5 Then  '四舍

   rnd6 = Int(i / j) * j

ElseIf a >= 6 Then '六入

   rnd6 = Int(i / j + 1) * j

Else

   If b = 0 Then

      rnd6 = Int(i / j) * j

   Else

      rnd6 = Int(i / j + 1) * j

    End If

End If

End Function

楼主，以后请勿重复发贴！谢谢！

zha_hg

很简单啊!选中单元格,然后点工具栏中的格式,点单元格选项,在弹出的对话框中,点数字,然后选数值,在右边的小数位数中选6位,就OK了!